<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><br class=""><div><blockquote type="cite" class=""><div class="">On 01 Jan 2015, at 14:33, <<a href="mailto:daiyanh@yahoo.co.jp" class="">daiyanh@yahoo.co.jp</a>> <<a href="mailto:daiyanh@yahoo.co.jp" class="">daiyanh@yahoo.co.jp</a>> wrote:</div><br class="Apple-interchange-newline"><div class=""><div data-externalstyle="false" dir="ltr" style="font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px; font-family: Calibri, Meiryo, 'Segoe UI', 'Microsoft YaHei UI', 'Microsoft JhengHei UI', 'Malgun Gothic', sans-serif; font-size: 12pt;" class=""><div class="">Another example from<span class="Apple-converted-space"> </span><a href="http://www.cliki.net/diff" target="_parent" class="">http://www.cliki.net/diff</a></div><div class="">In the diff.lisp file,</div><div class=""><br class=""></div><div class="">(defmacro do-file-lines ((line-var pathname-var &optional result) &body body)<br class=""> (let ((stream-var (gensym)))<br class=""> `(with-open-file (,stream-var ,pathname-var :direction :input<br class=""> :element-type 'character)<br class=""> (do-stream-lines (,line-var ,stream-var ,result)<br class=""> ,@body))))</div><div class=""><br class=""></div><div class="">(defun diff::intern-files (&rest files)<br class=""> (let ((interner (diff::make-interner))<br class=""> (interned-files nil))<br class=""> (dolist (file files (values interner (nreverse interned-files)))<br class=""> (let ((interned-file nil))<br class=""> (diff::do-file-lines (line file)<br class=""> (let ((code (diff::intern-string interner line)))<br class=""> (push code interned-file)))<br class=""> (push (coerce (nreverse interned-file) 'simple-vector) interned-files)))))</div><div class=""><br class=""></div><div class="">The compiled code refuses to run, presumably choking at the macro expansion above.</div><div class="">If I eval the lower diff::intern-files by c-x c-e, the code runs fine.</div></div></div></blockquote><div><br class=""></div><div><br class=""></div><div>Works for me:</div><div><br class=""></div><div>; SLIME 2014-08-01</div><div>CL-USER> (ql:quickload :diff)</div><div>To load "diff":</div><div> Load 1 ASDF system:</div><div> diff</div><div>; Loading "diff"</div><div>[package cl-ppcre]................................</div><div>[package impl-specific-gray]......................</div><div>[package trivial-gray-streams]....................</div><div>[package diff]......</div><div>(:DIFF)</div><div>CL-USER> (diff::intern-files #P"/tmp/a/a.lisp" #P"/tmp/a/b.lisp")</div><div>#<a DIFF::INTERNER></div><div>(#(0 1 2 3 4 5 6 7) #(0 8 2 9 4 10 6 11))</div><div>CL-USER> (list (lisp-implementation-type) (lisp-implementation-version))</div><div>("ECL" "13.5.1")</div><div>CL-USER> </div><div><br class=""></div><div><div><a href="http://www.centova.com/en/faq/general/troubleshooting/how_to_effectively_report_a_bug_or_problem" class="">http://www.centova.com/en/faq/general/troubleshooting/how_to_effectively_report_a_bug_or_problem</a></div><div class=""><br class=""></div><div class=""><br class=""></div></div><div>-- </div></div><div apple-content-edited="true" class=""><div style="color: rgb(0, 0, 0); letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><div style="color: rgb(0, 0, 0); letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">__Pascal J. Bourguignon__<br class=""><br class=""><br class=""></div></div>
</div>
<br class=""></body></html>