From: David Vázquez <davazp@gmail.com>
Date: Sun, 5 May 2013 15:41:11 +0000 (+0100)
Subject: defconstant !lambda-list-keywords
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4a7637540660cc39351c210a1cdc193cb39b900d;p=jscl.git

defconstant !lambda-list-keywords
---

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 <http://www.gnu.org/licenses/>.
 
-;;; 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)