summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/class-definition.lisp3
-rw-r--r--Lisp/method-definition.lisp11
2 files changed, 3 insertions, 11 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index 6637212..55c69a4 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -556,6 +556,9 @@ intern any missing superclass objects.
;;;; (@* "Memory management")
(defvar *retained-lisp-objects* (make-hash-table :test #'eql))
+;;; FIXME: Should we override #dealloc? It may be the only way to get
+;;; any information at all on a garbage-collected Objective-C runtime.
+
(defun retain (instance)
;; Ensure that INSTANCE is not garbage-collected on the Lisp side.
(setf (gethash (pointer-address (pointer instance))
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp
index b4d5835..88c2a2d 100644
--- a/Lisp/method-definition.lisp
+++ b/Lisp/method-definition.lisp
@@ -507,14 +507,3 @@ __define-objective-c-generic-function__.
:return-type (or return-type :id)
:argument-types argument-types
new-initargs)))
-
-
-#+(or)
-(defgeneric bla (x y z &rest r)
- (:generic-function-class objective-c-generic-function)
- (:method-class objective-c-method))
-
-#+(or)
-(defmethod bla :abc ((x number) (y symbol) c &rest r)
- (declare (ignore c r))
- (+ x 3))