wrappers.lisp

   1 ;;; A collection of wrappers around extended functionality that may be
   2 ;;; different across CL implementations.
   3
   4 ;;; To add support for a new CL implementation, an entry in each of
   5 ;;; these functions must be made for it.
   6
   7 (in-package :lice)
   8
   9 ;;; Weak Pointers
  10
  11 (defun weak-pointer-p (wp)
  12   #+clisp (ext:weak-pointer-p (wp)))
  13
  14 (defun make-weak-pointer (data)
  15   #+clisp (ext:make-weak-pointer data)
  16   #+cmu (extensions:make-weak-pointer data)
  17   #+sbcl (sb-ext:make-weak-pointer data)
  18   #+(or movitz mcl) data)
  19
  20 (defun weak-pointer-value (wp)
  21   #+clisp (ext:weak-pointer-value wp)
  22   #+cmu (extensions:weak-pointer-value wp)
  23   #+sbcl (sb-ext:weak-pointer-value wp)
  24   #+(or movitz mcl) (values wp t))
  25
  26 (provide :lice-0.1/wrappers)