From: Nikodemus S. <de...@us...> - 2008-11-03 20:18:55
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv29003/src/compiler Modified Files: deftype.lisp Log Message: 1.0.22.12: fix DEFTYPE regression revealed by ansi tests * DEFTYPE body can be empty. Index: deftype.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/deftype.lisp,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- deftype.lisp 3 Nov 2008 13:34:32 -0000 1.8 +++ deftype.lisp 3 Nov 2008 17:23:35 -0000 1.9 @@ -29,7 +29,7 @@ (if (and (not lambda-list) (not decls) (not (cdr forms)) (or (member (car forms) '(t nil)) (eq 'quote (caar forms)))) - (values `(constant-type-expander ,@forms) doc '(sb!c:source-location)) + (values `(constant-type-expander ,(car forms)) doc '(sb!c:source-location)) (with-unique-names (whole) (multiple-value-bind (macro-body local-decs doc) (parse-defmacro lambda-list whole body name 'deftype :default-default ''*) |