From 4a7637540660cc39351c210a1cdc193cb39b900d Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 5 May 2013 16:41:11 +0100 Subject: [PATCH] defconstant !lambda-list-keywords --- src/lambda-list.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lambda-list.lisp b/src/lambda-list.lisp index 1b62075..e87b868 100644 --- a/src/lambda-list.lisp +++ b/src/lambda-list.lisp @@ -13,8 +13,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with JSCL. If not, see . -;;; lambda-list-keywords -;; '(&optional &rest &key &aux &allow-other-keys &body &optional) +(defconstant !lambda-list-keywords + '(&optional &rest &key &aux &allow-other-keys &body &optional)) ;;;; Lambda list parsing @@ -121,7 +121,7 @@ ;; position of the lambda list. (in-section-p () (and (consp lambda-list) - (not (find (first lambda-list) lambda-list-keywords))))) + (not (find (first lambda-list) !lambda-list-keywords))))) ;; &whole var (when (lambda-section '&whole) -- 1.7.10.4