Changeset 8712


Ignore:
Timestamp:
Mar 11, 2008, 6:37:16 PM (12 years ago)
Author:
gb
Message:

Fenceposts in ESCAPE-FOREIGN-NAME and an aux function, exposed by
some bizarre Windows function names.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/lib/db-io.lisp

    r7609 r8712  
    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.