diff --git a/code/hash.lisp b/code/hash.lisp index bd179ebe222aa281b46e8d52f7b4b4495802db65..de2c3ad72b6e11534282970cf8c3eb1f33347847 100644 --- a/code/hash.lisp +++ b/code/hash.lisp @@ -419,8 +419,8 @@ (list (sxhash-list s-expr depth)) (fixnum (ldb sxhash-bits-byte s-expr)) - #+nil - (structure ???) + (structure + (internal-sxhash (type-of s-expr) depth)) ;; Other-pointer types. (simple-string (sxhash-simple-string s-expr)) (symbol (sxhash-simple-string (symbol-name s-expr)))