[Maxima-commits] CVS: maxima/src todd-coxeter.lisp,1.4,1.5

[Vadim V. Z. <vv...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs1:/tmp/cvs-serv6991

Modified Files:
	todd-coxeter.lisp 
Log Message:
ANSI GCL don't have define-compiler-macro yet


Index: todd-coxeter.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/todd-coxeter.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- todd-coxeter.lisp	5 Mar 2003 01:36:26 -0000	1.4
+++ todd-coxeter.lisp	7 Sep 2003 06:41:37 -0000	1.5
@@ -38,14 +38,14 @@
   `(progn (vector-push-extend ,m *todo*)
 	  (vector-push-extend ,n *todo*)))
 
-#-:ansi-cl
+#-(and :ansi-cl (not gcl))
 (defmacro f+ (a b) `(the fixnum (+ (the fixnum ,a) (the fixnum ,b))))
-#+:ansi-cl
+#+(and :ansi-cl (not gcl))
 (define-compiler-macro f+ (a b) `(the fixnum (+ (the fixnum ,a) (the fixnum ,b))))
-#-:ansi-cl
+#-(and :ansi-cl (not gcl))
 (defmacro f- (a &optional b) `(the fixnum (- (the fixnum ,a)
 					     ,@ (if b `((the fixnum ,b))))))
-#+:ansi-cl
+#+(and :ansi-cl (not gcl))
 (define-compiler-macro f- (a &optional b) `(the fixnum (- (the fixnum ,a)
 					     ,@ (if b `((the fixnum ,b))))))