Commit ad43f2bb authored by Dave Cooper's avatar Dave Cooper

added more config in initialization.

parent 5d4386c7
......@@ -30,7 +30,11 @@
:directory (butlast (pathname-directory glisp:*gdl-program-home*))
:defaults glisp:*gdl-program-home*))
(setq glisp:*gendl-home* glisp:*gdl-home*)
(setq *quicklisp-home* (or (when (and (find-package :ql) (boundp (read-from-string "ql:*quicklisp-home*")))
(when (find-package :asdf) (funcall (asdf:initialize-output-translations)))
(setq *quicklisp-home* (or (when (and (find-package :ql) (boundp (read-from-string "ql:*quicklisp-home*"))
(probe-file (read-from-string "ql:*quicklisp-home*")))
(symbol-value (read-from-string "ql:*quicklisp-home*")))
(probe-file (merge-pathnames "quicklisp/" glisp:*gendl-home*))
(probe-file (merge-pathnames "genworks/quicklisp/" glisp:*gendl-home*))
......@@ -38,6 +42,11 @@
(probe-file (merge-pathnames "genworks/quicklisp/dists/quicklisp/distinfo.txt"
glisp:*gdl-home*))
))
(when (and (find-package :ql) (boundp (read-from-string "ql:*quicklisp-home*"))
(not (probe-file (read-from-string "ql:*quicklisp-home*"))))
(setq ql:*quicklisp-home* *quicklisp-home*))
(pushnew (make-keyword (format nil "gendl-~a" *gendl-version*)) *features*)
(glisp:set-genworks-source-home-if-known)
(glisp:set-default-float-format)
......
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