From: Christophe R. <cr...@us...> - 2003-06-11 09:11:48
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs1:/tmp/cvs-serv10422/src/compiler Modified Files: ir1util.lisp Log Message: 0.8.0.62: Better error reporting for bad types: ... signal a simple-error on bare AND, OR, MEMBER or VALUES. ... when within the compiler, handle argument count mismatch errors within CAREFUL-[VALUES-]SPECIFIER-TYPE. ... (DEFTYPE FOO () 'FIXNUM) (TYPEP 11 'FOO) (TYPEP 11 '(FOO)) is legal. Index: ir1util.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1util.lisp,v retrieving revision 1.63 retrieving revision 1.64 diff -u -d -r1.63 -r1.64 --- ir1util.lisp 5 Jun 2003 06:24:27 -0000 1.63 +++ ir1util.lisp 11 Jun 2003 09:11:45 -0000 1.64 @@ -1627,6 +1627,8 @@ `(progn (defun ,careful (specifier) (handler-case (,basic specifier) + (sb!kernel::arg-count-error (condition) + (values nil (list (format nil "~A" condition)))) (simple-error (condition) (values nil (list* (simple-condition-format-control condition) (simple-condition-format-arguments condition)))))) |