summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-07 01:21:01 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-07 01:21:01 +0100
commit2ce1f6788979af805f4ef40ee06c3f38cd22f4ab (patch)
tree97e00fe8df2afbd7f1e381768466e574102da8b5 /Lisp
parentad9ece8b32dcf6a7b0fee2e1503b6cc0be66003f (diff)
Call ENSURE-GENERIC-FUNCTION-USING-CLASS at compile-time as well.
darcs-hash:ac21bf3688413d3cd95cc68748f3a68546c586d6
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-definition.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp
index ec3138c..b4d5835 100644
--- a/Lisp/method-definition.lisp
+++ b/Lisp/method-definition.lisp
@@ -216,7 +216,7 @@ __super__"
'#:objective-c-methods)))
(return
`(progn
- (eval-when (:load-toplevel :execute)
+ (eval-when (:compile-toplevel :load-toplevel :execute)
(unless (fboundp ',real-name)
;; Note that we need not specify a
;; :LAMBDA-LIST here, as not supplying