summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-12 15:48:19 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-12 15:48:19 +0100
commit507c9bd8238f634f4131620909125948b4f3693e (patch)
tree472014ce948985c660bdb48bfc420b913eba1898 /Lisp
parent4c0727ea781c578de7b3e661ab6e3ed956bd88ce (diff)
Minor cleanups.
darcs-hash:397e13965e72e0107e762dbf715564a29b9d092c
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/class-definition.lisp6
-rw-r--r--Lisp/data-types.lisp7
-rw-r--r--Lisp/policy.lisp1
3 files changed, 0 insertions, 14 deletions
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.