diff --git a/uiop/lisp-build.lisp b/uiop/lisp-build.lisp index a4df99eb9760af819c8b36aded840b670901e91b..254301cea8f5c9b8340d188c1836a54620ba36d1 100644 --- a/uiop/lisp-build.lisp +++ b/uiop/lisp-build.lisp @@ -497,7 +497,8 @@ possibly in a different process." :element-type *default-stream-element-type* :external-format *utf-8-external-format*) (with-safe-io-syntax () - (write (reify-deferred-warnings) :stream s :pretty t :readably t) + (let ((*read-eval* t)) + (write (reify-deferred-warnings) :stream s :pretty t :readably t)) (terpri s)))) (defun warnings-file-type (&optional implementation-type) @@ -545,7 +546,10 @@ re-intern and raise any warnings that are still meaningful." (reset-deferred-warnings) (dolist (file files) (unreify-deferred-warnings - (handler-case (safe-read-file-form file) + (handler-case + (with-safe-io-syntax () + (let ((*read-eval* t)) + (read-file-form file))) (error (c) ;;(delete-file-if-exists file) ;; deleting forces rebuild but prevents debugging (push c file-errors)