[cells-cvs] CVS cells/utils-kt

[phildebrandt]

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 @@
      , at 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)