<div dir="ltr"><div><div><font><font face="comic sans ms,sans-serif">I modified the origin <font><font face="comic sans ms,sans-serif">asdf.lisp file, and it( </font></font></font></font><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif">(quicklisp-quickstart:install)</font></font></font></font> ) works for me <font><font face="comic sans ms,sans-serif">on these <font><font face="comic sans ms,sans-serif">implementations(win7 x64) now:<br>
<br></font></font></font></font></font></font></font></font></div><div><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif">Allegro CL 8.1<br>
</font></font></font></font></font></font></font></font></font></font></div><div><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif">Allegro CL 8.2<br>
</font></font></font></font></font></font></font></font></font></font></font></font></div><div><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif">ABCL 1.0.1<br>
</font></font></font></font></font></font></font></font></font></font></font></font></div><div><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif">Clozure CL 1.8(x86, x64)<br>
</font></font></font></font></font></font></font></font></font></font></font></font></div><div><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif">CLISP 2.49<br>
</font></font></font></font></font></font></font></font></font></font></font></font></div><div><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif">SBCL 1.0.55.1<font><font face="comic sans ms,sans-serif">(</font></font>with threads support)(x86, x64)<br>
</font></font></font></font></font></font></font></font></font></font></font></font></div><div><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif">ECL 11.1.1(MinGW, gcc 4.5.0, lisp-><font><font face="comic sans ms,sans-serif">c compiler)</font></font><br>
</font></font></font></font></font></font></font></font></font></font></font></font></div><div><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><br>
</font></font></font></font></font></font></font></font></font></font></font></font></div><div><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><br></font></font></font></font></div>
<font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif">Here<font><font face="comic sans ms,sans-serif">'s the patch:<br>$ git diff<br>diff --git a/8.1/quicklisp-client-2012112500/asdf.lisp b/8.1/quicklisp-client-2012112500/asdf.lisp<br>
index 283ad86..18e13a2 100644<br>--- a/8.1/quicklisp-client-2012112500/asdf.lisp<br>+++ b/8.1/quicklisp-client-2012112500/asdf.lisp<br>@@ -3909,13 +3909,16 @@ effectively disabling the output translation facility."<br>
(defun* compile-file-pathname* (input-file &rest keys &key output-file &allow-other-keys)<br> (if (absolute-pathname-p output-file)<br> ;; what cfp should be doing, w/ mp* instead of mp<br>- (let* ((type (pathname-type (apply 'compile-file-pathname "x.lisp" keys)))<br>
- (defaults (make-pathname<br>- :type type :defaults (merge-pathnames* input-file))))<br>- (merge-pathnames* output-file defaults))<br>+ (let* ((type (pathname-type (apply 'compile-file-pathname "x.lisp"<br>
+ (remove-keys '(#+(and allegro (not (version>= 8 2))) :external-format)<br>+ keys))))<br>+ (defaults (make-pathname<br>
+ :type type :defaults (merge-pathnames* input-file))))<br>+ (merge-pathnames* output-file defaults))<br> (apply-output-translations<br>- (apply 'compile-file-pathname input-file<br>
- (if output-file keys (remove-keyword :output-file keys))))))<br>+ (apply 'compile-file-pathname input-file<br>+ (remove-keys `(#+(and allegro (not (version>= 8 2))) :external-format<br>
+ ,@(unless output-file '(:output-file))) keys)))))<br><br> (defun* tmpize-pathname (x)<br> (make-pathname<br><br><br><br><br><br><br></font></font></font></font></font></font></font></font></div>
<font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif">And here's the diff (<font><font face="comic sans ms,sans-serif">compared with ignoring whitespaces) for easier reading:<br>
<font><font face="comic sans ms,sans-serif">$ git diff -w<br>diff --git a/8.1/quicklisp-client-2012112500/asdf.lisp b/8.1/quicklisp-client-2012112500/asdf.lisp<br>index 283ad86..18e13a2 100644<br>--- a/8.1/quicklisp-client-2012112500/asdf.lisp<br>
+++ b/8.1/quicklisp-client-2012112500/asdf.lisp<br>@@ -3909,13 +3909,16 @@ effectively disabling the output translation facility."<br> (defun* compile-file-pathname* (input-file &rest keys &key output-file &allow-other-keys)<br>
(if (absolute-pathname-p output-file)<br> ;; what cfp should be doing, w/ mp* instead of mp<br>- (let* ((type (pathname-type (apply 'compile-file-pathname "x.lisp" keys)))<br>+ (let* ((type (pathname-type (apply 'compile-file-pathname "x.lisp"<br>
+ (remove-keys '(#+(and allegro (not (version>= 8 2))) :external-format)<br>+ keys))))<br> (defaults (make-pathname<br>
:type type :defaults (merge-pathnames* input-file))))<br> (merge-pathnames* output-file defaults))<br> (apply-output-translations<br> (apply 'compile-file-pathname input-file<br>
- (if output-file keys (remove-keyword :output-file keys))))))<br>+ (remove-keys `(#+(and allegro (not (version>= 8 2))) :external-format<br>+ ,@(unless output-file '(:output-file))) keys)))))<br>
<br> (defun* tmpize-pathname (x)<br> (make-pathname<br><br><br><br></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font><div><div><div><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><font><font face="comic sans ms,sans-serif"><br>
</font></font></font></font></font></font></font></font><div class="gmail_extra"><br clear="all"><div> Best regards,<br>Xiaofeng Yang</div>
<br><br><div class="gmail_quote">2013/1/12 Faré <span dir="ltr"><<a href="mailto:fahree@gmail.com" target="_blank">fahree@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
Dear Xiaofeng,<br>
<br>
assuming it's indeed a bug in allegro 8.1's compile-file-pathname,<br>
can you try to edit the call to compile-file-pathname this way,<br>
in defun compile-file-pathname* ?<br>
<br>
(apply 'compile-file-pathname input-file<br>
(remove-keys `(#+(and allegro (not (version>= 8<br>
2))) :external-format<br>
,@(unless output-file<br>
'(:output-file))) keys))<br>
<div class="im"><br>
—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• <a href="http://fare.tunes.org" target="_blank">http://fare.tunes.org</a><br>
</div>Philosophy is questions that may never be answered.<br>
Religion is answers that may never be questioned.<br>
<div class=""><div class="h5"><br>
<br>
On Sat, Jan 12, 2013 at 12:48 AM, Raymond Toy <<a href="mailto:toy.raymond@gmail.com">toy.raymond@gmail.com</a>> wrote:<br>
>>>>>> "Fare" == Far <Far> writes:<br>
><br>
> Fare> Dear Xf,<br>
> Fare> thanks for the patch. On allegro 8.1, is it only compile-file-pathname<br>
> Fare> that refuses the :external-format argument, or compile-file as well?<br>
> Fare> In the latter case, how does allegro 8.1 control encoding for input<br>
> Fare> files? Does it rely on a special variable?<br>
><br>
> Is this not a bug in Allegro's compile-file-pathname. The CLHS says<br>
> compile-file-pathname should accept all keywords accepted by<br>
> compile-file.<br>
><br>
> The docs for Allegro 8.1[1] says compile-file accepts :external-format.<br>
><br>
> Ray<br>
> [1] <a href="http://www.franz.com/support/documentation/8.1/ansicl/dictentr/compile-.htm" target="_blank">http://www.franz.com/support/documentation/8.1/ansicl/dictentr/compile-.htm</a><br>
><br>
><br>
><br>
><br>
> _______________________________________________<br>
> asdf-devel mailing list<br>
> <a href="mailto:asdf-devel@common-lisp.net">asdf-devel@common-lisp.net</a><br>
> <a href="http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel" target="_blank">http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel</a><br>
</div></div></blockquote></div><br></div></div></div></div></div>