Newer
Older
Francois-Rene Rideau
committed
(in-package :asdf)
Francois-Rene Rideau
committed
#-gcl<2.7
(assert (handler-case
(let ((*compile-file-failure-behaviour* :warn))
(load-system 'test-compile-file-failure :force t)
t)
(compile-file-error () nil)))
#-gcl<2.7
(assert (handler-case
(let ((*compile-file-failure-behaviour* :error))
(load-system 'test-compile-file-failure :force t)
nil)
(compile-file-error () t)))