Commit c1811d9e authored by Frank Goenninger's avatar Frank Goenninger
Browse files

Changed: Wrapped dependencies to AllegroCL and its IDE into #+...

parent 34f18962
......@@ -42,18 +42,22 @@ resulting in implementation-specific behavior."
(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
......
Supports Markdown
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