[movitz-cvs] CVS update: movitz/special-operators.lisp

[Frode Vatvedt Fjeld]

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 at 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*