X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-defstruct.lisp;h=3937071758563cb12b0dbee688db28c2c7181d45;hb=b0b168c08b31a748150f404398af754f26fd4813;hp=1bec5ca2bde2d1d57174312aea19203daa0919d5;hpb=5ec8d0c1c8b7939818b75118b472fac1af554f9a;p=sbcl.git

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 1bec5ca..3937071 100644
--- 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*))