From 8ae8ada506ac3bec2831ee7ab9a7f9e75e2c738e Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Fri, 19 Jul 2013 23:34:59 +0200
Subject: LAMBDA: Simplify, (DECLARE (DYNAMIC-EXTENT ARGS)).

---
 sb-eval2.lisp | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 9c76095..6b1906c 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -484,6 +484,7 @@
             (declare (special *new-env*))
             (flet
                 ((handle-arguments (&rest args)
+                   (declare (dynamic-extent args))
                    ;; All this ELT and LENGTH stuff is not as
                    ;; inefficient as it looks.  SBCL transforms
                    ;; &rest into &more here.
@@ -516,11 +517,9 @@
                               (dolist (value values)
                                 (let ((varspec (pop my-varspecs)))
                                   (if (eq varspec :lexical)
-                                      (progn
-                                        (setf
-                                         (environment-value *new-env* 0 vari)
-                                         value)
-                                        (incf vari))
+                                      (setf
+                                       (environment-value *new-env* 0 (incff vari))
+                                       value)
                                       (progn
                                         (assert (eq :special
                                                     (car varspec))
-- 
cgit v1.2.3