diff --git a/code/ntrace.lisp b/code/ntrace.lisp index a401656db3937dd6ae6a4001319a3d29c34bf975..e481afa0db1bcd902882c69e5cbd70cf7e64c56c 100644 --- a/code/ntrace.lisp +++ b/code/ntrace.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/ntrace.lisp,v 1.38 2007/08/02 21:30:07 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.39 2007/09/13 04:11:44 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -60,7 +60,7 @@ ;;; A hash-table that maps each traced function to the TRACE-INFO. The entry ;;; for a closure is the shared function-entry object. ;;; -(defvar *traced-functions* (make-hash-table :test #'eq)) +(defvar *traced-functions* (make-hash-table :test #'equal)) ;;; The TRACE-INFO structure represents all the information we need to trace a ;;; given function. diff --git a/pcl/braid.lisp b/pcl/braid.lisp index e3596c0e411cee0711eb63207ad22aedf056d9a4..4b1021773f666a6766d0b3f7d4ecc7cb4efcb744 100644 --- a/pcl/braid.lisp +++ b/pcl/braid.lisp @@ -25,7 +25,7 @@ ;;; ************************************************************************* (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.48 2003/08/25 20:10:41 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.49 2007/09/13 04:11:45 rtoy Exp $") ;;; ;;; Bootstrapping the meta-braid. @@ -631,6 +631,7 @@ (setf (kernel::find-class name) kernel-class (kernel:%class-name kernel-class) name))))) +#+nil (defun lisp::sxhash-instance (instance) (get-hash instance)) diff --git a/pcl/low.lisp b/pcl/low.lisp index 0126029bea9ace2f43337a22ec9429f68cedff9d..507693cde01d89d9d7661b551b659d3480f838a6 100644 --- a/pcl/low.lisp +++ b/pcl/low.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.33 2005/08/18 16:55:01 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.34 2007/09/13 04:11:45 rtoy Exp $") ;;; ;;; This file contains optimized low-level constructs for PCL. @@ -319,6 +319,9 @@ the compiler as completely as possible. Currently this means that ((fsc-instance-p ,instance) (fsc-instance-hash ,instance)) (t (internal-error "What kind of instance is this?")))) +(defun lisp::sxhash-instance (instance) + (get-hash instance)) + (defmacro get-slots (inst) `(cond ((std-instance-p ,inst) (std-instance-slots ,inst)) ((fsc-instance-p ,inst) (fsc-instance-slots ,inst))