diff --git a/ansi-tests/disassemble.lsp b/ansi-tests/disassemble.lsp index 4596c63469980e0368213cb524dd34aced5223c3..36f436b35d0865bd5558da320bd855aec8181277 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