/[gcl]/gcl/ansi-tests/structures-03.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/structures-03.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by pfdietz, Sat Jan 11 21:27:25 2003 UTC revision 1.9 by pfdietz, Sat Jan 11 23:04:36 2003 UTC
# Line 391  Line 391 
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
# Line 409  Line 410 
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    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26