Commit 4e5af1e5 authored by pfdietz's avatar pfdietz

More tests of disassemble, for extended function designators and generic functions.

parent eeb9687b
......@@ -49,3 +49,33 @@
(compile name)
(disassemble-it name))
t nil)
(defun (setf disassemble-example-fn) (val arg)
(setf (car arg) val))
(deftest disassemble.8
(progn
(eval '(defun (setf disassemble-example-fn) (val arg)
(setf (car arg) val)))
(disassemble-it '(setf disassemble-example-fn)))
t nil)
(deftest disassemble.9
(progn
(eval '(defgeneric disassemble-example-fn2 (x y z)))
(disassemble-it 'disassemble-example-fn2))
t nil)
(deftest disassemble.10
(progn
(eval '(defgeneric disassemble-example-fn3 (x y z)))
(eval '(defmethod disassemble-example-fn3 ((x t)(y t)(z t)) (list x y z)))
(disassemble-it 'disassemble-example-fn3))
t nil)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment