Aesthetic improvements.

darcs-hash:8112f3e9cc11608d8f7c2f1862b24f8e0f24b08f

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))