Commit 305ae1b4 authored by pfdietz's avatar pfdietz
Browse files

Another :allow-other-keys test.

parent 578d0dcb
......@@ -252,6 +252,13 @@
(values (s1 c) (s2 c)))
a b)
(deftest class-07.12
(let ((c (make-instance 'class-07 :s1a 'd :s2 'c :garbage 'z
:allow-other-keys t
:allow-other-keys nil)))
(values (s1 c) (s2 c)))
d c)
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