try-recompiling-1.lisp 176 Bytes
Newer Older
1
(in-package :asdf-test)
2

3 4
#+clisp (eval-when (:compile-toplevel) (fmakunbound 'try-recompiling-1))

5 6 7 8 9
(defun try-recompiling-1 ()
  (assert *caught-error*))

(try-recompiling-1)