Searching Directories Example

>(findpath directory '(/usr bill course cop3212 fall06 grades))

  1> (FINDPATH
         ((/USR (MARK (BOOK CH1.R CH2.R CH3.R)
                      (COURSE (COP3530 (FALL05 SYL.R) (SPR06 SYL.R)
                                       (SUM06 SYL.R)))
                      (JUNK))
                (ALEX (JUNK))
                (BILL (WORK)
                      (COURSE (COP3212 (FALL05 GRADES PROG1.R PROG2.R)
                                       (FALL06 PROG2.R PROG1.R GRADES))))))
         (/USR BILL COURSE COP3212 FALL06 GRADES))
    2> (FINDPATH
           ((MARK (BOOK CH1.R CH2.R CH3.R)
                  (COURSE (COP3530 (FALL05 SYL.R) (SPR06 SYL.R)
                                   (SUM06 SYL.R)))
                  (JUNK))
            (ALEX (JUNK))
            (BILL (WORK)
                  (COURSE (COP3212 (FALL05 GRADES PROG1.R PROG2.R)
                                   (FALL06 PROG2.R PROG1.R GRADES)))))
           (BILL COURSE COP3212 FALL06 GRADES))
      3> (FINDPATH
             ((ALEX (JUNK))
              (BILL (WORK)
                    (COURSE (COP3212 (FALL05 GRADES PROG1.R PROG2.R)
                                     (FALL06 PROG2.R PROG1.R GRADES)))))
             (BILL COURSE COP3212 FALL06 GRADES))
        4> (FINDPATH
               ((BILL (WORK)
                      (COURSE (COP3212 (FALL05 GRADES PROG1.R PROG2.R)
                                       (FALL06 PROG2.R PROG1.R GRADES)))))
               (BILL COURSE COP3212 FALL06 GRADES))