Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv24388
Modified Files: special-operators.lisp Log Message: The (special) operator +%2op isn't quite up to speed. This patch removes one of the most nasty assumptions about fixnums.
Date: Sun Jun 6 08:12:41 2004 Author: ffjeld
Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.22 movitz/special-operators.lisp:1.23 --- movitz/special-operators.lisp:1.22 Fri Apr 16 03:24:54 2004 +++ movitz/special-operators.lisp Sun Jun 6 08:12:40 2004 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.22 2004/04/16 10:24:54 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.23 2004/06/06 15:12:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -1110,12 +1110,9 @@ (let ((constant-term2 (eval-form term2 env))) (check-type constant-term2 (signed-byte 30)) (compile-constant-add constant-term2 term1))) - (t (compiler-call #'compile-form-unprotected + (t (compiler-call #'compile-apply-symbol :forward all - :form `(muerte::with-inline-assembly (:returns :eax :side-effects nil) - (:compile-two-forms (:ebx :eax) ,term1 ,term2) - (:addl :ebx :eax) - (:into)))))))) + :form `(muerte.cl:+ ,term1 ,term2)))))))
(define-special-operator muerte::include (&form form) (let ((*require-dependency-chain*