Commit ac763c46 authored by pfdietz's avatar pfdietz

Remove redundant defun

parent 922065e4
......@@ -50,9 +50,6 @@
(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)
......@@ -72,10 +69,3 @@
(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