0.8.16.6:

[sbcl.git] / src / compiler / generic / vm-tran.lisp

diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp
index 5be78b7..b8afe8d 100644 (file)
--- a/src/compiler/generic/vm-tran.lisp
+++ b/src/compiler/generic/vm-tran.lisp
@@ -228,7 +228,7 @@
                                          (length bit-array-2)
                                           (length result-bit-array))
                                  (error "Argument and/or result bit arrays are not the same length:~
-                        ~%  ~S~%  ~S  ~%  ~S"
+                         ~%  ~S~%  ~S  ~%  ~S"
                                         bit-array-1
                                        bit-array-2
                                        result-bit-array))))
@@ -278,7 +278,7 @@
         '((unless (= (length bit-array)
                      (length result-bit-array))
             (error "Argument and result bit arrays are not the same length:~
-                    ~%  ~S~%  ~S"
+                     ~%  ~S~%  ~S"
                    bit-array result-bit-array))))
     (let ((length (length result-bit-array)))
       (if (= length 0)