G- ~ xxxxG.|x||||xG0} ?@ppx@|<<>>>>>>>>~>|>|>|>|>|~x|x|x|x|xxxxxxxpxpx`x@<@>~xG3} ?pax|@|@|@|@||xpp`~@`pppxp|p|p|p|`x@p@?>>>~||||||xx||x<xpppppp ```<`8`x`x@xppGI~"!pp?>>>~||||||xxxxxxpppppp```````~~GL~"!xx?>>>~||||||xxxxxxppp0p0ppp````````@`@`@@?@GN%&~"!||?`?@@?@?`w`gpcpcxaxa|`|@~@~@@?@?@LLll||xxxxxxpp0p0GP" ~"!`x>|>~>>>?~?|?|?|?|?|~|~x|xxxp`xpppppp```````~~GS}"!Aqp{@`~@px|||~>00ppppx8|p~`g@c@~Ga}~@@``@?@@s@@>@||x x x x|8?wxC`Ge}~G@@`>`|`|`|```xxxxxx@|@|>~xGf#"`p`<@<@<@<@<@|xxxxx>x>xsOsOGo}@C`px>x||||x|x|x|x|x|pxpxxpxpx`|@>~xGpqxw~|x@p@p`````````````@@@@@@``>x|?p@``Gr~G@_``s`c`a@@@ppGs|@@@@@@@p~?```ppx~O|CpGt|@@@@||><<<<<8<0p8p0pp p`x`8y@0yp{`{`@>@><<8Gx|`|`ppxx8|p>`@?@s`a`Appx|G-|GA! 8||||~nnnoooGGGGG@@@@@````ppp|~~|GEx|||<<<< ~~~|GF~pxxxxxxx0 ~~~~ @``@GL~@``@0xxxxxxxpGM~?~?~?~?;n;n;n;n9n9n9@N9@N9AN8aN8aN8a8a8s8s8s8;8;8?8?888|~?~?|GT~x|||pxp<p|x|xxxxxx|x|x|x|x|x|x|x|x|x|x|x|x|xx|x|x<p>p`@~G1| ``````````````````````````````G3~ x<@~`~`~`~`<`@@>|x@``pxp|p|p|p|`x`p@>xG4 ?oOO8p`xxxxG5~ @@~xx~@@``ppppxpxpxpp```p@8>~xG6 @a`@ppp>p>`|||x~xyG@{`p~x~x||||||||||||||>x>xp`G@~G7}"!``pp`@@`@@@@880ppppp```````````@GA%!~"!@@@```pppx x x||8~0~0~p`?`?`?@@@@``pppx`?`?GB#~"!|@@@`@p@p@x@x@x@x@x@p@p@`@@@`@p@x@x@|@|@|@|@|@|@|@x@x@p@`~GC$}"!x?~~8p8`x@xxx?8>8~8~||||||||||~~>8?8pp@```p@~?~xGE"~"!``@`@`@`@p@p@p@`0@`0@`0@`@`@`A```A`@`@`@`@`@`@`@8@8@8@x@p@p@p@pppGG'!}"!| ? ~x\`|@|<<?>~ ~ ~ ||||||||~~|~|>|?|||@|`|x|~<?| GI~"!~~@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@~~GK'"~"!~~@x@`@@@@@@8@p@`ApCpGxOx]|X~x~p`?@?@@@@`@`@p@p@x@x@|@~~@~@GL~"!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?GM.+"!@`@``|`|p|p|x|x|||||||~|> |?||8|0|0|@p|@`|``|`@|q@|q|y|{|{||~|~|<|<|p`p`GN%!~"!`pp|x0|0|0~00?0?0@0@0`0p0p0x0|0|0~0~00?00pppppppppppp0GP"~"!x@@@@`@`@p@p@p@p@p@p@`@`@@@x@@@@@@@@@@@@@@~~GR%!~"!p~@@@@@`@p@p@p@p@p@p@`@@@@~p@x@<@>@@@@@@@@@@C@G~~|GS}"!x0~0p8ppp`p`p`p`0p0p0xp~?@`ppxx@x@x@8@8`8`8ppxp~`o@C@~GT$~"!||A||@|x@x`>|`?8|@0|@0@p?`?`?`@@@GY%#"!~`~``?ppx8x0|p~`~`@?@?Cgf~||xxxxxxxxxxxx@@GZ}"!?~?~?|<|8xpxpppp`````@@??~||xxpp``@@??>~~~~G\y" 8p8`0`p@`@`@`|~~~~~?<Ga~p?||>||8g?~|xx x x | ~?\?sxapGb#"`qp@x<>>>>|@xap` ?Gc|>|||xxxxxx|||@>@@|Gd~#"ppppppppppppp|p~ppp>p|p|pxpxpxpxpxpxpxpxp|p|p<pp~xpGe|>@|@|`|`x```xxx|||`>``@|Gf#"|OxxppGgxx|<><|@|@|@|@|@<>~;x008?`p?x||x|pp<p<p<p<p<p<p<p<p<p<p<p<p<p<psOsOGn@`qp@xxxxxxxxxxxxxxxxxccGo~@`>p|x|xx|x|x|x|x|x|x|x||x|x>p`@~Gp`qp@x|>>??>>|@xap`?ppGq~x0~ppp>p|p|p|pxpxpxpxpxpxp|p|p|p>ppp~pxppppppppGr>oOOppGsF?vx~p``p|@x|~~@@@``x~O|CpGt?|| |xGuxxxxxxxxxxxxxxxxxxxC~xGvaax0p``@`@@a@aass~~~<<Gw$"G|?@G|?@>ppxxx |<<G>8F0f0npl`|`x@x@x@pppGxaaxp@`a@sw~~>>og@C@`px|Gyaa80p``@`@@a@aasss~~<<<>008p|`|`}@?G #"|||||| ||||||||||||||||||||||||||||G( {3%``@>><|||||xxxxxxxxxxxxxxxxxxx|||||<>>@``G) ~3%`px<@@@@@@`````````````````@@@@@@<xp`G- |||G.|xxxxxG:|xxxxxxxxxxG;|xxxxxxxxxxpp`GA!#"```ppp>x>x||||||x>x>x>ppp```@@@@@``ppp?x>x>x~||||~x>x>GE{#"||||xxxxxxxxxxxxxxxxxxxxxxxxxxx~~~~~GF{#"ppppxxxxxxxxxxx````xxxxxxxxxxxxxxxxGI|#"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxGL{#"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxppppGM+#|#"``?`?`?`{@{`{@{`{@{`y`{`y`s`y`s`yps`xps`xxc`xxc`xxc`x|c`x|C`x|C`x>C`x>C`x>`x`x`x`x`x`x`x^`x^`x\`x|`x|`xx`xx`GP {#"@`xpxxx|x|x~x>x>x>x>x~x|x|xxxp`@xxxxxxxxxxxxxxxGQ%}&"`x~x`@@``>p>p|x|x|xx|x|x|x|x|x|x|x|x||||x|@x~ax>qp?{p`@`?x@g`pxxGS}#"~@p?xx|xx8ppppx|?p?@`pxx||<<<<@|`xxxxp`@GX!~#"~pp?`?`@@``?p~x|x|}x}pp?`@@@?`?`p}xyxx|p~`~`?@@@?`~p|p|xxxGY!|#"x||~?>>?~||xxApApc`c`c@w@ww>>>>>>>>>>>>>>>Ga~x~|p@`@@@@@@g@?@~@|@x@x@x@|@~?@@?w@G@Ge|~>@~@|`|`x````xxx||`~`?``@~Gl }#"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxGo~@`?p>p|x|xx|x|x|x|x|x|x||x|x~x?p`@~Gp} x|{@|@x`x`xpxpxpxpxpxpxpxpxpx`|`|@{~yxxxxxxxxxxGr }xpyp{pp~~||xxxxxxxxxxxxxxGs~|?|xpp|x?|~@@p|~|pGt||| >~|pG- ~~~~~G.|<~~~~|>|||`|`|`|`|@|@|@|@||?|GF$"!||||||||>|>|||||||||>~~|>||||||||||||pppGI"!```||||||||||||||||||||||||||||```GK-("!`|`|`||@||<|x|p|`|@|||?||@}`_`pp~x|||||~|||||@|?`|`|pcccGL""!ppp|||||||||||||||||||||<|<|<|||||x|x|xxxxGM63"!~`~``|||@|?@|?`|`=|p9|py|xq|xq||a||a|~A|~A|||||N|?^|?||||x|x|p|p|@`||``|@`|@`GN-)"!|~xp@p?`pppxp|p|p~ppp@p?`pppppxp|p~ppppp?ppppp@p|p|p|pGO+$}"!~?@~px|p~`@?@??@```pppppppppp```?@?@?@@?`p~x|~p?@~GP'""!@x|||||@|?@|?@|?@|?@|?@||||~x@|||||||||||||```GR*'"!`x|||~||||||||||~||p|@|`|p|p|x|x|||||||||||||~a~<`x`pGS!}"!c<xxx||~@|@x?|~@@`@`@`@p@p@x|~w`|ax`@GT("}! x~x|x@xx@xx@px@px@`x@`x@xxxxxxxxxxxxxxxxxxpppGV+)"!@@@|x~p~``@@@?@?@?``ppx<x8|x|p~p~`~``@@??GW;4}"!~@p~@p~@pp~xxx|||~@<~@8`8_`x`pppp`p`Oy`?Ny@?n}@~@||xxxp~p~p~`|`|@8@8GX+)"!@~@~@~~@@<?@8?`xppy`{@@``pOxG||~<x@p?`pp~~~Gh #"@@@@@@@@@@@@CxO~^?xp```@@@@@@@@@@@@ypypypGo@pa|~?????~~@~@~@~@~@~@~@~????~a|p@Gs~g<xpppxx|~?```px|cxGt @@@@@@@@@@@@@@@@@@@AAAAAAAc~Gy p?`p?`p?`@``ppx<x8x8|x|p~p~``?@?@><8x~p?`@U  O  w rROKeithM.Corbett r $ SoftwareServicesManager $ VaGigaMosSystems,Inc. V ,LewKasuga , ^GrummanAircraftSystems ^ Bethpage,NY!11714  BMSB05-106 B ^EnclosedisaLambRdatapelabelledO3.0LISP-NewSoft~wareExamplesO.This ^ tapeincludest~woLISPexamplesyRoumay ndhelpful.  =OFIX-WINDO~W-MAKER-CODE.LISP = = = sOThis leconRtainsa avorwindowde nitionthatwasoriginallygen- s )eratedbRytheWindow-Maker.%Annotatedlinesindicatecodethat ) _hasbeenaddedtomakRethewindowtrulyuseful.Thewindow avor _ includesv}ariousoutputpanesandacommandmen~u.  WOTV-EXAMPLES W W W  OThis leisastandalonedemothatillustratesmanyofthestandard  Cpop-upwindoRwtypesthatareav~ailableontheLambda.'Loading C ythe lebringsupeacRhexample,withcommentaryonthetypeof y /inRterface.Theresultsofeachwindowfunctionarealsoprintedafter / etheuser\popsout"ofthewindow. e T|orestoretheexamples,mounRtthetapeontheOsyshostO(theLambdathat  7con~tainsRy~oursite les).Runningin3.1LISP|,executeO(tape:restore- les)O. 7 GBothO.LISPROandO.QFzASLOv~ersions(compiledinLISP3.1)ofeach learerestored G }in~totheOSYS:EXAMPLES;Odirectory|. } T|oreviewanexample,editthesourceinaZMacsbu er.Theeditorcommand COMETA-XLoadFileOwillloadthecompiled le.Iftheexampleis\standalone", C yi.e.itexecutesademo,yRoucanlookintothecodeafterithasrunitscourse. y /Y|ou can also expRerimen~t with executing portions ofthe code in the editor bu er. / ?PleaseletmeknoRwifyouhaveanyfurtherquestions. ? OOKMC O w [[