From: Wolfgang J. <wje...@us...> - 2003-02-22 10:32:15
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs1:/tmp/cvs-serv18147/src Modified Files: transs.lisp Log Message: SBCL has an ANSI CL compliant COMPILE-FILE. Use it. Index: transs.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/transs.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- transs.lisp 18 Jul 2002 16:02:32 -0000 1.2 +++ transs.lisp 22 Feb 2003 10:32:12 -0000 1.3 @@ -271,14 +271,14 @@ (setq result (list '(mlist) input-file))) (t (setq result (translate-file input-file translation-output-file)) (setq input-file (third result)))) - #+(or cmu clisp) + #+(or cmu sbcl clisp) (multiple-value-bind (output-truename warnings-p failure-p) (compile-file input-file :output-file (or bin-file t)) ;; If the compiler encountered errors, don't set bin-file to ;; indicate that we found errors. Is this what we want? (unless failure-p (setq bin-file output-truename))) - #-(or cmu clisp) + #-(or cmu sbcl clisp) (setq bin-file (compile-file input-file :output-file bin-file)) (append result (list bin-file))) |