1.0.24.17: grab-bag of fixes to make hpux-os smile

[sbcl.git] / src / code / sxhash.lisp

diff --git a/src/code/sxhash.lisp b/src/code/sxhash.lisp
index 53431b2..dde2e15 100644 (file)
--- 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))