Fixed Clozure#364

informatimago · May 31, 2021 · 9b934ee · 9b934ee
1 parent 001a59e
commit 9b934ee
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/level-1/l1-error-signal.lisp b/level-1/l1-error-signal.lisp
@@ -87,6 +87,7 @@
                  (simple-file-error (make-condition condition-name
                                              :pathname (car errargs)
                                              :error-type format-string
+                                             :format-control format-string
                                              :format-arguments (cdr errargs)))
                  (undefined-function (make-condition condition-name
                                                      :name (car errargs)))