diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index cbf06834a70d49be2207a87e0e0eb3e51854f010..c7579feb9a1f0cfabcd54345b6a6abbc5844ec23 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 b235a61aef49b7b9bbfe67c3deeeca02c4353aff..3f0eb663406a61b13cb37eb8d6957bd0a604790e 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)