[slime-cvs] CVS update: slime/swank.lisp

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(prefixed-var): Intern *REAL-STANDARD-INPUT* etc in the SWANK package
instead of the COMMON-LISP package.

Date: Mon Jun 21 22:52:47 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.199 slime/swank.lisp:1.200
--- slime/swank.lisp:1.199	Mon Jun 21 00:29:18 2004
+++ slime/swank.lisp	Mon Jun 21 22:52:47 2004
@@ -687,9 +687,9 @@
 *CURRENT-STANDARD-INPUT*.
 
 This has the effect of making *CURRENT-STANDARD-INPUT* contain the
-effective global value for *STANDARD-INPUT*. Thus input can be
-redirected via that variable, even if *STANDARD-INPUT* itself is
-shadowed by a dynamic binding."
+effective global value for *STANDARD-INPUT*. This way we can assign
+the effective global value even when *STANDARD-INPUT* is shadowed by a
+dynamic binding."
   (let ((real-stream-var (prefixed-var "REAL" stream-var))
         (current-stream-var (prefixed-var "CURRENT" stream-var)))
     `(progn
@@ -703,10 +703,9 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun prefixed-var (prefix variable-symbol)
-    "(PREFIXED-VAR \"FOO\" '*BAR*) => *FOO-BAR*"
+    "(PREFIXED-VAR \"FOO\" '*BAR*) => SWANK::*FOO-BAR*"
     (let ((basename (subseq (symbol-name variable-symbol) 1)))
-      (intern (format nil "*~A-~A" prefix basename)
-              (symbol-package variable-symbol)))))
+      (intern (format nil "*~A-~A" prefix basename) :swank))))
 
 ;;;;; Global redirection setup