Changeset 14090
- Timestamp:
- 08/14/12 21:44:43 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r14088 r14090 2670 2670 2671 2671 (defun p2-test-char= (form success-label failure-label) 2672 (when ( check-arg-count form 2)2672 (when (= (length form) 3) ;; only optimize the "exactly 2 arguments" case 2673 2673 (let* ((arg1 (%cadr form)) 2674 2674 (arg2 (%caddr form)))
Note: See TracChangeset
for help on using the changeset viewer.