X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsharpm.lisp;h=3f898b0b41a7248c25925152f91a0b4fa5b92e15;hb=b1c7011c1f5d50b9821c07db75b1d5c3c6881062;hp=6bae6346e13ae3f44be154baa5b640f9c66440cb;hpb=848db680b495956ae3968649af260e7448fa8ddc;p=sbcl.git

diff --git a/src/code/sharpm.lisp b/src/code/sharpm.lisp
index 6bae634..3f898b0 100644
--- a/src/code/sharpm.lisp
+++ b/src/code/sharpm.lisp
@@ -217,7 +217,8 @@
 ;; substitutes in arrays and structures as well as lists. The first arg is an
 ;; alist of the things to be replaced assoc'd with the things to replace them.
 (defun circle-subst (old-new-alist tree)
-  (cond ((not (typep tree '(or cons (array t) structure-object standard-object)))
+  (cond ((not (typep tree
+		     '(or cons (array t) structure-object standard-object)))
 	 (let ((entry (find tree old-new-alist :key #'second)))
 	   (if entry (third entry) tree)))
 	((null (gethash tree *sharp-equal-circle-table*))