Changeset 14090

Timestamp:

08/14/12 21:44:43 (8 years ago)

Author:

ehuelsmann

Message:

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...

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

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

@@ -2670 +2670 @@
 
 (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)))