Commit eb6c36e6 authored by pfdietz's avatar pfdietz
Browse files

Remove unused variable

parent bace75fb
......@@ -164,7 +164,8 @@
;; test of class name as second argument
(deftest change-class.1.12
(let ((obj (make-instance 'change-class-class-01a :b 1))
(new-class (find-class 'change-class-class-01b)))
;; (new-class (find-class 'change-class-class-01b))
)
(values
(eqt obj (change-class obj 'change-class-class-01b :c2 3))
(typep* obj 'change-class-class-01a)
......
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