From ba433e581a25d5b8585a670257a001a37d4f9cac Mon Sep 17 00:00:00 2001
From: cwang <cwang>
Date: Thu, 10 Jun 2004 01:36:09 +0000
Subject: [PATCH] Follow the x86 change to symbol format for amd64.

---
 code/symbol.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/code/symbol.lisp b/code/symbol.lisp
index c8be34b61..fb8fd7882 100644
--- a/code/symbol.lisp
+++ b/code/symbol.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/code/symbol.lisp,v 1.36 2004/05/18 01:14:04 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.37 2004/06/10 01:36:09 cwang Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -96,13 +96,13 @@
 
 (defun make-symbol (string)
   "Make and return a new symbol with the STRING as its print name."
-  #-(or gengc x86 sparc) (make-symbol string)
+  #-(or gengc x86 amd64 sparc) (make-symbol string)
   #+gengc (%make-symbol (random most-positive-fixnum) string)
   ;; Initialize the symbol-hash to -1 to make this fast.  It will get
   ;; computed correctly later on.
-  #+(or sparc x86) (%make-symbol -1 string))
+  #+(or sparc x86 amd64) (%make-symbol -1 string))
 
-#+(or gengc x86 sparc)
+#+(or gengc x86 amd64 sparc)
 (defun symbol-hash (symbol)
   "Return the hash value for symbol."
   (symbol-hash symbol))
-- 
GitLab