Merge pull request #1 from marijnh/master

Fix for Allegro CL
adlai · Jul 5, 2011 · e877db6 · e877db6
2 parents f11b6a8 + b0d60b0
commit e877db6
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/utils.lisp b/src/utils.lisp
@@ -5,6 +5,9 @@
 (defun ensure-list (x)
   (if (listp x) x (list x)))
 
+;; Make sure these macros are available when compiling this file
+(eval-when (:compile-toplevel :load-toplevel :execute)
+
 (defmacro fun (&body body)
   `(lambda (&optional _) (declare (ignorable _)) ,@body))
 
@@ -45,6 +48,8 @@
                  ,@progn)
                (acond2 ,@others)))))))
 
+) ;; End of eval-when
+
 (defun varsymp (x)
   (and (symbolp x) (eql (char (symbol-name x) 0) #\?)))