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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Feb  7 21:42:05 2009
New Revision: 11638

Log:
Fix P2-MIN/MAX backquoting/unquoting error.

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 Feb  7 21:42:05 2009
@@ -6801,7 +6801,7 @@
                   (fix-boxing representation nil)
                   (emit-move-from-stack target representation))))))
     (t
-     (p2-min/max `(,(car form) (,(car form) (second form) (third form))
+     (p2-min/max `(,(car form) (,(car form) ,(second form) ,(third form))
                     ,@(nthcdr 3 form)) target representation))))
 
 (defun p2-plus (form target representation)