Minor cleanups.

darcs-hash:397e13965e72e0107e762dbf715564a29b9d092c

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