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