diff --git a/compiler/generic/vm-tran.lisp b/compiler/generic/vm-tran.lisp index 3d05177066af13b2a449f41ae01fcf4bca19d90c..23608e5b4d54b4a9f7bdd8f70d684da5c3bc7a9a 100644 --- a/compiler/generic/vm-tran.lisp +++ b/compiler/generic/vm-tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.52 2004/05/17 17:28:35 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.53 2004/05/18 02:30:13 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -424,11 +424,11 @@ (deftransform sxhash ((s-expr) (simple-string)) '(%sxhash-simple-string s-expr)) -#-sparc +#-(or sparc x86) (deftransform sxhash ((s-expr) (symbol)) '(%sxhash-simple-string (symbol-name s-expr))) -#+sparc +#+(or sparc x86) (deftransform sxhash ((s-expr) (symbol)) ;; Pick off the constant case first. (Important!) (if (constant-continuation-p s-expr)