Browse files

add an eval-when around the macros in utils.lisp

Since these were used in the file itself. Allegro wasn't able
to compile the file without this.
  • Loading branch information...
1 parent f11b6a8 commit b0d60b027dfb76461311ea8b5a8a85a97a75961f @marijnh marijnh committed Mar 30, 2011
Showing with 5 additions and 0 deletions.
  1. +5 −0 src/utils.lisp
View
5 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) #\?)))

0 comments on commit b0d60b0

Please sign in to comment.