387 |
(s1 c)) |
(s1 c)) |
388 |
x) |
x) |
389 |
|
|
390 |
|
;;; |
391 |
|
|
392 |
|
(defclass class-15 () |
393 |
|
((s1 :initarg :allow-other-keys :reader s1))) |
394 |
|
|
395 |
|
(deftest class-15.1 |
396 |
|
(let ((c (make-instance 'class-15))) |
397 |
|
(s1 c)) |
398 |
|
nil) |
399 |
|
|
400 |
|
(deftest class-15.2 |
401 |
|
(let ((c (make-instance 'class-15 :allow-other-keys nil))) |
402 |
|
(s1 c)) |
403 |
|
nil) |
404 |
|
|
405 |
|
(deftest class-15.3 |
406 |
|
(let ((c (make-instance 'class-15 :allow-other-keys t))) |
407 |
|
(s1 c)) |
408 |
|
t) |
409 |
|
|
410 |
|
(deftest class-15.4 |
411 |
|
(let ((c (make-instance 'class-15 :allow-other-keys t |
412 |
|
:allow-other-keys nil))) |
413 |
|
(s1 c)) |
414 |
|
t) |
415 |
|
|
416 |
|
(deftest class-15.5 |
417 |
|
(let ((c (make-instance 'class-15 :allow-other-keys nil |
418 |
|
:allow-other-keys t))) |
419 |
|
(s1 c)) |
420 |
|
nil) |
421 |
|
|
422 |
|
(deftest class-15.6 |
423 |
|
(let ((c (make-instance 'class-15 :allow-other-keys t |
424 |
|
:foo 'bar))) |
425 |
|
(s1 c)) |
426 |
|
t) |
427 |
|
|
428 |
|
(deftest class-15.7 |
429 |
|
(let ((c (make-instance 'class-15 :allow-other-keys t |
430 |
|
:allow-other-keys nil |
431 |
|
:foo 'bar))) |
432 |
|
(s1 c)) |
433 |
|
t) |
434 |
|
|
435 |
|
|
|
|
|
|
|
|