next up previous contents index
Next: Test output part 1 Up: 3rd example of object Previous: Library test part 2   Contents   Start

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