Skip to content
Snippets Groups Projects
Commit 590952a8 authored by Elias Pipping's avatar Elias Pipping
Browse files

Fix redefinition warning on LispWorks <7

parent acd6f454
No related branches found
No related tags found
No related merge requests found
......@@ -50,8 +50,9 @@ before the image dump hooks are called and before the image is dumped.")
(defvar *image-dump-hook* nil
"Functions to call (in order) when before an image is dumped")
(deftype fatal-condition ()
`(and serious-condition #+ccl (not ccl:process-reset))))
(eval-when (:compile-toplevel :execute)
(deftype fatal-condition ()
`(and serious-condition #+ccl (not ccl:process-reset)))))
;;; Exiting properly or im-
(with-upgradability ()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment