test-compile-file-failure.lisp 464 Bytes
Newer Older
1 2
(in-package :asdf)

3
(eval-when (:compile-toplevel :load-toplevel :execute)
4
  ;; CLISP 2.48 has a bug that makes this test fail. Hopefully, everyone uses 2.49 or better.
5 6
  ;; The ECL bytecode compiler also fails.
  ;; Work around:
7
  #+(and ecl ecl-bytecmp)
8
  (when (and (eq asdf:*compile-file-failure-behaviour* :error)
Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
9
             #+(or clasp ecl) (equal (compile-file-type) "fasc"))
10
    (error 'compile-file-error :description "faking it"))
11
  (warn "Warning."))