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

[Raymond T. <rt...@us...>]

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

Modified Files:
	acall.lisp 
Log Message:
CMUCL doesn't have special-form-p.  ANSI CL says it's
special-operator-p, and that's what CMUCL has.


Index: acall.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/acall.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- acall.lisp	7 Jan 2002 18:40:01 -0000	1.3
+++ acall.lisp	28 Jun 2002 20:39:44 -0000	1.4
@@ -43,7 +43,8 @@
 		(APPLY F L))
     #+cl
     ((and (symbolp f)(or (macro-function f)
-			 (special-form-p f)))
+			 #-cmu (special-form-p f)
+			 #+cmu (special-operator-p f)))
      (eval (cons f (copy-rest-arg l))))
     (T
      (MAPPLY F (copy-rest-arg  L) NIL))))