[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv21548

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
* swank-ccl.lisp (spawn): Specify
:use-standard-initial-bindings nil, so that *readtable*
etc. modifications persist.


--- /project/slime/cvsroot/slime/ChangeLog	2010/08/04 18:41:04	1.2119
+++ /project/slime/cvsroot/slime/ChangeLog	2010/08/05 12:12:34	1.2120
@@ -1,3 +1,9 @@
+2010-08-05  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-ccl.lisp (spawn): Specify
+	:use-standard-initial-bindings nil, so that *readtable*
+	etc. modifications persist.
+
 2010-08-04  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-allegro.lisp (fspec-definition-locations): Default
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2010/05/27 14:48:19	1.20
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2010/08/05 12:12:34	1.21
@@ -677,7 +677,8 @@
   (queue '() :type list))
 
 (defimplementation spawn (fun &key name)
-  (ccl:process-run-function (or name "Anonymous (Swank)")
+  (ccl:process-run-function (list :name (or name "Anonymous (Swank)")
+                                  :use-standard-initial-bindings nil)
                             fun))
 
 (defimplementation thread-id (thread)