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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Aug 14 14:44:43 2012
New Revision: 14090

Log:
Silence a compiler warning when compiling this month's SLIME from
Quicklisp: 3 arguments should not warn, since it's allowed; the
point being that we're only optimizing the 2-argument case...

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	Tue Aug 14 14:06:34 2012	(r14089)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Tue Aug 14 14:44:43 2012	(r14090)
@@ -2669,7 +2669,7 @@
         (t result)))))
 
 (defun p2-test-char= (form success-label failure-label)
-  (when (check-arg-count form 2)
+  (when (= (length form) 3) ;; only optimize the "exactly 2 arguments" case
     (let* ((arg1 (%cadr form))
            (arg2 (%caddr form)))
       (with-operand-accumulation