Script started on Thu Sep 23 09:37:10 1999
rocky-gw - dutton - chall2 > pcl

GCL (GNU Common Lisp)  Version(2.2) Wed Jan 22 09:55:53 EST 1997
Licensed under GNU Public Library License
Contains Enhancements by W. Schelter

>(load "shapes.l")
Loading shapes.l
Compiling gazonk0.lsp.
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk0.lsp.
Loading gazonk0.o
start address -T 5cd008 Finished loading gazonk0.o
Finished loading shapes.l
T

>(in-package "pcl")
#<"PCL" package>

PCL>(rect 2 4)
#<SHAPES 11606154>

PCL>(display *shaprect*)
(2,4)
NIL

PCL>(area)
area 8
NIL

PCL>(perimeter)
perimeter 12
NIL

PCL>(rect 33 66
)
#<SHAPES 22663314>

PCL>(display *shaprect*)
(33,66)
NIL

PCL>(area)
area 2178
NIL

PCL>(perimeter)
perimeter 198
NIL

PCL>(bye)
rocky-gw - dutton - chall2 > exit

rocky-gw - dutton - chall2 > exit

script done on Thu Sep 23 09:39:32 1999