;;; Compilation of D:\Home\declarative\assignment\working-code\hidden.lisp, ;;; by nlevine on LispWorks 4.1.19 at 2000/10/24 18:58:51. ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3, GC safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on A  U SYSTEM  MAKE-SAFE-FOR-TAIL-CALLHCOMPILERNOTE-START-OF-FILEL&;%8vuU%RUNTIMEBAD-ARGS-OR-STACKHB COMMON-LISPPATHNAMEDKEYWORD UNSPECIFICCABSOLUTEHome declarative assignment working-code>>EU hiddenlispB ;TC LISPWORKS))TOP-LEVEL-FORM>>>E%= &\.;%8v!uUhh#*BH %IN-PACKAGENEWCL-USERBCB>>>E%= / U BHCOMMON-LISP-USER33ERROR-IN-REQUESTn ;%8vQuLUPPPPPPEEu hhEtjjjuEh/u uY=pE=dh/u WYuy=ptiE=dh.u WEuuuuEE}t1E1\Ej뉉E떋Eɏ$%EEؐ(-8QZrWB'3PROCESS-CALCULATION3HUNT-FOR-TOKENBH3REDISPLAY-CALCULATORSTRING=START1/LENGTHB3GENERATE-CALCULATOR-BODY?3REQUESTSTREAM3HEADER ???? C ?3 OPERATION @3BUILDING @3 BUILDING-END @DBGKK EXTRA-VALS @3TOTAL @3 TOTAL-END @B' @B @??? Q P M H F?B ? vB>v?v{B>U?B>!?B D =B  U BHB+ U BHB+ U BHB+j ;%8vBu=UPPPPut&EEE E%ut:M Muu uuuEuu E%E=u3tvu3Ɓ0u} uZ E pL MuTuupJuuuuuu E%uE E;h E uE[ -FKUa8W *2ARGSH +2ARGSH CHAR-CODE DIGIT-CHAR-PAREFBaddBHB&BclearBB?BBBBB _????&?6 ` ?e 3DIGIT @?6?&??? d b?[ VuB ?<?R{B? JB? *uB??B??{B??=B>_?B>$?B a ^B ^ ;%8vPuKUPhEEuhEhhE(0;@EPYBH3 HTML-LINKRestart calculator.../FORMAT#~&The request ~s cannot be parsed. 3 LINE-BREAK3HEADINGError in requestBB?B B o?? p  >T??? r>?>~B1>,>>B>!>B q nB V;%8(UPPPPPPu EEuhuEEEuu}W}WuE} uu}}EjjhhuEuuhhuEuhEEhhEuu}}}"+(/5@PXc&5BHBTReturn to main demo page/~&+addCclear3LINK-TO-CALCULATORBB3TAG-PARAMETERS ~&<~a~{ ~a~}>STRING-DOWNCASE3CENTERBBB?BB3 NEW-DISPLAYBB ?E???&?6  $?*??6?&???E ?>~BC? >>Ktag @B ??~B??B??B??vKdotimes-fixnum-var- @3I @B  >g?B>\>>B>T>>B>9>>B>,>B $ B Z;%8vMuHUPjhuuuEPu EEEɏD$ %(7AQVBH WRITE-STRING BTB~a/~a/~a/~a.htmlBBV?BB3LINK-TO3TEXTBB ????&?6?F  >;>?F?6?&??? >,>zBT  B :*;%8v,u'UPPPPPPPPPhEt EEEh u Y=p=dE܉E}EEE]M uH;]|QEJ}th}WE&xSEuuEEEt>uE MuDuup:}}P#}+u$h EuE빋] uep\M ub;Ekuhh}Wh] t0E=2ARGSHSPECIALECLUH)DEALLOCATE-RESOURCECLCLHGET-OUTPUT-STREAM-STRINGB)ALLOCATE-RESOURCEUPGRADED-ARRAY-ELEMENT-TYPE SYMBOL-VALUE-1ARGH) *DEFAULT-CHARACTER-ELEMENT-TYPE* STRING-OUTPUT-STREAMSSPRTHBHEVERY ALPHANUMERICPB3FORM-URL-DECODE? STRING?e  E?۶CHAR @B @3INDEX @3DECODED @KOBJ  @KDESC @?e    ?.mB{?mB?~۶B?۶3CODE @B ?RovB?2۶B?'۶B?m=B?6mB? B?ڶB?SjvB?@mB?2 Ҷ{B? jB??B??B? B>z?B>r?B>j?B>)>z?e E B |: ;%8v+u&Uhhhh '-4H LOAD-SCM-INFOC XREF-INFOB$CALLS*B#-BBB=+BBO{PBBOmake-safe-for-tail-call-298B O'PO0P,O 1+$FIXNUM-NOCHECKB SYS-+B>P6BBBBBO REFERENCESBPB CODE-CHAR1+BBB<=CHAR=BhBT>=BBnBVALUES); USING-RESOURCEBeOc CODE-CHAR*B\woLOWoahade %RETAG-SHORTea%RETYPE s CODE-CHAR-NO-CHECK::5>)FIXNUMPB4=P fBBB,Oo8=P feZp bl >=$FIXNUMFUNCALL-WITH-ORIGINAL-FORMn s>=$FIXNUM-NOCHECK{;fS1-ede<ksLISTBBBi3 rWITH-TAGB? >gEPTUUJQURTUUUUUU)EUUUUXREFCBFBBBBB>>EU%MAPBBCYB>>>E%= Av-