[Ecls-list] compile-file :external-format

[Juan Jose Garcia-Ripoll]

This is not the right fix. COMPILE-FILE-PATHNAME must accept the same
keyword arguments as COMPILE-FILE. I will change that.

Juanjo

On Thu, Feb 18, 2010 at 7:24 AM, Andy Hefner <ahefner at gmail.com> wrote:
> Presently external-format gets passed through to compile-file-pathname
> by APPLY of the &rest args, causing an error. This appears to work:
>
> --- a/src/cmp/cmpmain.lsp
> +++ b/src/cmp/cmpmain.lsp
> @@ -600,6 +600,7 @@ compiled successfully, returns the pathname of the
> compiled file"
>  ~%;;; Therefore, COMPILE-FILE without :SYSTEM-P T is unsupported.~
>  ~%;;;"))
>
> +  (remf args :external-format)
>   (setq *compile-file-pathname* (pathname (merge-pathnames input-pathname)))
>   (unless (probe-file *compile-file-pathname*)
>     (if (pathname-type input-pathname)
>



-- 
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com