diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index 0af52519fff2df5b13fac9411e938adba37349f4..61f2e1a4211bbd9cd1a4fc54548965a7c1f05830 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)