Update of /project/cells/cvsroot/cells/utils-kt In directory clnet:/tmp/cvs-serv6741/utils-kt
Modified Files: core.lisp detritus.lisp Log Message: make utils-kt work on sbcl. Peter.
--- /project/cells/cvsroot/cells/utils-kt/core.lisp 2007/12/03 20:11:12 1.3 +++ /project/cells/cvsroot/cells/utils-kt/core.lisp 2008/01/29 23:30:06 1.4 @@ -22,7 +22,7 @@ ,@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) --- /project/cells/cvsroot/cells/utils-kt/detritus.lisp 2008/01/29 04:29:55 1.17 +++ /project/cells/cvsroot/cells/utils-kt/detritus.lisp 2008/01/29 23:30:06 1.18 @@ -70,7 +70,7 @@
(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)