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 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'Lisp/method-definition.lisp') 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) -- cgit v1.2.3