From c6079b07ed986e7c0ac14c852d44bddc584c5c3b Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Thu, 18 May 2006 17:04:54 +0000
Subject: [PATCH] Oops.  Fix stupid typo which causes a type error when
 disassembling methods.

---
 compiler/disassem.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp
index e72d63d4e..825734a29 100644
--- a/compiler/disassem.lisp
+++ b/compiler/disassem.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/disassem.lisp,v 1.52 2006/05/09 13:12:23 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.53 2006/05/18 17:04:54 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3051,7 +3051,7 @@
 			(setf first-block-seen-p t))
 		       ((eq kind :external)
 			(let* ((name (c::compiled-debug-function-name fmap-entry))
-			       (flet-p (and (list name)
+			       (flet-p (and (listp name)
 					    (member (car name) '(flet labels)))))
 			  ;; Don't return from loop if this external
 			  ;; entry is an flet or labels entry.  We
-- 
GitLab