<div dir="ltr">Hi!<div><br></div><div style>In order for these commands to generate a fasl per ASDF system, I had to apply the patch below to ASDF.</div><div style><br></div><div style> $ ./abcl</div><div style> CL-USER(1): :ld c:/users/erik/quicklisp/setup</div>
<div style> CL-USER(2): (ql:quickload :bordeaux-threads)</div><div style> CL-USER(3): (asdf:oos 'asdf:binary-op :bordeax-threads)</div><div style><br></div><div style>The commands above work with current trunk (r14460) and produces 2 concatenated fasls in my cache directory: 1 for alexandria and 1 for bordeaux-threads.</div>
<div style><br></div><div style>This patch is required (also attached, to prevent line wrapping):</div><div style><br></div><div style><div>diff --git a/bundle.lisp b/bundle.lisp</div><div>index 568f894..24fbf90 100644</div>
<div>--- a/bundle.lisp</div><div>+++ b/bundle.lisp</div><div>@@ -185,7 +185,7 @@</div><div>       (or #+ecl (or (equalp type (compile-file-type :type :object))</div><div>                     (equalp type (compile-file-type :type :static-library)))</div>
<div>           #+mkcl (equalp type (compile-file-type :fasl-p nil))</div><div>-          #+(or allegro clisp clozure cmu lispworks sbcl scl xcl) (equalp type (compile-file-type)))))</div><div>+          #+(or abcl allegro clisp clozure cmu lispworks sbcl scl xcl) (equalp type (compile-file-type)))))</div>
<div><br></div><div>   (defgeneric* (trivial-system-p) (component))</div><div><br></div><div>diff --git a/uiop/lisp-build.lisp b/uiop/lisp-build.lisp</div><div>index e2e376d..4b7e819 100644</div><div>--- a/uiop/lisp-build.lisp</div>
<div>+++ b/uiop/lisp-build.lisp</div><div>@@ -669,11 +669,12 @@ it will filter them appropriately."</div><div> ;;; Links FASLs together</div><div> (with-upgradability ()</div><div>   (defun combine-fasls (inputs output)</div>
<div>-    #-(or allegro clisp clozure cmu lispworks sbcl scl xcl)</div><div>+    #-(or abcl allegro clisp clozure cmu lispworks sbcl scl xcl)</div><div>     (error "~A does not support ~S~%inputs ~S~%output  ~S"</div>
<div>            (implementation-type) 'combine-fasls inputs output)</div><div>     #+clozure (ccl:fasl-concatenate output inputs :if-exists :supersede)</div><div>     #+(or allegro clisp cmu sbcl scl xcl) (concatenate-files inputs output)</div>
<div>+    #+abcl (sys:concatenate-fasls inputs output)</div><div>     #+lispworks</div><div>     (let (fasls)</div><div>       (unwind-protect</div><div><br></div><div><br></div></div></div>