[climacs-cvs] CVS update: climacs/lisp-syntax.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv30653

Modified Files:
	lisp-syntax.lisp 
Log Message:
Avoid compilation error on recent SBCL by replacing CASE by ECASE.

Date: Sat Oct 29 06:20:47 2005
Author: rstrandh

Index: climacs/lisp-syntax.lisp
diff -u climacs/lisp-syntax.lisp:1.37 climacs/lisp-syntax.lisp:1.38
--- climacs/lisp-syntax.lisp:1.37	Mon Oct 17 19:55:58 2005
+++ climacs/lisp-syntax.lisp	Sat Oct 29 06:20:46 2005
@@ -298,7 +298,7 @@
 			       (make-instance 'readtime-evaluation-lexeme))
 			  ((#\B #\b #\O #\o #\X #\x)
 			   (let ((radix
-				  (case (object-after scan)
+				  (ecase (object-after scan)
 				    ((#\B #\b) 2)
 				    ((#\O #\o) 8)
 				    ((#\X #\x) 16))))