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