/[cmucl]/src/pcl/env.lisp
ViewVC logotype

Diff of /src/pcl/env.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6.1.1 by ram, Mon Nov 9 15:41:18 1992 UTC revision 1.6.1.2 by wlott, Fri Dec 18 08:45:11 1992 UTC
# Line 212  Line 212 
212    
213  #+cmu  #+cmu
214  (defmethod describe-object ((object hash-table) stream)  (defmethod describe-object ((object hash-table) stream)
215    (format stream "~&~S is an ~a hash table." object (lisp::hash-table-kind object))    (format stream "~&~S is an ~a hash table." object (hash-table-test object))
216    (format stream "~&Its size is ~d buckets." (lisp::hash-table-size object))    (format stream "~&Its size is ~d buckets." (hash-table-size object))
217    (format stream "~&Its rehash-size is ~d." (lisp::hash-table-rehash-size object))    (format stream "~&Its rehash-size is ~d." (hash-table-rehash-size object))
218    (format stream "~&Its rehash-threshold is ~d."    (format stream "~&Its rehash-threshold is ~d."
219            (lisp::hash-table-rehash-threshold object))            (hash-table-rehash-threshold object))
220    (format stream "~&It currently holds ~d entries."    (format stream "~&It currently holds ~d entries."
221            (lisp::hash-table-number-entries object)))            (lisp::hash-table-number-entries object)))
222    

Legend:
Removed from v.1.6.1.1  
changed lines
  Added in v.1.6.1.2

  ViewVC Help
Powered by ViewVC 1.1.5