Changeset 11614

Timestamp:

01/31/09 22:43:40 (15 years ago)

Author:

ehuelsmann

Message:

Inline all compiled subtractions instead of only the 2 and 3 argument cases.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (2 diffs)

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

@@ -6906 +6906 @@
 (defun p2-minus (form target representation)
   (case (length form)
+    (1
+     ;; generates "Insufficient arguments" error
+     (compile-function-call form target representation))
     (2
      (let* ((arg (%cadr form))
@@ -6968 +6971 @@
              (t
               (compile-binary-operation "subtract" args target representation)))))
-    (4
-     ;; (- a b c) => (- (- a b) c)
-     (let ((new-form `(- (- ,(second form) ,(third form)) ,(fourth form))))
-       (p2-minus new-form target representation)))
     (t
-     (compile-function-call form target representation))))
+     (let ((new-form `(- (- ,(second form) ,(third form)) ,@(nthcdr 3 form))))
+       (p2-minus new-form target representation)))))
 
 ;; char/schar string index => character