From: Christophe R. <cr...@us...> - 2008-04-23 21:44:03
|
Update of /cvsroot/sbcl/sbcl/src/compiler/generic In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv3603/src/compiler/generic Modified Files: vm-macs.lisp vm-tran.lisp Log Message: 1.0.16.9: restore buildability from CMUCL CMUCL justifiably emits warning on (ecase ... (...) (t ...)). Use ((t) ...) instead as the last clause. Reported by Andreas Franke (sbcl-devel 2008-04-23). Index: vm-macs.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/vm-macs.lisp,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- vm-macs.lisp 7 Mar 2008 12:26:48 -0000 1.21 +++ vm-macs.lisp 23 Apr 2008 21:43:59 -0000 1.22 @@ -184,7 +184,7 @@ (:untagged (ecase signedp ((nil) *untagged-unsigned-modular-class*) - (t *untagged-signed-modular-class*))) + ((t) *untagged-signed-modular-class*))) (:tagged (aver signedp) *tagged-modular-class*))) @@ -255,7 +255,7 @@ (defknown ,name ,(mapcar (constantly 'integer) lambda-list) (,(ecase signedp ((nil) 'unsigned-byte) - (t 'signed-byte)) + ((t) 'signed-byte)) ,width) (foldable flushable movable) :derive-type (make-modular-fun-type-deriver Index: vm-tran.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/vm-tran.lisp,v retrieving revision 1.79 retrieving revision 1.80 diff -u -d -r1.79 -r1.80 --- vm-tran.lisp 7 Mar 2008 12:26:48 -0000 1.79 +++ vm-tran.lisp 23 Apr 2008 21:43:59 -0000 1.80 @@ -643,7 +643,7 @@ ((def (name kind width signedp) (let ((type (ecase signedp ((nil) 'unsigned-byte) - (t 'signed-byte)))) + ((t) 'signed-byte)))) `(progn (defknown ,name (integer (integer 0)) (,type ,width) (foldable flushable movable)) |