Commit a016a598 authored by Dave Cooper's avatar Dave Cooper

defer setting source home until initialization.

parent ed01fa54
......@@ -55,8 +55,8 @@
:type nil
:directory (butlast (butlast (pathname-directory base-home)))
:defaults base-home)))))))
(set-genworks-source-home-if-known))
;;(set-genworks-source-home-if-known)
)
(defparameter *gendl-source-home* nil)
......@@ -69,8 +69,8 @@
(if (typep error 'error)
(warn "~&ASDF is loaded, but :base is not registered. glisp:*genworks-source-home* remains unknown and set to nil.~%")
(setq *gendl-source-home* gendl-home)))))
(set-gendl-source-home-if-known))
;;(set-gendl-source-home-if-known)
)
......
......@@ -49,6 +49,7 @@
(pushnew (make-keyword (format nil "gendl-~a" *gendl-version*)) *features*)
(glisp:set-genworks-source-home-if-known)
(glisp:set-gendl-source-home-if-known)
(glisp:set-default-float-format)
(glisp:set-defpackage-behavior)
(glisp:set-default-package)
......
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