[Maxima-commits] CVS: maxima-pre59/src mlisp.lisp,1.4,1.5

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

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))