From 507c9bd8238f634f4131620909125948b4f3693e Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 12 Mar 2008 15:48:19 +0100 Subject: Minor cleanups. darcs-hash:397e13965e72e0107e762dbf715564a29b9d092c --- Lisp/data-types.lisp | 7 ------- 1 file changed, 7 deletions(-) (limited to 'Lisp/data-types.lisp') 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 -- cgit v1.2.3