From 5f83cd7ee8cd3e1860f111b8f4b89afdc0b97d00 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 7 Mar 2008 00:41:33 +0100 Subject: Use ENSURE-GENERIC-FUNCTION-USING-CLASS instead of ENSURE-GENERIC-FUNCTION. darcs-hash:be3185662285bada199f68b1622c0be4ab399f29 --- Lisp/method-definition.lisp | 15 ++++++++++++++- Lisp/tests.lisp | 4 ++-- 2 files changed, 16 insertions(+), 3 deletions(-) diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 0d94401..451732c 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -223,7 +223,20 @@ __super__" ;; it means it's simply going to be ;; initialised when a method is first ;; added to the generic function. - (ensure-generic-function + ;; + ;; For some reason, + ;; ENSURE-GENERIC-FUNCTION raises an + ;; error on Allegro CL claiming that + ;; MAKE-INSTANCE of + ;; OBJECTIVE-C-GENERIC-FUNCTION does + ;; not understand the + ;; :GENERIC-FUNCTION-CLASS initarg. + ;; Calling + ;; ENSURE-GENERIC-FUNCTION-USING-CLASS + ;; instead does not display this + ;; behaviour. Weird. + (ensure-generic-function-using-class + nil ',real-name :generic-function-class (find-class 'objective-c-generic-function) diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 170f41c..902cc34 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -432,11 +432,11 @@ (incf *class-counter*)))) (numclass-name (intern (format nil "~A~D" '#:mlk-test-number - (incf *class-counter*)) + *class-counter*) '#:objective-c-classes)) (subnumclass-name (intern (format nil "~A~D" '#:mlk-test-sub-number - (incf *class-counter*)) + *class-counter*) '#:objective-c-classes)) (class nil) (instance nil) -- cgit v1.2.3