diff --git a/uiop/image.lisp b/uiop/image.lisp index fa1e9881c260dd8ed66ec1e09296b82dc5606f3e..025d5a5b8f191aed03108f2abb193498476bded6 100644 --- a/uiop/image.lisp +++ b/uiop/image.lisp @@ -51,7 +51,7 @@ before the image dump hooks are called and before the image is dumped.") "Functions to call (in order) when before an image is dumped") (deftype fatal-condition () - `(and serious-condition #+ccl (not ccl:process-reset)))) + `(and serious-condition #+clozure (not ccl:process-reset)))) ;;; Exiting properly or im- (with-upgradability ()