/[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.12 by pfdietz, Sat Apr 26 13:52:12 2003 UTC revision 1.13 by pfdietz, Mon Apr 28 02:28:58 2003 UTC
# Line 791  Line 791 
791       (typep* #'(setf s1-26) 'generic-function)))       (typep* #'(setf s1-26) 'generic-function)))
792    nil x x t)    nil x x t)
793    
794    ;;;
795    
   
   
   
   
     
796    (defclass class-27 ()
797      (a (b :initform 10) (c :initarg :c) (d :initarg :d))
798      (:metaclass standard-class)
799      (:default-initargs :d 17))
800    
801    (deftest class-27.1
802      (let ((class (find-class 'class-27)))
803        (values
804         (subtypep* 'class-27 'standard-object)
805         (subtypep* 'class-27 t)
806         (subtypep* 'class-27 (find-class 'standard-object))
807         (subtypep* 'class-27 (find-class t))
808         (subtypep* class 'standard-object)
809         (subtypep* class t)
810         (subtypep* class (find-class 'standard-object))
811         (subtypep* class (find-class t))))
812      t t t t t t t t)
813    
814    (deftest class-27.2
815      (let ((c (make-instance 'class-27)))
816        (values
817         (slot-boundp* c 'a)
818         (slot-value c 'b)
819         (slot-boundp* c 'c)
820         (slot-value c 'd)))
821      nil 10 nil 17)
822    
823    (deftest class-27.3
824      (let ((c (make-instance 'class-27 :c 26 :d 43)))
825        (values
826         (slot-boundp* c 'a)
827         (slot-value c 'b)
828         (slot-value c 'c)
829         (slot-value c 'd)))
830      nil 10 26 43)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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