$?@image{-core "${image-path}" -eval "${image-restore}" |
-batch -noinit -quiet
-eval "(handler-bind
- ((warning
- (lambda (#0=#:c)
- (declare (ignore #0#))
- (invoke-restart
- 'muffle-warning))))
+ ((warning #'muffle-warning))
(setf ext:*require-verbose* nil)
${run-script-prelude}
${clear-cl-user})"}