From 60d2531e0a12daa5a43e390affe9260688b17d21 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 2 Jun 2003 15:41:33 +0000 Subject: [PATCH] 0.8.0.25: Merge "(defmacro nada (()))" patch (David Lichteblau sbcl-devel 2003-06-02) --- NEWS | 2 ++ src/code/parse-defmacro.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index b140ecf..06d28cf 100644 --- 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 --- 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 --- 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" -- 1.7.10.4