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