[Maxima-commits] CVS: maxima/src laplac.lisp,1.7,1.8

[Andreas E. <ar...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16:/tmp/cvs-serv31631/src

Modified Files:
	laplac.lisp 
Log Message:
replaced compilcated implode/explode with gentemp and format.


Index: laplac.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/laplac.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- laplac.lisp	27 Mar 2007 20:40:50 -0000	1.7
+++ laplac.lisp	30 Apr 2007 16:35:28 -0000	1.8
@@ -298,12 +298,12 @@
    (and (not ($unknown f))
 	(errset ($defint f x a '$inf)))))
 
- ;;;CREATES HOPEFULLY UNIQUE NAMES FOR VARIABLE OF INTEGRATION
+ ;;;CREATES UNIQUE NAMES FOR VARIABLE OF INTEGRATION
 (defun createname (head tail)
-  (implode (nconc (explodec head) (explodec tail))))
+  (gentemp (format nil "~S~S" head tail)))
 
+;;;REDUCES LAPLACE(F(T)/T**N,T,S) CASE TO LAPLACE(F(T)/T**(N-1),T,S) CASE
 (defun hackit (exponent rest)
-       ;;;REDUCES LAPLACE(F(T)/T**N,T,S) CASE TO LAPLACE(F(T)/T**(N-1),T,S) CASE
   (cond ((equal exponent -1)
 	 ((lambda (parm) (laptimes rest)) (createname parm 1)))
 	(t (mydefint (hackit (1+ exponent) rest)