/[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.2 by pfdietz, Tue Apr 22 05:00:21 2003 UTC revision 1.3 by pfdietz, Tue Apr 22 12:06:28 2003 UTC
# Line 233  Line 233 
233       (s2 c)))       (s2 c)))
234    t t b a)    t t b a)
235    
236    (deftest class-07.9
237      (let ((c (make-instance 'class-07 :s1b 'x :s1a 'y)))
238        (values
239         (notnot (slot-boundp c 's1))
240         (slot-boundp c 's2)
241         (s1 c)))
242      t nil x)
243    
244  ;;;;  ;;;;
245    
246  (declaim (special *class-08-s2-initvar*))  (declaim (special *class-08-s2-initvar*))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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