0.8.0.25:

	Merge "(defmacro nada (()))" patch (David Lichteblau sbcl-devel
	2003-06-02)

diff --git a/NEWS b/NEWS
index b140ecf..06d28cf 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1789,6 +1789,8 @@ changes in sbcl-0.8.1 relative to sbcl-0.8.0:
     classes.  (thanks to Antonio Martinez)
   * bug fix: APROPOS now respects the EXTERNAL-ONLY flag.  (reported
     by Teemu Kalvas)
+  * bug fix: NIL is now a valid destructuring argument in DEFMACRO
+    lambda lists.  (thanks to David Lichteblau)
   * fixed some bugs revealed by Paul Dietz' test suite:
     ** NIL is now allowed as a structure slot name.
     ** arbitrary numbers, not just reals, are allowed in certain

diff --git a/src/code/parse-defmacro.lisp b/src/code/parse-defmacro.lisp
index 4618214..4cf203f 100644 (file)
--- a/src/code/parse-defmacro.lisp
+++ b/src/code/parse-defmacro.lisp
@@ -106,7 +106,7 @@
        ((null rest-of-args))
       (macrolet ((process-sublist (var sublist-name path)
                    (once-only ((var var))
-                     `(if (consp ,var)
+                     `(if (listp ,var)
                           (let ((sub-list-name (gensym ,sublist-name)))
                             (push-sub-list-binding sub-list-name ,path ,var
                                                    name error-kind error-fun)

diff --git a/version.lisp-expr b/version.lisp-expr
index 762b862..af4a276 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.0.24"
+"0.8.0.25"