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