From e8b7cf9507bd295778e4d5e1b52483972d69bcb1 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 7 Mar 2008 02:15:24 +0100 Subject: Aesthetic improvements. darcs-hash:8112f3e9cc11608d8f7c2f1862b24f8e0f24b08f --- Lisp/class-definition.lisp | 3 +++ Lisp/method-definition.lisp | 11 ----------- 2 files changed, 3 insertions(+), 11 deletions(-) (limited to 'Lisp') 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)) -- cgit v1.2.3