summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-definition.lisp15
-rw-r--r--Lisp/tests.lisp4
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)