[Openmcl-cvs-notifications] r12701 - /trunk/source/cocoa-ide/hemlock/src/charprops.lisp

[rme at clozure.com]

Author: rme
Date: Thu Aug 27 10:17:51 2009
New Revision: 12701

Log:
Last change (r12700) was misparenthesized.

Modified:
    trunk/source/cocoa-ide/hemlock/src/charprops.lisp

Modified: trunk/source/cocoa-ide/hemlock/src/charprops.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/cocoa-ide/hemlock/src/charprops.lisp (original)
+++ trunk/source/cocoa-ide/hemlock/src/charprops.lisp Thu Aug 27 10:17:51 2=
009
@@ -296,8 +296,8 @@
     ;; some early-out special cases
     (cond ((null changes)
            (return-from copy-line-charprops))
-          ((and (=3D start 0) (null end)))
-           (return-from copy-line-charprops (copy-charprops-changes change=
s)))
+          ((and (=3D start 0) (null end))
+           (return-from copy-line-charprops (copy-charprops-changes change=
s))))
     (unless end
       (setq end (line-length line)))
     (let* ((new-changes (make-empty-charprops-changes))