From f5502fc59cd7ffa4ac402e0dd11f43b57cce354e Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Wed, 11 May 2005 13:43:53 +0000 Subject: [PATCH] Give a type-error instead of error if we can't disassemble a function. See CLHS entry for DISASSEMBLE. Fixes ansi-test disassemble.error.3 --- compiler/disassem.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index 0af52519f..61f2e1a42 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.48 2005/05/06 16:41:09 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.49 2005/05/11 13:43:53 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3260,7 +3260,11 @@ (eq (car thing) 'lisp::lambda)) (compile nil thing)) (t - (error "Can't make a compiled function from ~S" name)))) + (error 'simple-type-error + :datum name + :expected-type '(satisfies valid-function-name-p) + :format-control "Can't make a compiled function from ~S" + :format-arguments (list name))))) (defun disassemble (object &key (stream *standard-output*) (use-labels t) -- GitLab