X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpprint.lisp;fp=src%2Fcode%2Fpprint.lisp;h=74c368c966d3882d8062c4940ef31bcc54d73a65;hb=e303f38caaf6055614e7cf5cc542cfb7da22d070;hp=89bac81df5bb0bf9ca0566e13cf6f9cb2536ad7f;hpb=4c4e3579b97003e54b747fa9c1fb70c761026b31;p=sbcl.git

diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp
index 89bac81..74c368c 100644
--- a/src/code/pprint.lisp
+++ b/src/code/pprint.lisp
@@ -1241,7 +1241,7 @@ line break."
 (defun pprint-defpackage (stream list &rest noise)
   (declare (ignore noise))
   (funcall  (formatter
-             "~:<~W~^ ~3I~:_~W~^~1I~@{~:@_~:<~W~^ ~:I~@_~@{~W~^ ~_~}~:>~}~:>")
+             "~:<~W~^ ~3I~:_~W~^~1I~@{~:@_~:<~^~W~^ ~:I~@_~@{~W~^ ~_~}~:>~}~:>")
             stream
             list))