X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-misc.lisp;h=4503861fd58d25740de1c499285117cd1e7b250d;hb=a00ea11a89c9db677e60edf6832c905a4527b5cb;hp=70d6f35816b41bfa27968fba9e31609d14d32a82;hpb=71bc8b09fc75083ea4bb2aee954abca1f1e1f214;p=sbcl.git

diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp
index 70d6f35..4503861 100644
--- a/src/code/cross-misc.lisp
+++ b/src/code/cross-misc.lisp
@@ -201,3 +201,9 @@
   name)
 
 (declaim (declaration enable-package-locks disable-package-locks))
+
+;;; printing structures
+
+(defun sb!kernel::default-structure-print (structure stream depth)
+  (declare (ignore depth))
+  (write structure :stream stream :circle t))