/[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.7 by pfdietz, Thu Apr 24 03:53:20 2003 UTC revision 1.8 by pfdietz, Thu Apr 24 04:01:46 2003 UTC
# Line 589  Line 589 
589    
590  (declaim (special *class-21-s1-initvar-1* *class-21-s1-initvar-2*))  (declaim (special *class-21-s1-initvar-1* *class-21-s1-initvar-2*))
591    
592  (defclass class-21 ()  (let ((*class-21-s1-initvar-1* 0)
593    ((s1 :initarg :s1  :initarg :s1b)        (*class-21-s1-initvar-2* 0))
594     (s2 :initarg :s1b :initarg :s2))    (declaim (special *class-21-s1-initvar-1* *class-21-s1-initvar-2*))
595    (:default-initargs :s1 (incf *class-21-s1-initvar-1*)    (defclass class-21 ()
596                       :s1b (incf *class-21-s1-initvar-2*)))      ((s1 :initarg :s1  :initarg :s1b)
597         (s2 :initarg :s1b :initarg :s2))
598        (:default-initargs :s1  (incf *class-21-s1-initvar-1*)
599                           :s1b (incf *class-21-s1-initvar-2*))))
600    
601  (deftest class-21.1  (deftest class-21.1
602    (let* ((*class-21-s1-initvar-1* 10)    (let* ((*class-21-s1-initvar-1* 10)
# Line 608  Line 611 
611       *class-21-s1-initvar-2*))       *class-21-s1-initvar-2*))
612    11 21 11 21)    11 21 11 21)
613    
614    (deftest class-21.2
615      (let* ((*class-21-s1-initvar-1* 10)
616             (*class-21-s1-initvar-2* 20)
617             (c (make-instance 'class-21 :s1 'x)))
618        (declare (special *class-21-s1-initvar-1*
619                          *class-21-s1-initvar-2*))
620        (values
621         (slot-value c 's1)
622         (slot-value c 's2)
623         *class-21-s1-initvar-1*
624         *class-21-s1-initvar-2*))
625      x 21 10 21)
626    
627    (deftest class-21.3
628      (let* ((*class-21-s1-initvar-1* 10)
629             (*class-21-s1-initvar-2* 20)
630             (c (make-instance 'class-21 :s1 'x :s1b 'y)))
631        (declare (special *class-21-s1-initvar-1*
632                          *class-21-s1-initvar-2*))
633        (values
634         (slot-value c 's1)
635         (slot-value c 's2)
636         *class-21-s1-initvar-1*
637         *class-21-s1-initvar-2*))
638      x y 10 20)
639    
640    (deftest class-21.4
641      (let* ((*class-21-s1-initvar-1* 10)
642             (*class-21-s1-initvar-2* 20)
643             (c (make-instance 'class-21 :s1b 'y)))
644        (declare (special *class-21-s1-initvar-1*
645                          *class-21-s1-initvar-2*))
646        (values
647         (slot-value c 's1)
648         (slot-value c 's2)
649         *class-21-s1-initvar-1*
650         *class-21-s1-initvar-2*))
651      y y 11 20)
652    
653    (deftest class-21.5
654      (let* ((*class-21-s1-initvar-1* 10)
655                 (*class-21-s1-initvar-2* 20)
656             (c (make-instance 'class-21 :s2 'y)))
657        (declare (special *class-21-s1-initvar-1*
658                          *class-21-s1-initvar-2*))
659        (values
660         (slot-value c 's1)
661         (slot-value c 's2)
662         *class-21-s1-initvar-1*
663         *class-21-s1-initvar-2*))
664      11 y 11 21)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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