From 755a5bc6ccbbebb7f9caf301f310bd4ae3b1348a Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 18 May 2004 02:30:13 +0000 Subject: [PATCH] Enable the sxhash transform for x86 too, to get lazy symbol hash computation. --- compiler/generic/vm-tran.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/generic/vm-tran.lisp b/compiler/generic/vm-tran.lisp index 3d0517706..23608e5b4 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) -- GitLab