50 |
(disassemble-it name)) |
(disassemble-it name)) |
51 |
t nil) |
t nil) |
52 |
|
|
|
(defun (setf disassemble-example-fn) (val arg) |
|
|
(setf (car arg) val)) |
|
|
|
|
53 |
(deftest disassemble.8 |
(deftest disassemble.8 |
54 |
(progn |
(progn |
55 |
(eval '(defun (setf disassemble-example-fn) (val arg) |
(eval '(defun (setf disassemble-example-fn) (val arg) |
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) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|