Restore proper load-time behavior of declaim.
authorJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Wed, 13 Feb 2013 08:56:39 +0000 (03:56 -0500)
committerJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Wed, 13 Feb 2013 08:56:39 +0000 (03:56 -0500)
src/lsp/evalmacros.lsp

index 1e56a93..27b37f8 100644 (file)
@@ -370,7 +370,7 @@ values of the last FORM.  If no FORM is given, returns NIL."
   (if (cdr decl-specs)
     `(eval-when (:compile-toplevel :execute)
        (mapcar #'proclaim ',decl-specs))
-    `(eval-when (:compile-toplevel :execute)
+    `(eval-when (:load-toplevel :execute)
        (proclaim ',(car decl-specs)))))