1 ;;; A collection of wrappers around extended functionality that may be
2 ;;; different across CL implementations.
4 ;;; To add support for a new CL implementation, an entry in each of
5 ;;; these functions must be made for it.
11 (defun weak-pointer-p (wp)
12 #+clisp
(ext:weak-pointer-p
(wp)))
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
)
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
))
26 (provide :lice-0.1
/wrappers
)