0.8.16.6:

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

diff --git a/src/code/defpackage.lisp b/src/code/defpackage.lisp
index cb83743..dfd5b99 100644 (file)
--- a/src/code/defpackage.lisp
+++ b/src/code/defpackage.lisp
@@ -154,7 +154,7 @@
       for z = (remove-duplicates (intersection (cdr x)(cdr y) :test #'string=))
       when z do (error 'simple-program-error
                       :format-control "Parameters ~S and ~S must be disjoint ~
-                                       but have common elements ~%   ~S"
+                                        but have common elements ~%   ~S"
                       :format-arguments (list (car x)(car y) z)))))
 
 (defun stringify-name (name kind)