diff options
| -rw-r--r-- | Lisp/method-definition.lisp | 15 | ||||
| -rw-r--r-- | 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) |