0.8.0.62:

[sbcl.git] / src / compiler / ir1util.lisp

diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index eaf3377..19da60e 100644 (file)
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -1627,6 +1627,8 @@
        `(progn
           (defun ,careful (specifier)
             (handler-case (,basic specifier)
+             (sb!kernel::arg-count-error (condition)
+               (values nil (list (format nil "~A" condition))))
               (simple-error (condition)
                 (values nil (list* (simple-condition-format-control condition)
                                    (simple-condition-format-arguments condition))))))