[Maxima-commits] CVS: maxima/share/algebra/charsets flatten.lisp, 1.2, 1.3

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/share/algebra/charsets
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv9519/share/algebra/charsets

Modified Files:
	flatten.lisp 
Log Message:
Merge in strings-are-lisp-strings-branch. Now Maxima strings are implemented
as Lisp strings. Make clean ; make ; make check succeed with GCL, SBCL, and Clisp (all Linux).

Index: flatten.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/algebra/charsets/flatten.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- flatten.lisp	7 Nov 2005 17:37:10 -0000	1.2
+++ flatten.lisp	15 Oct 2007 02:45:35 -0000	1.3
@@ -65,7 +65,7 @@
 
 (defun $charsets_flatten (e)
   (setq e (ratdisrep e))
-  (cond ((or ($atom e) ($subvarp e)(or (member ($inpart e 0) (list '&^ '&=))))
+  (cond ((or ($atom e) ($subvarp e) (or (member ($inpart e 0) (list "^" "=") :test #'equal)))
 	 e)
 	(t
 	 (let ((op (multiple-value-list (get-op-and-arg e))))