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

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))))