Contents    Page-10    Prev    Next    Page+10    Index   

Examples ...


(defun t5 (C)
  (DOLIST
    (S (INTERSECTION
         (SUBSET #'(LAMBDA (GLVAR7289)
                     (EQ (GET (PROG1 GLVAR7289)
                              'SEX)
                         'FEMALE))
                 (GET (PROG1 C) 'STUDENTS))
         (SUBSET #'(LAMBDA (GLVAR7290)
                     (>= (STUDENT-AVERAGE 
                          (PROG1 GLVAR7290))
                         95))
                 (GET (PROG1 C) 'STUDENTS))))
    (FORMAT T "~A ~A~%" (GET S 'NAME)
            (STUDENT-AVERAGE S))))

(LAMBDA-BLOCK T5 (C)
  (DOLIST (S (GET C 'STUDENTS))
    (IF (AND (EQ (GET S 'SEX) 'FEMALE)
             (>= (STUDENT-AVERAGE S) 95))
        (FORMAT T "~A ~A~%" (GET S 'NAME)
                (STUDENT-AVERAGE S)))))