Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge pull request #1 from marijnh/master

Fix for Allegro CL
  • Loading branch information...
commit e877db6c38e0eb215c920388375cf90094ee671e 2 parents f11b6a8 + b0d60b0
@adlai authored
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) #\?)))
Please sign in to comment.
Something went wrong with that request. Please try again.