From 8d1e5a00baf8f22a9bb925b4ba63aeaa988dbc0e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 22 May 2005 01:06:32 +0000
Subject: [PATCH] Add another test (confirm that disassemble does not cause the
 function being disassembled to itself become compiled

---
 ansi-tests/disassemble.lsp | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/ansi-tests/disassemble.lsp b/ansi-tests/disassemble.lsp
index 4596c634..36f436b3 100644
--- a/ansi-tests/disassemble.lsp
+++ b/ansi-tests/disassemble.lsp
@@ -70,6 +70,18 @@
     (disassemble-it 'disassemble-example-fn3))
   t nil)
 
+(deftest disassemble.11
+  (let ((fn 'disassemble-example-fn4))
+    (when (fboundp fn) (fmakunbound fn))
+    (eval `(defun ,fn (x) x))
+    (let ((is-compiled? (typep (symbol-function fn) 'compiled-function)))
+      (multiple-value-call
+       #'values
+       (disassemble-it fn)
+       (if is-compiled? (notnot (typep (symbol-function fn) 'compiled-function))
+	 (not (typep (symbol-function fn) 'compiled-function))))))
+  t nil t)
+
 ;;; Error tests
 
 (deftest disassemble.error.1
-- 
GitLab