Changeset 8741


Ignore:
Timestamp:
Mar 12, 2008, 7:51:42 AM (11 years ago)
Author:
gb
Message:

Fenceposts in ESCAPE-FOREIGN-NAME (propagate to trunk.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/db-io.lisp

    r7609 r8741  
    14681468             (setq state :upper)))
    14691469          (:upper
    1470            (when (lower-case-p ch)
     1470           (unless (upper-case-p ch)
    14711471             (setq state :lower))))))))
    14721472
     
    14891489                    (outch #\<)
    14901490                    (setq state :upper))
    1491                    ((and (lower-case-p ch) (eq state :upper))
     1491                   ((and (not (upper-case-p ch)) (eq state :upper))
    14921492                    (outch #\>)
    14931493                    (setq state :lower)))
Note: See TracChangeset for help on using the changeset viewer.