/[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.3 by pfdietz, Tue Apr 22 12:06:28 2003 UTC revision 1.4 by pfdietz, Wed Apr 23 03:50:38 2003 UTC
# Line 241  Line 241 
241       (s1 c)))       (s1 c)))
242    t nil x)    t nil x)
243    
244    (deftest class-07.10
245      (let ((c (make-instance 'class-07 :s1a 'x :s2 'y :allow-other-keys nil)))
246        (values (s1 c) (s2 c)))
247      x y)
248    
249    (deftest class-07.11
250      (let ((c (make-instance 'class-07 :s1a 'a :s2 'b :garbage 'z
251                              :allow-other-keys t)))
252        (values (s1 c) (s2 c)))
253      a b)
254    
255    
256  ;;;;  ;;;;
257    
258  (declaim (special *class-08-s2-initvar*))  (declaim (special *class-08-s2-initvar*))
# Line 345  Line 357 
357    (slot-value (make-instance 'class-12 :s1 'y) 's1)    (slot-value (make-instance 'class-12 :s1 'y) 's1)
358    y)    y)
359    
360    ;;;
361    
362    (defclass class-13 ()
363      ((s1 :allocation :class :initarg :s1)))
364    
365    (deftest class-13.1
366      (let ((c1 (make-instance 'class-13))
367            (c2 (make-instance 'class-13 :s1 'foo)))
368        (values
369         (slot-value c1 's1)
370         (slot-value c1 's1)))
371      foo foo)
372    
373    ;;;
374    
375    (defclass class-14 ()
376      ((s1 :initarg nil :reader s1)))
377    
378    (deftest class-14.1
379      (let ((c (make-instance 'class-14 nil 'x)))
380        (s1 c))
381      x)
382    
383    
384            

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

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