1;;;; Common Lisp Object System for CLISP
2;;;; Objects with stable hash code
3;;;; Part 2: Final class definition, make/initialize-instance methods.
4;;;; Bruno Haible 2004-05-15
5
6(in-package "CLOS")
7
8;;; ===========================================================================
9
10;;; Lift the initialization protocol.
11
12(defmethod shared-initialize ((object standard-stablehash) situation &rest args
13                              &key)
14  (apply #'shared-initialize-<standard-stablehash> object situation args))
15
16;;; ===========================================================================
17
18;; Definition of <structure-stablehash>.
19;; Used for (make-hash-table :test 'stablehash-eq).
20(defstruct (structure-stablehash (:predicate nil) (:copier nil))
21  (hashcode (sys::random-posfixnum))) ; GC invariant hash code
22
23;;; ===========================================================================
24