Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv5614
Modified Files: gui.lisp Log Message: Make `climacs-rv' with :new-process t work under SBCL, where dynamic bindings are not inherited by child processes. (Sorry, last commit-message was erroneous.)
--- /project/climacs/cvsroot/climacs/gui.lisp 2006/02/25 10:14:29 1.202 +++ /project/climacs/cvsroot/climacs/gui.lisp 2006/02/25 10:19:09 1.203 @@ -198,6 +198,8 @@ (defun climacs-rv (&key new-process (process-name "Climacs") (width 900) (height 400)) "Starts up a climacs session" + ;; SBCL doesn't inherit dynamic bindings when starting new + ;; processes, so start a new processes and THEN setup the colors. (if new-process (clim-sys:make-process (lambda () (let ((*bg-color* +black+)