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

[Helmut Eller]

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

Modified Files:
	swank-loader.lisp 
Log Message:
Initialize swank::*readtable-alist* for SBCL.
Date: Thu Jun 10 10:57:16 2004
Author: heller

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.24 slime/swank-loader.lisp:1.25
--- slime/swank-loader.lisp:1.24	Wed Jun  9 13:08:39 2004
+++ slime/swank-loader.lisp	Thu Jun 10 10:57:16 2004
@@ -102,6 +102,12 @@
 
 (funcall (intern (string :warn-unimplemented-interfaces) :swank-backend))
 
+#+sbcl
+(let ((readtable (swank-backend::shebang-readtable)))
+  (dolist (p (list-all-packages))
+    (when (swank-backend::sbcl-package-p p)
+      (push (cons (package-name p) readtable) swank::*readtable-alist*))))
+
 (when (user-init-file)
   (load (user-init-file)))