Update of /cvsroot/maxima/maxima-pre59/src
In directory usw-pr-cvs1:/tmp/cvs-serv21639/src
Modified Files:
mlisp.lisp
Log Message:
mapply1 modified to fix problem with matchdeclare, defmatch on CL systems
Index: mlisp.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima-pre59/src/mlisp.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** mlisp.lisp 2001/05/06 18:27:49 1.4
--- mlisp.lisp 2001/12/05 05:55:18 1.5
***************
*** 141,144 ****
--- 141,146 ----
((functionp fn)
(apply fn args))
+ #+cl
+ ((EQ (CAR FN) 'LAMBDA) (APPLY (COERCE FN 'FUNCTION) ARGS))
#-cl
((EQ (CAR FN) 'LAMBDA) (APPLY FN ARGS))
|
