[slime-cvs] CVS update: slime/swank-sbcl.lisp slime/swank-allegro.lisp slime/swank-lispworks.lisp slime/swank-openmcl.lisp slime/swank-ecl.lisp

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp swank-allegro.lisp swank-lispworks.lisp 
	swank-openmcl.lisp swank-ecl.lisp 
Log Message:
Use *gray-stream-symbols* instead of enumerating them in each backend.

Date: Thu Sep 22 22:20:43 2005
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.145 slime/swank-sbcl.lisp:1.146
--- slime/swank-sbcl.lisp:1.145	Wed Sep 21 22:54:08 2005
+++ slime/swank-sbcl.lisp	Thu Sep 22 22:20:43 2005
@@ -11,27 +11,16 @@
 
 ;;; Administrivia
 
+(in-package :swank-backend)
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require 'sb-bsd-sockets)
   (require 'sb-introspect)
   (require 'sb-posix))
 
-(in-package :swank-backend)
 (declaim (optimize (debug 2)))
 
-(import
- '(sb-gray:fundamental-character-output-stream
-   sb-gray:stream-write-char
-   sb-gray:stream-line-length
-   sb-gray:stream-force-output
-   sb-gray:stream-finish-output
-   sb-gray:fundamental-character-input-stream
-   sb-gray:stream-read-char
-   sb-gray:stream-listen
-   sb-gray:stream-unread-char
-   sb-gray:stream-clear-input
-   sb-gray:stream-line-column
-   sb-gray:stream-line-length))
+(import-from :sb-gray *gray-stream-symbols* :swank-backend)
 
 ;;; swank-mop
 


Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.76 slime/swank-allegro.lisp:1.77
--- slime/swank-allegro.lisp:1.76	Wed Sep 21 13:43:47 2005
+++ slime/swank-allegro.lisp	Thu Sep 22 22:20:43 2005
@@ -14,18 +14,7 @@
   (require :sock)
   (require :process)
 
-  (import
-   '(excl:fundamental-character-output-stream
-     excl:stream-write-char
-     excl:stream-force-output
-     excl:stream-finish-output
-     excl:fundamental-character-input-stream
-     excl:stream-read-char
-     excl:stream-listen
-     excl:stream-unread-char
-     excl:stream-clear-input
-     excl:stream-line-column
-     excl:stream-read-char-no-hang)))
+  (import-from :excl *gray-stream-symbols* :swank-backend))
 
 ;;; swank-mop
 


Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.78 slime/swank-lispworks.lisp:1.79
--- slime/swank-lispworks.lisp:1.78	Wed Sep 21 13:43:47 2005
+++ slime/swank-lispworks.lisp	Thu Sep 22 22:20:43 2005
@@ -11,20 +11,8 @@
 (in-package :swank-backend)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (require "comm"))
-
-(import
- '(stream:fundamental-character-output-stream
-   stream:stream-write-char
-   stream:stream-force-output
-   stream:stream-finish-output
-   stream:fundamental-character-input-stream
-   stream:stream-read-char
-   stream:stream-listen
-   stream:stream-unread-char
-   stream:stream-clear-input
-   stream:stream-line-column
-   ))
+  (require "comm")
+  (import-from :stream *gray-stream-symbols* :swank-backend))
 
 (import-swank-mop-symbols :clos '(:slot-definition-documentation
                                   :eql-specializer


Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.101 slime/swank-openmcl.lisp:1.102
--- slime/swank-openmcl.lisp:1.101	Wed Sep 21 13:43:47 2005
+++ slime/swank-openmcl.lisp	Thu Sep 22 22:20:43 2005
@@ -52,19 +52,7 @@
 
 (in-package :swank-backend)
 
-(import
- '(ccl:fundamental-character-output-stream
-   ccl:stream-write-char
-   ccl:stream-line-length
-   ccl:stream-force-output
-   ccl:stream-finish-output
-   ccl:fundamental-character-input-stream
-   ccl:stream-read-char
-   ccl:stream-listen
-   ccl:stream-unread-char
-   ccl:stream-clear-input
-   ccl:stream-line-column
-   ccl:stream-line-length))
+(import-from :ccl *gray-stream-symbols* :swank-backend)
 
 (require 'xref)
 


Index: slime/swank-ecl.lisp
diff -u slime/swank-ecl.lisp:1.2 slime/swank-ecl.lisp:1.3
--- slime/swank-ecl.lisp:1.2	Wed Sep 21 13:43:47 2005
+++ slime/swank-ecl.lisp	Thu Sep 22 22:20:43 2005
@@ -6,19 +6,7 @@
 
 (in-package :swank-backend)
 
-(import
- '(ext::fundamental-character-output-stream
-   ext::stream-write-char
-   ext::stream-line-length
-   ext::stream-force-output
-   ext::stream-finish-output
-   ext::fundamental-character-input-stream
-   ext::stream-read-char
-   ext::stream-listen
-   ext::stream-unread-char
-   ext::stream-clear-input
-   ext::stream-line-column
-   ext::stream-line-length))
+(import-from :ext *gray-stream-symbols* :swank-backend)
 
 (swank-backend::import-swank-mop-symbols :clos
  '(:eql-specializer