Commit a701e279 authored by Robert Goldman's avatar Robert Goldman
Browse files

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))))
Supports Markdown
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