test-compile-file-failure.lisp 455 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_bytecodes)
8
9
10
  (when (and (eq asdf:*compile-file-failure-behaviour* :error)
             #+ecl (equal (compile-file-type) "fasc"))
    (error 'compile-file-error :description "faking it"))
11
  (warn "Warning."))