Changeset 11613


Ignore:
Timestamp:
01/31/09 22:10:33 (13 years ago)
Author:
ehuelsmann
Message:

Fix #'+ compilation with FEWER than 2 arguments.

File:
1 edited

Legend:

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

    r11611 r11613  
    68356835(defun p2-plus (form target representation)
    68366836  (case (length form)
     6837    (1
     6838     (compile-constant 0 target representation))
     6839    (2
     6840     (compile-form (cadr form) target representation))
    68376841    (3
    68386842     (let* ((args (%cdr form))
Note: See TracChangeset for help on using the changeset viewer.