summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-07 02:15:24 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-07 02:15:24 +0100
commite8b7cf9507bd295778e4d5e1b52483972d69bcb1 (patch)
tree322e73e7d38a5c37365e022d66a6d2965a49d876
parent519e15f4039c830bc32a6df0016f499152af8ad4 (diff)
Aesthetic improvements.
darcs-hash:8112f3e9cc11608d8f7c2f1862b24f8e0f24b08f
-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))