Changeset 7513 for branches/working-0710


Ignore:
Timestamp:
Oct 25, 2007, 12:03:31 AM (12 years ago)
Author:
gb
Message:

Assert that the hash-tables that map non-STANDARD-CHARs to their
upper/lowercase equivalents are readonly.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-1/l1-aprims.lisp

    r7462 r7513  
    18611861          (gethash lower *non-standard-lower-to-upper*) upper)))
    18621862
     1863(assert-hash-table-readonly *non-standard-upper-to-lower*)
     1864(assert-hash-table-readonly *non-standard-lower-to-upper*)
     1865
    18631866(defun %non-standard-upper-case-equivalent (char)
    18641867  (gethash char *non-standard-lower-to-upper*))
Note: See TracChangeset for help on using the changeset viewer.