Commit e5e5fc99 authored by Peter Hildebrandt's avatar Peter Hildebrandt
Browse files

make utils-kt work on sbcl.

Peter.
parent af1b482f
......@@ -22,7 +22,7 @@ See the Lisp Lesser GNU Public License for more details.
,@body))
(defmacro export! (&rest symbols)
`(eval-when (:compile-toplevel :load-toplevel :execute)
`(eval-when (#-sbcl :compile-toplevel :load-toplevel :execute)
(export ',symbols)))
(defmacro define-constant (name value &optional docstring)
......
......@@ -70,7 +70,7 @@ See the Lisp Lesser GNU Public License for more details.
(export! project-path)
(defun project-path ()
(excl:path-pathname (ide.base::project-file ide.base:*current-project*)))
#+allegro (excl:path-pathname (ide.base::project-file ide.base:*current-project*)))
#+test
(test-setup)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment