From: Nikodemus S. <de...@us...> - 2009-01-15 09:19:37
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv9265/src/compiler Modified Files: deftype.lisp Log Message: 1.0.24.43: DEFTYPE to accept bodies consisting a single symbol * Regression from 1.0.22.8, reported by Ariel Badichi. Index: deftype.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/deftype.lisp,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- deftype.lisp 1 Dec 2008 03:26:24 -0000 1.11 +++ deftype.lisp 15 Jan 2009 09:19:32 -0000 1.12 @@ -31,7 +31,7 @@ ;; is not availble early enough. (if (and (not lambda-list) (not decls) (not (cdr forms)) (or (member (car forms) '(t nil)) - (eq 'quote (caar forms)))) + (and (consp (car forms)) (eq 'quote (caar forms))))) (values `(constant-type-expander ,(car forms)) doc '(sb!c:source-location)) (with-unique-names (whole) (multiple-value-bind (macro-body local-decs doc) |