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