0.pre7.81:

[sbcl.git] / src / code / print.lisp

diff --git a/src/code/print.lisp b/src/code/print.lisp
index d61a992..205afbe 100644 (file)
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -418,7 +418,7 @@
           ;; if it is a compound object it might contain a circular
           ;; reference to itself or multiple shared references.
           (or *circularity-hash-table*
-              (compound-object-p x))
+              (compound-object-p object))
           (check-it stream))
          (t
           (print-it stream)))))