Changeset 11803


Ignore:
Timestamp:
04/29/09 21:57:23 (13 years ago)
Author:
ehuelsmann
Message:

Always rewrite &aux vars, even if there are no
vars after &aux: the compiler plainly doesn't
want to see &aux in the lambda list.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

    r11802 r11803  
    447447(defun rewrite-aux-vars (form)
    448448  (let* ((lambda-list (cadr form))
    449          (lets (cdr (memq '&AUX lambda-list)))
     449         (aux-p (memq '&AUX lambda-list))
     450         (lets (cdr aux-p))
    450451         aux-vars)
    451     (unless lets
     452    (unless aux-p
    452453      ;; no rewriting required
    453454      (return-from rewrite-aux-vars form))
Note: See TracChangeset for help on using the changeset viewer.