[Openmcl-cvs-notifications] r11790 - /release/1.3/source/level-1/l1-readloop.lisp

[rme at clozure.com]

Author: rme
Date: Tue Feb 24 17:31:53 2009
New Revision: 11790

Log:
Mergr 11787 from trunk (fix typo)

Modified:
    release/1.3/source/level-1/l1-readloop.lisp

Modified: release/1.3/source/level-1/l1-readloop.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
--- release/1.3/source/level-1/l1-readloop.lisp (original)
+++ release/1.3/source/level-1/l1-readloop.lisp Tue Feb 24 17:31:53 2009
@@ -175,7 +175,7 @@
      (let* ((old-bos *break-on-signals*))
        (when (unknown-ctype-p (let* ((*break-on-signals* nil)) (specifier-=
type old-bos)))
 	 (setq *break-on-signals* nil)
-	 (warn "~S : Ignoring invalid type specifier ~s." '*break-on-signals old-=
bos)))
+	 (warn "~S : Ignoring invalid type specifier ~s." '*break-on-signals* old=
-bos)))
 	 =

    (when (typep condition *break-on-signals*)
      (let ((*break-on-signals* nil))