diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 7eb27ea12d9ed471ba706df677cc99a7b64f18a1..1acd872291ba8a8bdd9e8e3921b265245ef953b4 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.lisp @@ -1200,7 +1200,7 @@ (let ((*print-level* *error-print-level*) (*print-length* *error-print-length*) (*print-circle* t)) - (format nil " ~S~%"))) + (format nil " ~S~%" form))) ;;; FIND-ERROR-CONTEXT -- Interface