Changeset 7511 for branches/working-0710


Ignore:
Timestamp:
Oct 24, 2007, 11:08:56 PM (13 years ago)
Author:
gb
Message:

Add READONLY-HASH-TABLE-P and use it in HASH-TABLE's PRINT-OBJECT method.

Location:
branches/working-0710/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-0/l0-hash.lisp

    r7496 r7511  
    17301730    (setf (nhash.read-only hash) nil)
    17311731    t))
     1732
     1733(defun readonly-hash-table-p (hash)
     1734  (unless (hash-table-p hash)
     1735    (report-bad-arg hash 'hash-table))
     1736  (nhash.read-only hash))
  • branches/working-0710/ccl/lib/hash.lisp

    r7482 r7511  
    159159            ':test (hash-table-test table)
    160160            (hash-table-count table)
    161             (hash-table-size table))))
     161            (hash-table-size table))
     162    (when (readonly-hash-table-p table)
     163      (format stream " (Readonly)"))))
    162164
    163165
Note: See TracChangeset for help on using the changeset viewer.