[Openmcl-cvs-notifications] r15237 - /trunk/source/level-1/l1-error-system.lisp

[rme at clozure.com]

Author: rme
Date: Thu Mar  8 20:52:35 2012
New Revision: 15237

Log:
Correct spelling error.

Modified:
    trunk/source/level-1/l1-error-system.lisp

Modified: trunk/source/level-1/l1-error-system.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-error-system.lisp (original)
+++ trunk/source/level-1/l1-error-system.lisp Thu Mar  8 20:52:35 2012
@@ -70,7 +70,7 @@
              (with-slots (source position encoding-name) c
                (format stream "Contents of ~a" source)
                (when position
-                 (format stream ", near ~a ~d," (if (typep source 'stream)=
 "positition" "index") position))
+                 (format stream ", near ~a ~d," (if (typep source 'stream)=
 "position" "index") position))
                (format stream " don't represent a valid character in ~s." =
encoding-name)))))
 =

 =