# FASL compiled from "/home/t/oz/music/Strasheela/strasheela/contributions/anders/OzServer/clients/oz-server-lisp-client/lisp-client.lisp" at Sunday, December 31, 2006 06:59:10 PM [-1] on localhost.localdomain using SBCL version 1.0.1 X86H'(:GENCGC :SB-PACKAGE-LOCKS :SB-UNICODE)LSETL *PACKAGE*OZ8QSB-IMPLR  %DEFPARAMETERQOZ-SERVER-LISP-CLIENTR *DEFAULT-OZ-SERVER*~/.oz/1.3.1/bin/OzServer$$s/home/t/oz/music/Strasheela/strasheela/contributions/anders/OzServer/clients/oz-server-lisp-client/lisp-client.lispQSB-C DEFINITION-SOURCE-LOCATIONRQR( $$$- QLSTRUCTURE-OBJECTR ($$$-QSB-SYS STRUCTURE!OBJECTR ($$$-($$$-18 *DEFAULT-OZ-INIT-FILE*~/.ozrc$$18>#BlispN OZ-SERVERNPORTNFILEN RESULT-FORMATNALLOW-OTHER-KEYSOzServer at port ~a LFORMAT< START-OZ-SERVER###$$'-$ SUPPLIED-P$$$?$$( @$$ FILE-DEFAULTING-TEMP#$ N-SUPPLIED-0#$ N-SUPPLIED-1#$ OZ-SERVER-DEFAULTING-TEMP#c$ PORT-DEFAULTING-TEMP#C$ RESULT-FORMAT-DEFAULTING-TEMP#(G VARARGS-ENTRY)I81 J###*$$'-.$(KNTOPLEVEL TOP-LEVEL-FORMLLET MY-PORT&#<...>PPQRLDEFUNPPTUV81 W(X DEFUN RUN-OZYQ COMPILED-DEBUG-INFOR Q DEBUG-INFOR (\$$$-](^$$$-_1`a;*E@])ˋك vWVS)1ۋ<| u[^_ˉUt}tuePD EM܉UU܃ډUо  E E E EE  EEЋU DMԋUЃU;tZ;tJ;t3;!t#;%tAA /EԉE'EԉEE'EԉEEԉE'}ԃ}s u&}ЉűEEԋEEȋEEċE؉EEE} uыC !  } ^ )AJWE} "EȉE} EPsEPEp܃ =-1 kPs5x E@܃(5MK KCCEC!C܋EC؋9(kPs܃ =kPsEx5AEEIu`EMԉH MAJEEЉE*Ee N $;v :RB5$t Q $ ; v IA.CA5$t Q܃U5YC ]CakPs em N  NQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTER boxed_regionQNRELATIVERalloc_overflow_ecxQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERrQNABSOLUTER boxed_regionRQNRELATIVERalloc_overflow_edxJQNABSOLUTER boxed_regionCQNABSOLUTER boxed_region=QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERsQNABSOLUTERdQNABSOLUTERUQNABSOLUTERIQNABSOLUTER=QNABSOLUTERQNABSOLUTERQNABSOLUTERQNRELATIVERQSB-VM ~ GENERIC-+RQNABSOLUTERQNRELATIVERQ ~ALLOCATE-CONS-TO-ECXRQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTER=VLFUNCTION)L&KEY  OZ-SERVER PORT FILE  RESULT-FORMATL*($$$"$$$$$$$$((8,">#BB--port=  ARG-STRING<--file=--resultFormat=NARGSNGUI? BASH<$#$"$$'-.$$$$M(0 TL-XEP81 $:##$$'-.$$$$M(01"81 ###$$'-.$$$#$$#c(;<"81 ###$$'-$?$$$?$$( $$ FILE-DEFAULTING-TEMP##$ N-SUPPLIED-29#$ N-SUPPLIED-30#C$ OZ-SERVER-DEFAULTING-TEMP#$ PORT-DEFAULTING-TEMP$C$ RESULT-FORMAT-DEFAULTING-TEMP#(H"81 (HLLAMBDAL &OPTIONALPPPP_1;*Eeem*&E@])ˋك vWVS)1ۋ<| u[^_ˉUt}tueD EMЋUЃډUؾ  E E E EE  EE؋U DM܋U؃U;tZ;tJ;!t3;%t#;)tAA /E܉E'E܉EE'E܉EE܉E'}܃}s u}u܋EE؋EE} uC !  } < -AJ<E} u؋܃ 1}u5kPsuU܃ 95kPsU܃ =}5kPsU} $;v [ÉP@x@p@ 5$t U=AEEE'Iu`MpJtEE M N QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTER boxed_regionQNRELATIVERalloc_overflow_ebxQNABSOLUTER boxed_regionQNABSOLUTER boxed_region|QNABSOLUTERQQNABSOLUTERHQNABSOLUTER)QNABSOLUTER!QNABSOLUTERQNABSOLUTERQNABSOLUTERQNRELATIVERQ ~ALLOCATE-CONS-TO-ECXR>QNABSOLUTER7QNABSOLUTER/QNABSOLUTER'QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTER,="$$$$$$$$$$$$$$((@7Starts the OzServer application in its own shell. oz-server is the OzServer application to call (a string). See the OzServer documentation for the meaning of the other arguments. Meanigful values for result-format are "lisp" and "lispWithStrings".$$18,>#BB~{~A~}!<$#$"$$'-.$$$$M(081 $:#$b$$'-.$$$$M$$#$$#(0181 $q#$q$$'-.$$$$c$$$C(81 (_1;* Eeem*EeU}} u!  = u`U} $5;5v 5vƉP@x@ 5$t M MQNABSOLUTER boxed_regionQNRELATIVERalloc_overflow_esiQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQNABSOLUTERQNABSOLUTER,= ARGNAME VALUELVALUESLORLVECTORL CHARACTERL BASE-STRINGLNULL   @  7Z[Aux def] Returns a string "argname value". However, if value is nil then nil is returned.$$18,>#BB~/.bash_profileN INIT-FILE "~a~a~{ ~a~}"!<;; $ /bin/bash -c ~a~% /bin/bash-c # PIPE-INPUT<~a~%L READ-LINE<. ~a; $#$"$$'-.$$$$M(081 $:##$$'-.$$$$M$$#(0181 ###$$'-.$$$$c$$#$$#( ;<!81 "#l##l$$'-$$ DELETED$($$$ ARGS-DEFAULTING-TEMP#$ CMD#$ INIT-FILE-DEFAULTING-TEMP#( (H)81 *(+_1,-;*Eeem*&Ev8])ˋك vWVS)1ۋ<| u[^_ˉ}tue|D UEM MM܃ىM =E  EREMDMM;t2;t,;!t;%tBB  ]}~ uEEu}} uB !  } 5)܃ =-ECEC1kPsUE ܃ '=5u1 kPs܃ 9==uA kPsU)܃ '=E1 kPs܃ U  I kPs= u em܃ =Mu1 kPs MQNABSOLUTERQNABSOLUTERQNABSOLUTERSQNABSOLUTER*QNABSOLUTER"QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTER{QNRELATIVERQ ~ALLOCATE-CONS-TO-EDXR QNABSOLUTERQNABSOLUTERQNABSOLUTER QNABSOLUTERQNABSOLUTERQNABSOLUTER,=C& ARGS GUI?F  INIT-FILEHIJKLMNO$$$$P(Q(R@CSCT7A portable implementation for calling the bash shell. Executes cmd with args and shows the output. If gui? is nil (the default), then the output is written to *standard-output*. Otherwise, the output is written into a special window (presently, this is only supported for LispWorks where a CAPI pane is opened). NB: this function does not return before the cmd is finished -- consider running it is its own thread (e.g. using port:make-process).U$$1V8LREQUIRE SB-BSD-SOCKETS8>Y#BQSB-PCLR YCTORQSB-BSD-SOCKETSR [ INET-SOCKETNTYPENSTREAMNPROTOCOLNTCPa\]^_`b Y ENSURE-CTOR<$#$"$$'-.$(dLMQ SB-KERNELR eMAKE-VALUE-CELLcPPghi81 j(k_1lilm;* Ee܃=5C kPs $;v @@:5$t PЍemQNABSOLUTER boxed_regionzQNRELATIVERalloc_overflow_eaxrQNABSOLUTER boxed_regionkQNABSOLUTER boxed_regioneQNABSOLUTERBQNABSOLUTER5QNABSOLUTER/QNABSOLUTER)=viw7>y#BLCLOSE. See OzServer documentation for details on supported directives.$$1B  READ-FROM-OZ@Reads a lisp expression from a result returned by the Oz server.$$1B  DISCONNECT-OZ/Closes the socket connection with the OzServer.$$1$#$%$$'-.$$$$M(0181 $-#$-$$'-.$(81 $A#$m$$'-.$$$$M(0181 $u#$u$$'-.$(81 ###$$'-.$$$$M$$#$$#(0181 ###$$'-.$$$#$$#(81 #:##$$'-.$$$$M(01(81 ###$$'-.$$$$c$$#(;<(81 #Y##Y$$'-&$$($$ HOST-DEFAULTING-TEMP$C$ PORT-DEFAULTING-TEMP#(H(81 #+##R$$'-.$(LMN OZ-SOCKET-STREAMTPP81 (DEFUN DISCONNECT-OZ_1;#*(Ee@Pu`*:Ee@hPu`*LEe@"u}EE@E܃ =uECkPs܃ UkPsEP!u`*xE@])ˋك vWVS)1ۋ<| u[^_ˉU܃t}؃tuePD EMUE؉E5% E  EuyJMELEE; )t*; -t; 1tJB  ]}~ uu}EE} uB !  ԃ 51ɉjPsU܃ U9kPs܃ =kPs$<+z܃ UuA kPs܃U=E'ICC'MkPsEPem*Ee  $;v :@H5$t EQ $ ; v IA.BA5$t EA܃U5YC ]CakPse $ ; v IA.BA5$t EA܃i5mC qCakPsu $ ; v IA.BA5$t EA܃y5}C CakPs $ ; v IA.BA5$t EA܃5C CakPs em M M M QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTER boxed_regioneQNRELATIVERalloc_overflow_ecx]QNABSOLUTER boxed_regionVQNABSOLUTER boxed_regionPQNABSOLUTER>QNABSOLUTER'QNABSOLUTERQNABSOLUTERQNABSOLUTER QNABSOLUTER boxed_regionQNRELATIVERalloc_overflow_ecxQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTER~QNABSOLUTER boxed_regionOQNRELATIVERalloc_overflow_ecxGQNABSOLUTER boxed_region@QNABSOLUTER boxed_region:QNABSOLUTER(QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTER boxed_regionQNRELATIVERalloc_overflow_ecxQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQNABSOLUTER boxed_regionzQNRELATIVERalloc_overflow_eaxrQNABSOLUTER boxed_regionkQNABSOLUTER boxed_regioneQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTER`QNRELATIVERQ ~ALLOCATE-CONS-TO-EDXR QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTER+QNABSOLUTERQNABSOLUTERQNABSOLUTERQNABSOLUTERzQNABSOLUTER2=0( HOST'&$$$$$$$$$}$$$$$$$$~$$$$$$$a$$$$$$( (@  DIRECTIVE  CODE-STRINGNHLMEMBER  #8,  FEED-FILE> #BBfile <$#$"$$'-.$ $$$M( 081 $6#$\$$'-.$ $$$M$$#(01 81 $c#$c$$'-.$ $$#( 81 (_1;* EeuZem*Eeu$u` M MQNABSOLUTERmQNABSOLUTEReQNABSOLUTER(=  PATH$ $( (!8"#7/Feeds the file path (a string) to the OzServer.$$$ 1%8, FEED-STATEMENT>'#BB statement'<$#$"$$'-.$ $$$M((081 )$6#$\$$'-.$ $$$M$$#(*01&+81 ,$c#$c$$'-.$ $$#(-&81 .(/_10+01;* EeuZem*Eeu$u` M MQNABSOLUTERmQNABSOLUTEReQNABSOLUTER(=5&6$ $7(8(985:5;7;Feeds the statement code-string (a string) to the OzServer.<$$ 1=8, FEED-EXPRESSION>?#BB expression?<<$#$"$$'-.$ $$$M(@081 A$6#$\$$'-.$ $$$M$$#(B01>C81 D$d#$d$$'-.$ $$$C(E>81 F(G_1HCHI;* Eeurem*Eeu<}܃ }kPs1u` M MQNABSOLUTERQNABSOLUTERtQNABSOLUTERkQNABSOLUTER(=N>6$ $$O$ $$P(Q(R8NSNT7Feeds the expression code-string (a string) to the OzServer and returns the result of the expression as Lisp value (the suitable result-format must be set when starting the OzServer).U$$ 1V8, BROWSE-EXPRESSION>X#BBbrowseX<$#$"$$'-.$ $$$M(Y081 Z$6#$\$$'-.$ $$$M$$#([01W\81 ]$c#$c$$'-.$ $$#(^W81 _(`_1a\ab;* EeuZem*Eeu$u` M MQNABSOLUTERmQNABSOLUTEReQNABSOLUTER(=fW6$ $g(h(i8fjfk7hFeeds the expression code-string (a string) to the OzServer and displays the result with the Oz Browser.l$$ 1m8, INSPECT-EXPRESSION>o#BBinspecto<$#$"$$'-.$$$$M(p081 q$6#$\$$'-.$$$$M$$#(r01ns81 t$c#$c$$'-.$$$#(un81 v(w_1xsxy;* EeuZem*Eeu$u` M MQNABSOLUTERmQNABSOLUTEReQNABSOLUTER(=}n6$$~((8}}7$$18, QUIT-OZ>#BBquit<$#$"$$'-.$$$$M(081 $6#$Z$$'-.$$$$M(0181 $^#$^$$'-.$(81 (_1̎;* EeuZem*Eeu'=u` M MQNABSOLUTERlQNABSOLUTERfQNABSOLUTER`QNABSOLUTER(=$$((87;Quits the OzServer (and implicitly closes the connections).$$18+( ## $8%%c&&$"xB"xBQ DEBUG-SOURCER ($$ $-1 ̏ybI1̲m-a?>@