391 |
|
|
392 |
;;; :allow-other-keys turns off keyword error checking, including |
;;; :allow-other-keys turns off keyword error checking, including |
393 |
;;; invalid (nonsymbol) keyword arguments |
;;; invalid (nonsymbol) keyword arguments |
394 |
(deftest structure-boa-test-16/9 |
;;;(deftest structure-boa-test-16/9 |
395 |
(sbt-slots 'sbt-16 (make-sbt-16 :allow-other-keys t :a 3 :b 6 :c 9 1000 1000) |
;;; (sbt-slots 'sbt-16 (make-sbt-16 :allow-other-keys t |
396 |
:a :b :c) |
;;; :a 3 :b 6 :c 9 1000 1000) |
397 |
(3 6 9)) |
;;; :a :b :c) |
398 |
|
;;; (3 6 9)) |
399 |
|
|
400 |
;;; Repeated keyword arguments are allowed; the leftmost one is used |
;;; Repeated keyword arguments are allowed; the leftmost one is used |
401 |
(deftest structure-boa-test-16/10 |
(deftest structure-boa-test-16/10 |
410 |
(1 2 3)) |
(1 2 3)) |
411 |
|
|
412 |
;; Checking of # of keywords is suppressed when :allow-other-keys is true |
;; Checking of # of keywords is suppressed when :allow-other-keys is true |
413 |
(deftest structure-boa-test-16/12 |
;;;(deftest structure-boa-test-16/12 |
414 |
(sbt-slots 'sbt-16 (make-sbt-16 :allow-other-keys t :a 3 :b 6 :c 9 :a) |
;;; (sbt-slots 'sbt-16 (make-sbt-16 :allow-other-keys t :a 3 :b 6 :c 9 :a) |
415 |
:a :b :c) |
;;; :a :b :c) |
416 |
(3 6 9)) |
;;; (3 6 9)) |
417 |
|
|