[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv10735

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (set-default-initial-binding): In 9.0 alpha,
*CL-DEFAULT-SPECIAL-BINDINGS* is [soon to be] deprecated.  It's
otherwise the same EXCL:*REQUIRED-TOP-LEVEL-BINDINGS* (i.e. no
change in behavior).

--- /project/slime/cvsroot/slime/ChangeLog	2011/12/03 12:03:26	1.2259
+++ /project/slime/cvsroot/slime/ChangeLog	2011/12/03 12:03:37	1.2260
@@ -1,3 +1,10 @@
+2011-12-03  Gábor Melis  <mega at retes.hu>
+
+	* swank-allegro.lisp (set-default-initial-binding): In 9.0 alpha,
+	*CL-DEFAULT-SPECIAL-BINDINGS* is [soon to be] deprecated.  It's
+	otherwise the same EXCL:*REQUIRED-TOP-LEVEL-BINDINGS* (i.e. no
+	change in behavior).
+
 2011-12-03  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-clisp.lisp (wait-for-input): Add a version for windows.
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2011/11/27 21:47:15	1.148
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2011/12/03 12:03:37	1.149
@@ -832,8 +832,11 @@
                                    #'mp:gate-open-p (mailbox.gate mbox)))))
 
 (defimplementation set-default-initial-binding (var form)
-  (setq excl:*cl-default-special-bindings*
-        (acons var form excl:*cl-default-special-bindings*)))
+  (push (cons var form)
+        #+(version>= 9 0)
+        excl:*required-thread-bindings*
+        #-(version>= 9 0)
+        excl::required-thread-bindings))
 
 (defimplementation quit-lisp ()
   (excl:exit 0 :quiet t))