70 |
(disassemble-it 'disassemble-example-fn3)) |
(disassemble-it 'disassemble-example-fn3)) |
71 |
t nil) |
t nil) |
72 |
|
|
73 |
|
(deftest disassemble.11 |
74 |
|
(let ((fn 'disassemble-example-fn4)) |
75 |
|
(when (fboundp fn) (fmakunbound fn)) |
76 |
|
(eval `(defun ,fn (x) x)) |
77 |
|
(let ((is-compiled? (typep (symbol-function fn) 'compiled-function))) |
78 |
|
(multiple-value-call |
79 |
|
#'values |
80 |
|
(disassemble-it fn) |
81 |
|
(if is-compiled? (notnot (typep (symbol-function fn) 'compiled-function)) |
82 |
|
(not (typep (symbol-function fn) 'compiled-function)))))) |
83 |
|
t nil t) |
84 |
|
|
85 |
;;; Error tests |
;;; Error tests |
86 |
|
|
87 |
(deftest disassemble.error.1 |
(deftest disassemble.error.1 |