;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
-(in-package "SB!CONDITIONS")
+(in-package "SB!KERNEL")
\f
;;;; restarts
(res restart))))
(res))))
-(defstruct restart
+(defstruct (restart (:copier nil))
name
function
report-function
(defun assert-error (assertion places datum &rest arguments)
(let ((cond (if datum
- (sb!conditions::coerce-to-condition datum
+ (coerce-to-condition datum
arguments
'simple-error
'error)
(defun case-body-error (name keyform keyform-value expected-type keys)
(restart-case
- (error 'sb!conditions::case-failure
+ (error 'case-failure
:name name
:datum keyform-value
:expected-type expected-type