[climacs-cvs] CVS climacs

[thenriksen]

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+)