Library test part 3

    ((martha 'return-book) lcbook mylib)
    ((martha 'return-book) plbook mylib)
    ((charly 'return-book) chbook mylib)
    ((charly 'return-book) lcbook  mylib)
    (print " ")
;
    (print "begin of net-library")
    ((mylib 'show-books))
    (print "end of net-library")
    (print " ")
    (print "begin of charly")
    ((charly 'show-books))
    (print "end of charly")
    (print " ")
    (print "begin of martha")
    ((martha 'show-books))
    (print "end of martha")
    ))

Georg P. Loczewski 2004-03-05

Impressum und Datenschutz