Commit 659663df authored by gerd's avatar gerd
Browse files

* 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.
parent 37fd9e84
......@@ -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))
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment