diff --git a/asdf-bundle.lisp b/asdf-bundle.lisp
index 440d7071ad131e9cf8b2d790fbcae76a2a197dc4..c54a0445196afa08c5b5104a64a1530e8f2f34c1 100644
--- a/asdf-bundle.lisp
+++ b/asdf-bundle.lisp
@@ -428,6 +428,10 @@ using WRITE-SEQUENCE and a sensibly sized buffer." ; copied from xcvb-driver
                  :defaults pathname))
 
 (defun combine-fasls (inputs output)
+  #-(or allegro clisp clozure cmu lispworks sbcl scl)
+  (declare (ignore inputs output))
+  #-(or allegro clisp clozure cmu lispworks sbcl scl)
+  (error "~S is not supported on ~A" 'combine-fasls (implementation-type))
   #+clozure (ccl:fasl-concatenate output inputs :if-exists :supersede)
   #+(or allegro clisp cmu sbcl scl) (concatenate-files inputs output)
   #+lispworks
@@ -448,9 +452,7 @@ using WRITE-SEQUENCE and a sensibly sized buffer." ; copied from xcvb-driver
                            :collect `(,(namestring f) :load-only t))))
            (scm:concatenate-system output :fasls-to-concatenate))
       (loop :for f :in fasls :do (ignore-errors (delete-file f)))
-      (ignore-errors (lispworks:delete-system :fasls-to-concatenate))))
-  #-(or allegro clisp clozure cmu lispworks sbcl scl)
-  (error "~S is not supported on ~A" 'combine-fasls (implementation-type)))
+      (ignore-errors (lispworks:delete-system :fasls-to-concatenate)))))
 
 (defun call-with-staging-pathname (pathname fun)
   "Calls fun with a staging pathname, and atomically