From: Robert D. <rob...@us...> - 2006-09-25 04:16:25
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv8186/src Modified Files: transs.lisp Log Message: Merge in changes from 5.10.0 release branch. - src/transs.lisp: Cut out :case :common stuff introduced in recent SCL / Allegro patches. The LISP, UNLISP, and ERR filename extensions are deliberate choices. Index: transs.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/transs.lisp,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- transs.lisp 13 Sep 2006 23:15:34 -0000 1.22 +++ transs.lisp 25 Sep 2006 04:16:22 -0000 1.23 @@ -84,7 +84,7 @@ '`,(pathname (stripdollar $tr_output_file_default))) (defmacro trlisp-outputname () - '`,(make-pathname :type "LISP" :case :common)) + '`,(make-pathname :type "LISP")) (defmacro trlisp-outputname-temp () '`,(pathname "_trli_")) @@ -232,7 +232,7 @@ (and bin-file(setq bin-file (maxima-string bin-file))) (and translation-output-file (setq translation-output-file (maxima-string translation-output-file))) - (cond ((string-equal (pathname-type input-file :case :common) "LISP") + (cond ((string-equal (pathname-type input-file) "LISP") (setq result (list '(mlist) input-file))) (t (setq result (translate-file input-file translation-output-file)) (setq input-file (third result)))) @@ -378,7 +378,7 @@ ;; (OPEN-OUT-DSK X)) (defun alter-pathname (pathname &rest options) - (apply 'make-pathname :defaults (pathname pathname) :case :common options)) + (apply 'make-pathname :defaults (pathname pathname) options)) (defun delete-with-side-effects-if (test list) "Rudimentary DELETE-IF which, however, is guaranteed to call |