#| We will define the following Family Tree functions: make-child, child-name, child-ma, child-pa, child-birthyear, child?, unknown?, and FamTree? |# ;;remember, this structure definition will define the following functions: ;; make-child, child-ma, child-pa, child-birthyear, child? (define-struct child (name ma pa birthyear)) ;;and this defines make-unknown and unknown? (define-struct unknown ()) (define (FamTree? exp) (or (unkown? exp) (child? exp)))