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

[rme at clozure.com]

Author: rme
Date: Thu Aug 27 10:11:23 2009
New Revision: 12700

Log:
COPY-LINE-CHARPROPS: Don't try to use #'=3D to compare NIL with 0.
For ticket:591.

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:11:23 2=
009
@@ -296,8 +296,8 @@
     ;; some early-out special cases
     (cond ((null changes)
            (return-from copy-line-charprops))
-          ((and (=3D start 0) (or (=3D 0 end) (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))