/[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.9 by pfdietz, Thu Apr 24 11:50:16 2003 UTC revision 1.10 by pfdietz, Thu Apr 24 12:05:24 2003 UTC
# Line 76  Line 76 
76    
77  ;;;;  ;;;;
78    
79  (defclass class-04 () ((s1 :reader s1-r) (s2 :writer s2-w) (s3 :accessor s3-a)))  (defclass class-04 ()
80      ((s1 :reader s1-r) (s2 :writer s2-w) (s3 :accessor s3-a)))
81    
82  ;;; Readers, writers, and accessors  ;;; Readers, writers, and accessors
83  (deftest class-04.1  (deftest class-04.1
# Line 95  Line 96 
96       (s3-a c)))       (s3-a c)))
97    a b c a b d d c e e e)    a b c a b d d c e e e)
98    
99    (deftest class-04.2
100      (notnot-mv (typep #'s1-r 'generic-function))
101      t)
102    
103    (deftest class-04.3
104      (notnot-mv (typep #'s2-w 'generic-function))
105      t)
106    
107    (deftest class-04.4
108      (notnot-mv (typep #'s3-a 'generic-function))
109      t)
110    
111    (deftest class-04.5
112      (notnot-mv (typep #'(setf s3-a) 'generic-function))
113      t)
114    
115  ;;;;  ;;;;
116    
117  (defclass class-05 () (s1 (s2 :allocation :instance) (s3 :allocation :class)))  (defclass class-05 () (s1 (s2 :allocation :instance) (s3 :allocation :class)))

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

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