[slime-cvs] CVS slime

[dcrosher]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv13479

Modified Files:
	ChangeLog swank-scl.lisp 
Log Message:
* Update for Scieneer CL 1.3.7.


--- /project/slime/cvsroot/slime/ChangeLog	2007/12/20 10:33:51	1.1259
+++ /project/slime/cvsroot/slime/ChangeLog	2007/12/22 13:24:49	1.1260
@@ -1,3 +1,8 @@
+2007-12-22  Douglas Crosher <dcrosher at common-lisp.net>
+
+	* swank-scl.lisp (set-stream-timeout, make-socket-io-stream): update
+	for Scieneer CL 1.3.7.
+
 2007-12-20  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank.lisp (read-softly-from-string): Now actually returns all
--- /project/slime/cvsroot/slime/swank-scl.lisp	2007/08/23 19:03:37	1.13
+++ /project/slime/cvsroot/slime/swank-scl.lisp	2007/12/22 13:24:49	1.14
@@ -53,7 +53,8 @@
   (check-type timeout (or null real))
   (if (fboundp 'ext::stream-timeout)
       (setf (ext::stream-timeout stream) timeout)
-      (setf (slot-value (slot-value stream 'cl::stream) 'cl::timeout) timeout)))
+      (setf (slot-value (slot-value stream 'lisp::stream) 'lisp::timeout)
+            timeout)))
 
 ;;;;; Sockets
 
@@ -87,7 +88,8 @@
                                      :external-format external-format)))
     ;; Ignore character conversion errors.  Without this the communication
     ;; channel is prone to lockup if a character conversion error occurs.
-    (setf (cl::stream-character-conversion-error-value stream) #\?)
+    (setf (lisp::character-conversion-stream-input-error-value stream) #\?)
+    (setf (lisp::character-conversion-stream-output-error-value stream) #\?)
     stream))