Skip to content
Snippets Groups Projects
Commit 7669bee9 authored by wlott's avatar wlott
Browse files

Added a structure branch to SXHASH.

parent 292c7782
No related branches found
No related tags found
No related merge requests found
...@@ -419,8 +419,8 @@ ...@@ -419,8 +419,8 @@
(list (sxhash-list s-expr depth)) (list (sxhash-list s-expr depth))
(fixnum (fixnum
(ldb sxhash-bits-byte s-expr)) (ldb sxhash-bits-byte s-expr))
#+nil (structure
(structure ???) (internal-sxhash (type-of s-expr) depth))
;; Other-pointer types. ;; Other-pointer types.
(simple-string (sxhash-simple-string s-expr)) (simple-string (sxhash-simple-string s-expr))
(symbol (sxhash-simple-string (symbol-name s-expr))) (symbol (sxhash-simple-string (symbol-name s-expr)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment