Commit a701e279 by Robert Goldman

Another fix for Lispworks.

At least versions of lispworks fail on DEFTYPE nested in EVAL-WHEN :COMPILE-TOPLEVEL. This removes that on Lispworks.
parent 5014310a
......@@ -48,8 +48,9 @@ when the image is restarted, but before the entry point is called.")
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")
"Functions to call (in order) when before an image is dumped"))
(eval-when (#-lispworks :compile-toplevel :load-toplevel :execute)
(deftype fatal-condition ()
`(and serious-condition #+clozure (not ccl:process-reset))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment