diff --git a/code/symbol.lisp b/code/symbol.lisp index 47021277f60b8b67c86344533a26e4aacc95a165..5f06b97a280c8ea48a204815a3fb85abe025baa2 100644 --- a/code/symbol.lisp +++ b/code/symbol.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.13 1992/12/11 17:16:00 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.14 1993/05/18 19:54:42 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -98,7 +98,13 @@ (defun make-symbol (string) "Make and return a new symbol with the STRING as its print name." - (make-symbol string)) + #-gengc (make-symbol string) + #+gengc (%make-symbol (random most-positive-fixnum) string)) + +#+gengc +(defun symbol-hash (symbol) + "Return the hash value for symbol." + (symbol-hash symbol)) (defun get (symbol indicator &optional (default nil)) "Look on the property list of SYMBOL for the specified INDICATOR. If this