Script started on Tue Nov 30 13:44:27 1999
rocky-gw - dutton - exam2 > 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

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

PCL>(load "limerick.l")
Loading limerick.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 5ce408 Finished loading gazonk0.o
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 5cc000 Finished loading gazonk0.o
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 5cc6cc Finished loading gazonk0.o
Finished loading limerick.l
T

PCL>(load word    "word.ba   -bank.l")
Loading word-bank.l
Finished loading word-bank.l
T

PCL>(set    ( pp-display we1 )
|cat|
NIL

PCL>( pp-display we11 )
|higgin||hig|GINLOHI
NIL

PCL>(load "limerick.l")
Loading limerick.l
Finished loading limerick.l
T

PCL>(pp-display we1)
|cat|
NIL

PCL>(pp-display we11)
higginhigGINLOHI
NIL

PCL>(load "limerick.l")
Loading limerick.l
Finished loading limerick.l
T

PCL>(pp-display we1)
|cat|
NIL

PCL>(pp-display we11)
higginhig GIN LO HI 
NIL

PCL>(load "limerick.l")
Loading limerick.l
Finished loading limerick.l
T

PCL>(pp-display we1)
|cat|
NIL

PCL>(pp-display we11)
higgin hig (GIN (LO HI )
NIL

PCL>(load "limerick.l")
Loading limerick.l
Finished loading limerick.l
T

PCL>(pp-display we11)
higgin hig    (GIN    (LO HI )
NIL

PCL>(load "limerick.l")
Loading limerick.l
Finished loading limerick.l
T

PCL>(pp-display we11)
higgin hig GIN LO HI )
NIL

PCL>(load "limerick.l")
Loading limerick.l
Finished loading limerick.l
T

PCL>(pp-display we11)
higgin hig GIN LO HI 
NIL

PCL>(setf lex (make-instance 'lexicon :size 11 :words (list we1 we2 we3 we4 we5
we6 we7 we8 we9 we10 we11) ))
#<LEXICON 21504700>

PCL>(display lex)
|cat|
|hat|
|bat|
|mat|
sunny SUN ny HI LO 
funny FUN ny HI LO 
money MON ey HI LO 
bunny BUN ny HI LO 
piggin pig GIN LO HI 
diggin dig GIN LO HI 
higgin hig GIN LO HI 
NIL

PCL>(setf words (list we1 we2 we3 we4 we5 we6 we7 we8 we9 we10 we11 we12 we13 we14 \
we15 we16 we17 we18 we19 we20 we21 we22 we23 we24 we25 we26 we27 we28 we29 we30\
 we31 we32 we33 we34 we35 we36 we37 we38 we39 we40 we41 we42 we43 we44 we45 we4\
6 we47 we48 we49 we50 we51 we52 we53 we54 we55 we56 we57 we58 we59 we60 we61 we\
62 we63 we64 we65 we66 we67 we68 we69 we70 we71 we72 we73 we74 we75 we76 we77 w\
e78 we79 we80 we81 we82 we83 we84 we85 we86 we87 we89 we90 we91 we92 we93 we94 \
we95 we96 we97 we98 we99 we100) )

Error: The variable |
WE15| is unbound.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by SETF.
Broken at LIST.  Type :H for Help.
PCL>>:q

Top level.
PCL>(setf words (list we1 we2 we3 we4 we5 we6 we7 we8 we9 we10 we11 we12 we13 we14 we15 we16 we17 we18 we19 we20 we21 we22 we23 we24 we25 we26 we27 we28 we29 we30 we31 we32 we33 we34 we35 we36 we37 we38 we39 we40 we41 we42 we43 we44 we45 we46 we47 we48 we49 we5                                                 ^[[A      4 we  46 we  47 we48 we49 we50) )

Error: The variable WEWE46 is unbound.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by SETF.
Broken at LIST.  Type :H for Help.
PCL>>:q

Top level.
PCL>0 we51 we52 we53 we54 we55 we56 we57 we58 we59 we60 we61 we                                                           (setf words (list we1 we2 we3 we4 we5 we6 we7 we8 we9 we10 we11 we12 we13 we
14 we15 we16 we17 we18 we19 we20 we21 we22 we23 we24 we25 we26 we27 we28 we29 we
30 we31 we32 we33 we34 we35 we36 we37 we38 we39 we40 we41 we42 we43 we44 we45 we^[[C    46 we47 we48 we49 we50) )

Error: The variable WE is unbound.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by SETF.
Broken at LIST.  Type :H for Help.
PCL>>:q

Top level.
PCL>(load "ltest.l")
Loading ltest.l
Loading word-bank.l
Finished loading word-bank.l
pp-display we1
|cat|
pp-display we11
higgin hig GIN LO HI 
make lex
display lex
|cat|
|hat|
|bat|
|mat|
sunny SUN ny HI LO 
funny FUN ny HI LO 
money MON ey HI LO 
bunny BUN ny HI LO 
piggin pig GIN LO HI 
diggin dig GIN LO HI 
higgin hig GIN LO HI 
create-lexion   lex2
display lex2
|cat|
|hat|
|bat|
|mat|
sunny SUN ny HI LO 
funny FUN ny HI LO 
money MON ey HI LO 
bunny BUN ny HI LO 
piggin pig GIN LO HI 
diggin dig GIN LO HI 
higgin hig GIN LO HI 
|pat|
|at|
|fat|
|rat|
|sat|
|tat|
|vat|
hunny HUN ny HI LO 
coffeemate COF fee MATE HI LO HI 
ovalate OV a LATE HI LO HI 
tolerate TOL er ATE HI LO HI 
moderate MOD er ATE HI LO HI 
penatrate PEN a TRATE HI LO HI 
pollinate POL lin ATE HI LO HI 
|violate|
|hope|
|float|
|moat|
|boat|
|coat|
|goat|
|note|
|dill|
|bill|
|fill|
frill FR ill HI LO 
|hill|
|gill|
grill GR ill HI LO 
|ill|
|jill|
|kill|
|mill|
|nill|
|pill|
|sill|
|still|
|shrill|
|skill|
|till|
|trill|
|dill|
|will|
fiddle FID dle HI LO 
diddle DID dle HI LO 
middle MID dle HI LO 
riddle RID dle HI LO 
pididle pi DI dle LO HI LO 
kissin kiss IN LO HI 
hissin hiss IN LO HI 
fishin fish IN LO HI 
dissin diss IN LO HI 
missin miss IN LO HI 
kissin IN siss IN HI LO HI 
inside IN side HI LO 
outside OUT side HI LO 
upside UP side HI LO 
downside DOWN side HI LO 
hindside HIND side HI LO 
blindside BLIND side HI LO 
|bring|
|ding|
|fling|
|king|
|kring|
|ping|
|ring|
|sing|
|sling|
|string|
|sting|
|thing|
|wing|
|wring|
|ying|
|zing|
|a|
|are|
|was|
because be CAUSE LO HI 
|is|
|were|
|there|
|once|
|who|
|what|
|where|
|when|
generate-iamb
PIGGIN 

WHO DILL 

RIDDLE 

WRING WHEN 

OUTSIDE 

FUNNY 

DIDDLE 

GILL ZING 

RIDDLE 

generate-anapest
BRING RING THERE 

POLLINATE 

PENATRATE 

BOAT SHRILL A 

WERE FLOAT STRING 

ILL DILL AT 

SHRILL DILL 

WRING DILL 

IS PILL BRING 

Finished loading ltest.l
T

PCL>(load "limerick.l")
Loading limerick.l
Finished loading limerick.l
T

PCL>( defmethod select-rhyme-class
     ( setf rn (random-low-high 1 9) )
       ( cond
         ( ( = rn 1 ) ( setf r 'a ) )
         ( ( = rn 2 ) ( setf r 'b ) )
         ( ( = rn 3 ) ( setf r 'c ) )
         ( ( = rn 4 ) ( setf r 'd ) )
         ( ( = rn 5 ) ( setf r 'e ) )
         ( ( = rn 6 ) ( setf r 'f ) )
         ( ( = rn 7 ) ( setf r 'g ) )
         ( ( = rn 8 ) ( setf r 'h ) )
         ( ( = rn 9 ) ( setf r 'i ) )
       )
    )

Error: 1 is not a legal specializer.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by LOAD-DEFMETHOD.
Broken at REAL-ADD-NAMED-METHOD.  Type :H for Help.
PCL>>:q

Top level.
PCL>^[[A^[[A^[[A^[[A^[[A^[[A                         ( defmethod select-rhyme-class ()
     ( setf rn (random-low-high 1 9) )
       ( cond
         ( ( = rn 1 ) ( setf r 'a ) )
         ( ( = rn 2 ) ( setf r 'b ) )
         ( ( = rn 3 ) ( setf r 'c ) )
         ( ( = rn 4 ) ( setf r 'd ) )
         ( ( = rn 5 ) ( setf r 'e ) )
         ( ( = rn 6 ) ( setf r 'f ) )
         ( ( = rn 7 ) ( setf r 'g ) )
         ( ( = rn 8 ) ( setf r 'h ) )
         ( ( = rn 9 ) ( setf r 'i ) )
       )
    )
#<Standard-Method SELECT-RHYME-CLASS () 30077034>

PCL>(setf x (selc ect-rhyme-class) )
D

PCL>(setf x (select-rhyme-class) )
I

PCL>(load "limerick.l")
Loading limerick.l

Error: Can't get template for (GENERATE-IAMB-1 LEXICON X)
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by FUNCALL.
Broken at DEFMETHOD.  Type :H for Help.
PCL>>:q

Top level.
PCL>(buy  ye)
rocky-gw - dutton - exam2 > exit

rocky-gw - dutton - exam2 > exit

script done on Tue Nov 30 16:45:26 1999