(when (find-restart 'sb-fasl::object)
(invoke-restart 'sb-fasl::object)))))
(load-and-assert spec fasl fasl))))
+
+(with-test (:name :bug-332)
+ (flet ((stimulate-sbcl ()
+ (let ((filename (format nil "/tmp/~A.lisp" (gensym))))
+ ;; create a file which redefines a structure incompatibly
+ (with-open-file (f filename :direction :output :if-exists :supersede)
+ (print '(defstruct bug-332 foo) f)
+ (print '(defstruct bug-332 foo bar) f))
+ ;; compile and load the file, then invoke the continue restart on
+ ;; the structure redefinition error
+ (handler-bind ((error (lambda (c) (continue c))))
+ (load (compile-file filename))))))
+ (stimulate-sbcl)
+ (stimulate-sbcl)
+ (stimulate-sbcl)))
+
+(defun load-empty-file (type)
+ (let ((pathname (make-pathname :name "load-impure-lisp-empty-temp"
+ :type type)))
+ (unwind-protect
+ (progn
+ (with-open-file (f pathname
+ :if-exists :supersede
+ :direction :output))
+ (handler-case
+ (progn (load pathname) t)
+ (error () nil)))
+ (ignore-errors (delete-file pathname)))))
+
+(with-test (:name (load "empty.lisp"))
+ (assert (load-empty-file "lisp")))
+
+(with-test (:name (load "empty.fasl"))
+ (assert (not (load-empty-file "fasl"))))