[armedbear-cvs] r11613 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Jan 31 22:10:33 2009
New Revision: 11613

Log:
Fix #'+ compilation with FEWER than 2 arguments.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Sat Jan 31 22:10:33 2009
@@ -6834,6 +6834,10 @@
 
 (defun p2-plus (form target representation)
   (case (length form)
+    (1
+     (compile-constant 0 target representation))
+    (2
+     (compile-form (cadr form) target representation))
     (3
      (let* ((args (%cdr form))
             (arg1 (%car args))