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