diff options
Diffstat (limited to 'Lisp/data-types.lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 3400197..56cbbd8 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -495,7 +495,6 @@ seems like an acceptable trade-off. (aref lisp-managed-cell))) -;; FIXME: Document. (defgeneric (setf foreign-value-lisp-managed-p) (managedp foreign-value)) (defmethod (setf foreign-value-lisp-managed-p) (managedp (foreign-value foreign-value)) @@ -503,12 +502,6 @@ seems like an acceptable trade-off. (setf (aref lisp-managed-cell) (if managedp t nil)))) -;; FIXME: Document. -(defgeneric foreign-value-pointer (foreign-value)) -(defmethod foreign-value-pointer ((foreign-value foreign-value)) - (pointer-to foreign-value)) - - (defun make-struct-wrapper (pointer typespec managedp) ;; We use a zero-dimensional array that the finaliser can close over ;; so that it (the finaliser) can decide whether to garbage-collect |