Commit 3a000cd0 authored by rtoy's avatar rtoy

Fix for gcl so gcl can at least load the file.

parent 694902fe
......@@ -3,8 +3,10 @@
;; A sample defsystem.
(mk:defsystem f2cl
:source-pathname (merge-pathnames (make-pathname :directory '(:relative "src"))
(make-pathname :directory (pathname-directory *load-pathname*)))
(merge-pathnames (make-pathname :directory '(#-gcl :relative "src"))
(make-pathname :directory (pathname-directory #-gcl *load-pathname*
#+gcl sys:*load-pathname*)))
:source-extension "l"
:depends-on nil
Markdown is supported
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