Permalink
Browse files

Merge pull request #1 from marijnh/master

Fix for Allegro CL
  • Loading branch information...
2 parents f11b6a8 + b0d60b0 commit e877db6c38e0eb215c920388375cf90094ee671e @adlai committed Jul 5, 2011
Showing with 5 additions and 0 deletions.
  1. +5 −0 src/utils.lisp
View
@@ -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 e877db6

Please sign in to comment.