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

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (default-readtable-alist): Implement it.

Date: Wed Jun 16 13:26:01 2004
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.89 slime/swank-sbcl.lisp:1.90
--- slime/swank-sbcl.lisp:1.89	Thu Jun 10 13:52:07 2004
+++ slime/swank-sbcl.lisp	Wed Jun 16 13:26:01 2004
@@ -698,6 +698,11 @@
         (t
          (funcall fn))))
 
+(defimplementation default-readtable-alist ()
+  (let ((readtable (shebang-readtable)))
+    (loop for p in (remove-if-not #'sbcl-package-p (list-all-packages))
+          collect (cons (package-name p) readtable))))
+
 
 ;;;; Multiprocessing