/[gcl]/gcl/ansi-tests/defclass-01.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defclass-01.lsp

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

revision 1.5 by pfdietz, Wed Apr 23 04:24:08 2003 UTC revision 1.6 by pfdietz, Wed Apr 23 11:12:35 2003 UTC
# Line 387  Line 387 
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    
       
       

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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