Skip to content
Snippets Groups Projects
Commit eb6c36e6 authored by pfdietz's avatar pfdietz
Browse files

Remove unused variable

parent bace75fb
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment