Commit ed01fa54 authored by Dave Cooper's avatar Dave Cooper

fixed variable initializtion for sbcl.

parent 40a77d9f
......@@ -54,9 +54,10 @@
(make-pathname :name nil
:type nil
:directory (butlast (butlast (pathname-directory base-home)))
:defaults base-home))))))))
:defaults base-home)))))))
(set-genworks-source-home-if-known))
(set-genworks-source-home-if-known)
(defparameter *gendl-source-home* nil)
......@@ -67,9 +68,10 @@
(ignore-errors (funcall (read-from-string "asdf:system-source-directory") "gendl"))
(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))))))
(setq *gendl-source-home* gendl-home)))))
(set-gendl-source-home-if-known))
(set-gendl-source-home-if-known)
#-(or allegro lispworks sbcl ccl abcl ecl clisp)
......
......@@ -27,7 +27,10 @@
:gwl-graphics :tasty :yadd :robot :cl-lite :geysr))
(defun start-gendl! (&key (features *features-to-initialize*)
(banner? t) (init-files? t))
(banner? t) (init-files? t))
(glisp::set-gendl-source-home-if-known)
(glisp::set-genworks-source-home-if-known)
(dolist (feature features)
;;
;; This assumes feature name = package name of its initialize!
......
......@@ -247,6 +247,7 @@ to the src/ directory distributed with GDL.
:height (* (the :height) 0.85)
:width (* (the :width) 0.7)
:radius (half (the-child width))
:display-controls (merge-display-controls (list :transparency 0 :color :blue))
:center (translate (the :center)
:down (- (half (the :height))
(half (the-child :height)))))
......
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