X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=c9ff756b6be27f9a53015e9984a49cb3a4c380c8;hb=23c0c48f562d7dc5d1615bf13cb831b46c91d106;hp=673d17039912c2a9c59f29f70d603862e29457e3;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 673d170..c9ff756 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -756,7 +756,8 @@ error if any of PACKAGES is not a valid package designator."
       :interactive
       (lambda ()
         (let* ((len (length symbols))
-               (nlen (length (write-to-string len :base 10))))
+               (nlen (length (write-to-string len :base 10)))
+               (*print-pretty* t))
           (format *query-io* "~&~@<Select a symbol to be made accessible in ~
                               package ~A:~2I~@:_~{~{~V,' D. ~S~}~@:_~}~@:>"
                 (package-name package)