From 0583cf0977d897a8b2100a6f3737198cf6d1dc9b Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 18 May 1993 19:54:42 +0000 Subject: [PATCH] Added symbol-hash. --- code/symbol.lisp | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/code/symbol.lisp b/code/symbol.lisp index 47021277f..5f06b97a2 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 -- GitLab