From 659663df1e7f15b3d02fa925492167717fb6cc66 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Fri, 14 Feb 2003 17:21:54 +0000 Subject: [PATCH] * compiler/disassem.lisp (compiled-function-or-lose): Use valid-function-name-p. * compiler/fndb.lisp (disassemble): First arg is an extended function designator, according to ANSI, which includes lists. --- compiler/disassem.lisp | 6 ++---- compiler/fndb.lisp | 7 ++++--- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index cbf06834a..c7579feb9 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.34 2003/01/06 15:10:17 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.35 2003/02/14 17:21:54 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3217,9 +3217,7 @@ (compile nil lambda))) (defun compiled-function-or-lose (thing &optional (name thing)) - (cond ((or (symbolp thing) - (and (listp thing) - (eq (car thing) 'lisp:setf))) + (cond ((valid-function-name-p thing) (compiled-function-or-lose (fdefinition thing) thing)) ((eval:interpreted-function-p thing) (compile-function-lambda-expr thing)) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index b235a61ae..3f0eb6634 100644 --- a/compiler/fndb.lisp +++ b/compiler/fndb.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/fndb.lisp,v 1.104 2003/02/09 17:36:08 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.105 2003/02/14 17:21:54 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1058,8 +1058,9 @@ (:external-format (member :default))) (values (or pathname null) boolean boolean)) -(defknown disassemble (callable &key (:stream stream) (:backend backend) - (:use-labels t)) +(defknown disassemble ((or callable cons) + &key (:stream stream) (:backend backend) + (:use-labels t)) (values)) (defknown documentation (t symbol) -- GitLab