0.pre7.86.flaky7.26:

[sbcl.git] / src / code / target-defstruct.lisp

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 1bec5ca..3937071 100644 (file)
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -444,7 +444,7 @@
        (*print-pretty*
         (%default-structure-pretty-print structure stream))
        (t
-        (%default-structure-ugly-print structure-stream))))
+        (%default-structure-ugly-print structure stream))))
 (def!method print-object ((x structure-object) stream)
   (default-structure-print x stream *current-level*))