From 2ce1f6788979af805f4ef40ee06c3f38cd22f4ab Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 7 Mar 2008 01:21:01 +0100
Subject: Call ENSURE-GENERIC-FUNCTION-USING-CLASS at compile-time as well.

darcs-hash:ac21bf3688413d3cd95cc68748f3a68546c586d6
---
 Lisp/method-definition.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3