From 400dec5115fd831000d2bda34657b58d7cade88f Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Fri, 11 Jan 2002 16:26:29 +0000 Subject: [PATCH] From Eric Marsden for a bug found by Paolo Amoroso: Bind *tn-ids* and *id-tns* appropriately for apropos so we're not dropped into the debugger. --- compiler/debug.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/debug.lisp b/compiler/debug.lisp index 2c1828050..9deb6ae65 100644 --- a/compiler/debug.lisp +++ b/compiler/debug.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/debug.lisp,v 1.32 2001/03/04 20:12:14 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug.lisp,v 1.33 2002/01/11 16:26:29 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -971,8 +971,8 @@ ;;; (macrolet ((frob (counter vto vfrom fto ffrom) `(progn - (defvar ,vto) - (defvar ,vfrom) + (defvar ,vto (make-hash-table :test #'eq)) + (defvar ,vfrom (make-hash-table :test #'eql)) (declaim (hash-table ,vto ,vfrom)) (defvar ,counter 0) (declaim (fixnum ,counter)) -- GitLab