49 |
(compile name) |
(compile name) |
50 |
(disassemble-it name)) |
(disassemble-it name)) |
51 |
t nil) |
t nil) |
52 |
|
|
53 |
|
(defun (setf disassemble-example-fn) (val arg) |
54 |
|
(setf (car arg) val)) |
55 |
|
|
56 |
|
(deftest disassemble.8 |
57 |
|
(progn |
58 |
|
(eval '(defun (setf disassemble-example-fn) (val arg) |
59 |
|
(setf (car arg) val))) |
60 |
|
(disassemble-it '(setf disassemble-example-fn))) |
61 |
|
t nil) |
62 |
|
|
63 |
|
(deftest disassemble.9 |
64 |
|
(progn |
65 |
|
(eval '(defgeneric disassemble-example-fn2 (x y z))) |
66 |
|
(disassemble-it 'disassemble-example-fn2)) |
67 |
|
t nil) |
68 |
|
|
69 |
|
(deftest disassemble.10 |
70 |
|
(progn |
71 |
|
(eval '(defgeneric disassemble-example-fn3 (x y z))) |
72 |
|
(eval '(defmethod disassemble-example-fn3 ((x t)(y t)(z t)) (list x y z))) |
73 |
|
(disassemble-it 'disassemble-example-fn3)) |
74 |
|
t nil) |
75 |
|
|
76 |
|
|
77 |
|
|
78 |
|
|
79 |
|
|
80 |
|
|
81 |
|
|