Parent Directory | Revision Log | 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*)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |