always-error.lisp 150 Bytes
Newer Older
1 2 3 4 5 6
(in-package :asdf-test)

(defparameter *always-error-was-read-p* t)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (error "ALWAYS ERROR"))