X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsxhash.lisp;h=dde2e15f1b1cfb2d4edea8b7600ea8d877e5f458;hb=30c93105a8bce7b701a5043fb11254f6f1bdd6da;hp=53431b29cee7c309a05d9b3cfdc21092a854c916;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/sxhash.lisp b/src/code/sxhash.lisp
index 53431b2..dde2e15 100644
--- a/src/code/sxhash.lisp
+++ b/src/code/sxhash.lisp
@@ -129,3 +129,9 @@
                   (%set-symbol-hash x sxhash)
                   sxhash)
                 result)))))
+
+(deftransform psxhash ((x &optional depthoid) (character &optional t))
+  `(char-code (char-upcase x)))
+
+(deftransform psxhash ((x &optional depthoid) (integer &optional t))
+  `(sxhash x))