69 |
(eval '(defmethod disassemble-example-fn3 ((x t)(y t)(z t)) (list x y z))) |
(eval '(defmethod disassemble-example-fn3 ((x t)(y t)(z t)) (list x y z))) |
70 |
(disassemble-it 'disassemble-example-fn3)) |
(disassemble-it 'disassemble-example-fn3)) |
71 |
t nil) |
t nil) |
72 |
|
|
73 |
|
;;; Error tests |
74 |
|
|
75 |
|
(deftest disassemble.error.1 |
76 |
|
(signals-error (disassemble) program-error) |
77 |
|
t) |
78 |
|
|
79 |
|
(deftest disassemble.error.2 |
80 |
|
(signals-error (disassemble 'car nil) program-error) |
81 |
|
t) |
82 |
|
|
83 |
|
(deftest disassemble.error.3 |
84 |
|
(check-type-error #'disassemble |
85 |
|
(typef '(or function symbol (cons (eql setf) (cons symbol null))))) |
86 |
|
nil) |
87 |
|
|