iGI#<> /usr/stud/gedikli/LISPPRAK/Thermostat.lisp by gedikli on atradig84 at 2003/4/17 17:31:53\ using 6.1 [Linux (x86)] (Oct 11, 2001 18:14).\ Optimization settings at wfasl time: safety=0 space=0 speed=3 debug=1 *)&6.1 [Linux (x86)] (Oct 11, 2001 18:14)eAG190311<*SOURCE-PATHNAME* PATHNAME  UNSPECIFIC ABSOLUTE usrstudgedikliLISPPRAK Thermostatlisp!K(  / UV$VFW{ɋu 0+ @Thermostat.lispLN<TOP-LEVEL-FORM <QAG190312@<USERINTERNAL-IN-PACKAGE / UV$F׋^W'ɋu 0+ @<TOP-LEVEL-FORM <Q@COMMON-LISP-USERERRORVAL ?e4@RANDOM /b1UV,tȀuHu3ɋuËЉU3W'^׋ ]u +]p̋Uɋg' VAL0+> @CUTREST ?e4@REVERSE /\UV4EU;}t E3Ҩu ;uɋuËW';u]ItE݋EIuIE3 ]܋[];}u ]u3;E~ȋE^׋@^׋UEUtËU䋟W';u LSTCNT0+> @THERMOFUNCTION ?e4@/_2OP  COPY-STATE CUTREST L>ERRORVAL =/AUVlX[]܋X[]ԋX[[]X[[]؋X[]X[[]̋XE[[E] ]ua+M؉MpW] ]u]M+MMpRE3Ҩu];~fUEW'EE̋UċW' ]u?]+p8FU؋W'E똋EUW'E뚋W';t3뙋ЋEW'؋Ë^` W'ЋE UE]SEԉU^׋]SRW+^3Ҳ(W'UWw]SREWw]SRFU^"׋ ]ug]p`UWw]SF&Uȋ^"׉EE܋IuCE3 ][];}u3Ҳ(u/;}`6_W'E5ЋE؋_W'둋ɋW';t(U ]uA]p:UȃWwEɋuË]܋[SBXSZSZSZS뵋E_W' SYS0+> @AG190321<STATE CHECK-LOCK-DEF-DEFSTRUCT / UV$F^׋ɋuÐ 0+ @TOP-LEVEL-FORM <LN<<QAG190322@STATE TYPE LN<!<RECORD-SOURCE-FILE-1 /(UV,F vRP^׋ɋuÐ 0+ @<<QAG190323STATE TYPE LN<STATE-ROOMTEMP OPERATOR < RECORD-SOURCE-FILE-1 /$UV,FV vRP^׋ɋu 0+ @<<QAG190325 STATE TYPE LN< GET-BUILT-IN-ACCESSOR STATE-ROOMTEMP .INV-SYMBOL-FUNCTION  STATE-OUTTEMP OPERATOR < RECORD-SOURCE-FILE-1 /:UV,^3׋ЋF^W'FV" v&RP^*׋ɋu 0+ @< <QAG190327 STATE TYPE LN< GET-BUILT-IN-ACCESSOR  STATE-OUTTEMP .INV-SYMBOL-FUNCTION  STATE-CONSTIN OPERATOR < RECORD-SOURCE-FILE-1 /:UV,^3 ׋ЋF^W'FV" v&RP^*׋ɋu 0+ @< <QAG190329STATE TYPE LN<GET-BUILT-IN-ACCESSOR  STATE-CONSTIN .INV-SYMBOL-FUNCTION STATE-CONSTOUT OPERATOR <RECORD-SOURCE-FILE-1 /:UV,^3׋ЋF^W'FV" v&RP^*׋ɋu 0+ @<<QAG190331<GET-BUILT-IN-ACCESSOR STATE-CONSTOUT .INV-SYMBOL-FUNCTION /&UV$^3׋ЋF^W'ɋuÐ 0+ @<<QAG190332<STATE-ROOMTEMP  SETF-INVERSE DEFSETF CHECK-LOCK-DEFINITIONS /8UV4FVKW'EFVuWRP^׋ɋuÐ 0+ @<<QAG190333STATE TYPE LN<STATE-ROOMTEMP  SETF-METHOD <RECORD-SOURCE-FILE-1 /$UV,FV vRP^׋ɋu 0+ @<<QAG190334<STATE-ROOMTEMP SETF-METHOD-EXPANDER REMPROP /UV$FV^W'ɋuÐ 0+ @<<QAG190335<DEFSTRUCT-SLOT-DEFSETF-HANDLER STATE-ROOMTEMP  SETF-INVERSE PUTPROP /0UV,F ׋ЋF vRP^׋ɋu 0+ @<<QAG190336</uÐ 0(+ <<QAG190337< STATE-OUTTEMP  SETF-INVERSE DEFSETF CHECK-LOCK-DEFINITIONS /8UV4FVKW'EFVuWRP^׋ɋuÐ 0+ @<<QAG190338STATE TYPE LN< STATE-OUTTEMP  SETF-METHOD <RECORD-SOURCE-FILE-1 /$UV,FV vRP^׋ɋu 0+ @<<QAG190339< STATE-OUTTEMP SETF-METHOD-EXPANDER REMPROP /UV$FV^W'ɋuÐ 0+ @<<QAG190340<DEFSTRUCT-SLOT-DEFSETF-HANDLER  STATE-OUTTEMP  SETF-INVERSE PUTPROP /0UV,F ׋ЋF vRP^׋ɋu 0+ @<<QAG190341</uÐ 0(+ <<QAG190342< STATE-CONSTIN  SETF-INVERSE DEFSETF CHECK-LOCK-DEFINITIONS /8UV4FVKW'EFVuWRP^׋ɋuÐ 0+ @<<QAG190343STATE TYPE LN< STATE-CONSTIN  SETF-METHOD <RECORD-SOURCE-FILE-1 /$UV,FV vRP^׋ɋu 0+ @<<QAG190344 <  STATE-CONSTIN SETF-METHOD-EXPANDER REMPROP /UV$FV^W'ɋuÐ 0+ @< <QAG190345!RECORD-SOURCE-FILE-1 /:UV,^3׋ЋF^W'FV" v&RP^*׋ɋu 0+ @<=<4QAG190378? !(/ !) ! AGENT-PERCEPT CDR CAR !5<_2OP !'.INV-STRUCTURE-REF  COPY-STATE CONS !/+_2OP >_2OP !*/_2OP !, STATE-CONSTIN STATE-CONSTOUT  SYSTEM-AGENT  AGENT-ACTION  STATE-OUTTEMP STATE-ROOMTEMP ENVIRONMENT-STATE SYSTEM-ENVIRONMENT ENVIRONMENT-STATEHISTORY  MAKE-STATE !VECTOR  STRUCTURIFY MAKE-ENVIRONMENT !!U!V!T!/ UV$F^׋ɋuÐ 0+ @32x! SETF-METHOD