[Openmcl-cvs-notifications] r11813 - /trunk/source/lib/xref.lisp

[rme at clozure.com]

Author: rme
Date: Thu Mar 12 16:25:34 2009
New Revision: 11813

Log:
WHO-REFERENCES: fix typo in format control string (from Stas Boukarev).

Modified:
    trunk/source/lib/xref.lisp

Modified: trunk/source/lib/xref.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/lib/xref.lisp (original)
+++ trunk/source/lib/xref.lisp Thu Mar 12 16:25:34 2009
@@ -564,7 +564,7 @@
     (format stream "~%~T")
     (if bindings
         (progn
-          (format stream "~A ~:[is bound by;~binds~]:" name inverse)
+          (format stream "~A ~:[is bound by~;binds~]:" name inverse)
           (%print-xref-entries bindings stream verbose))
       (format stream "No ~:[bindings of~;symbols bound by~] ~A were found =
in the database~%"
               inverse name)))