[Maxima-commits] CVS: maxima-pre59/src acall.lisp,1.2,1.3

[James A. <amu...@us...>]

Update of /cvsroot/maxima/maxima-pre59/src
In directory usw-pr-cvs1:/tmp/cvs-serv13965

Modified Files:
	acall.lisp 
Log Message:
ansi lisp fix

Index: acall.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima-pre59/src/acall.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- acall.lisp	2001/11/19 04:45:52	1.2
+++ acall.lisp	2002/01/07 18:40:01	1.3
@@ -43,7 +43,7 @@
 		(APPLY F L))
     #+cl
     ((and (symbolp f)(or (macro-function f)
-			 (special-operator-p f)))
+			 (special-form-p f)))
      (eval (cons f (copy-rest-arg l))))
     (T
      (MAPPLY F (copy-rest-arg  L) NIL))))