diff options
| -rw-r--r-- | Lisp/class-definition.lisp | 6 | ||||
| -rw-r--r-- | Lisp/data-types.lisp | 7 | ||||
| -rw-r--r-- | Lisp/policy.lisp | 1 |
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. |