[cells-cvs] CVS cells/utils-kt

[fgoenninger]

Update of /project/cells/cvsroot/cells/utils-kt
In directory clnet:/tmp/cvs-serv3994

Modified Files:
	core.lisp 
Log Message:
Changed: Wrapped dependencies to AllegroCL and its IDE into #+...

--- /project/cells/cvsroot/cells/utils-kt/core.lisp	2007/11/30 16:51:20	1.1
+++ /project/cells/cvsroot/cells/utils-kt/core.lisp	2007/12/03 12:27:03	1.2
@@ -42,18 +42,22 @@
 
 (export! exe-path exe-dll font-path)
 
+#+(and allegro ide)
 (defun exe-path ()
   #+its-alive!
   (excl:current-directory)
   #-its-alive!
   (excl:path-pathname (ide.base::project-file ide.base:*current-project*)))
 
+#+(and allegro ide) 
 (defun font-path ()
   (merge-pathnames
    (make-pathname
     :directory #+its-alive! (list :relative "font")
-    #-its-alive! (append (butlast (pathname-directory (exe-path)))
-                   (list "TY Extender" "font")))
+    #-its-alive! (append (butlast (pathname-directory 
+       (exe-path)
+  ))
+   (list "TY Extender" "font")))
    (exe-path)))
 
 #+test