[slime-devel] CLISP breakage

[Peter Seibel]

So I just noticed that due to a bug in CLISP's implementation of
COPY-PPRINT-DISPATCH swank.lisp won't load. I sent a bug report to
clisp-devel; in the meantime here's a patch that will get CLISP users
back on their feet, though depending on how you read the spec, this
may or may not really be equivalent. (I assume this use of
copy-pprint-dispatch went in recently since I was having no problems
with CLISP until today.)

-Peter

Index: swank.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank.lisp,v
retrieving revision 1.127
diff -u -r1.127 swank.lisp
--- swank.lisp	26 Feb 2004 07:13:01 -0000	1.127
+++ swank.lisp	27 Feb 2004 20:31:12 -0000
@@ -697,7 +697,7 @@
 ;;; cover cases like (&key (function #'cons) (quote 'quote)).  Too
 ;;; much code for such a minor feature?
 
-(defvar *initial-pprint-dispatch-table* (copy-pprint-dispatch nil))
+(defvar *initial-pprint-dispatch-table* (copy-pprint-dispatch))
 
 (defun print-cons-argument (stream object)
   (pprint-logical-block (stream object :prefix "(" :suffix ")")
@@ -710,7 +710,7 @@
     (princ object stream)))
 
 (defvar *arglist-pprint-dispatch-table* 
-  (let ((table (copy-pprint-dispatch nil)))
+  (let ((table (copy-pprint-dispatch)))
     (set-pprint-dispatch 'cons #'print-cons-argument 0 table)
     (set-pprint-dispatch 'symbol #'print-symbol-argument 0 table)
     table))

-- 
Peter Seibel                                      peter at javamonkey.com

         Lisp is the red pill. -- John Fraser, comp.lang.lisp