From 507c9bd8238f634f4131620909125948b4f3693e Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 12 Mar 2008 15:48:19 +0100
Subject: Minor cleanups.

darcs-hash:397e13965e72e0107e762dbf715564a29b9d092c
---
 Lisp/class-definition.lisp | 6 ------
 Lisp/data-types.lisp       | 7 -------
 Lisp/policy.lisp           | 1 -
 3 files changed, 14 deletions(-)

(limited to 'Lisp')

diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index 55c69a4..467965d 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -376,12 +376,6 @@ __define-objective-c-method__"
           "Tried to SLOT-MAKUNBOUND a foreign slot"))
 
 
-(defmethod c2mop:compute-slots ((class objective-c-class))
-  ;; FIXME: Maybe add lots of foreign slots here whose presence the
-  ;; Objective-C runtime tells us.
-  (call-next-method))
-
-
 (defun ensure-objective-c-class-pair (name
                                       direct-superclasses
                                       direct-slots
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
diff --git a/Lisp/policy.lisp b/Lisp/policy.lisp
index 64ace7d..9179ad6 100644
--- a/Lisp/policy.lisp
+++ b/Lisp/policy.lisp
@@ -63,7 +63,6 @@ to determine the intentional type by method selector.
     (setf (gethash key *boolean-return-exceptions*) t)))
 
 
-;; FIXME: Document.
 (defun undefine-returns-boolean-exception (selector-designator)
   "Revert the effect of __define-returns-boolean-exception__ for a given selector.
 
-- 
cgit v1.2.3