Changeset 439


Ignore:
Timestamp:
Jan 30, 2004, 3:53:01 PM (21 years ago)
Author:
Gary Byers
Message:

WHITESPACEP looks in readtable.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-reader.lisp

    r6 r439  
    9898
    9999(defun whitespacep (char)
    100   (when (fixnump char) (setq char (%code-char char)))
    101   (%str-member char #.wsp&cr))
     100  (eql $cht_wsp (%character-attribute char (rdtab.ttab *readtable*))))
     101           
     102         
    102103
    103104;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.