(FILECREATED "13-JUN-83 12:51:36" ("compiled on " {INDIGO}TRUCKIN>TRUCKINV.;5) "10-JUN-83 01:45:51" recompiled exprs: Player.TimeAtStop Player.TurnsAtStop in LOOPSDEMO.SYSOUT dated "11-JUN-83 10:42:10") (FILECREATED "13-JUN-83 12:51:19" {INDIGO}TRUCKIN>TRUCKINV.;5 22762 changes to: (VARS QueryFns) (FNS Player.TimeAtStop Player.TurnsAtStop) previous date: " 9-JUN-83 23:31:22" {INDIGO}TRUCKIN>TRUCKINV.;4) AnyRoadStop D1 (I 3 roomToParkFlg I 2 direction I 1 numMoves I 0 roadStopType F 2 currentPlayer) RHg H@ABClI(12Q FetchMethodOrHelp) (7 AnyRoadStop) NIL Buyers D1 (I 2 includeCDFlg I 1 numMoves I 0 commodityClass F 2 currentPlayer) RHg H@ABlI(12Q FetchMethodOrHelp) (7 Buyers) NIL DirectionOf D1 (I 1 fromRoadStop I 0 toRoadStop F 2 currentPlayer) RHg H@AlI(12Q FetchMethodOrHelp) (7 DirectionOf) NIL Distance D1 (I 1 fromRoadStop I 0 toRoadStop F 2 currentPlayer) RHg H@AlI(12Q FetchMethodOrHelp) (7 Distance) NIL FurthestRoadStop D1 (I 1 fromRoadStop I 0 roadStops F 2 currentPlayer) RHg H@AlI(12Q FetchMethodOrHelp) (7 FurthestRoadStop) NIL ISA D1 (I 1 className I 0 object) 5@dl b`@Hg HAlIo@o (62Q WRITE 35Q FetchMethodOrHelp 11Q GetObjectRec) (32Q InstOf! 17Q instanceTYPE#) (57Q " not an instance." 52Q "Bad call to ISA. ") NearestRoadStop D1 (I 1 fromRoadStop I 0 roadStops F 2 currentPlayer) RHg H@AlI(12Q FetchMethodOrHelp) (7 NearestRoadStop) NIL Nth D1 (I 1 index I 0 lst) @A (4 NTH) NIL NIL NthRoadStop D1 (I 3 roomToParkFlg I 2 fromRoadStop I 1 direction I 0 numMiles F 2 currentPlayer) RHg H@ABClI(12Q FetchMethodOrHelp) (7 NthRoadStop) NIL PricePerUnit D1 (I 0 rs) G@Hg Hg lI@g @g g @i oi i k(103Q TERPRI 76Q PRIN1 65Q PRIN1 56Q GetClassValue 50Q GetClassValue 41Q GetValue 22Q GetObjectRec 12Q FetchMethodOrHelp) (53Q AvgPrice 45Q Commodity 36Q pr 17Q Producer 7 InstOf!) (72Q " is not a producer") RoadStops D1 (I 3 roomToParkFlg I 2 direction I 1 numMoves I 0 roadStopType F 2 currentPlayer) RHg H@ABClI(12Q FetchMethodOrHelp) (7 RoadStops) NIL RoomToParkP D1 (I 0 roadStop) @Hg HkI(12Q FetchMethodOrHelp) (7 RoomToPark?) NIL SUBCLASS D1 (I 1 super I 0 class) 6@dl bd`dHg HAlIo@o (63Q WRITE 36Q FetchMethodOrHelp 11Q GetObjectRec) (33Q Subclass 20Q classTYPE#) (60Q " not a class." 53Q "Bad Arg to SUBCLASS. ") Sellers D1 (I 1 numMoves I 0 commodityClass F 2 currentPlayer) RHg H@AlI(12Q FetchMethodOrHelp) (7 Sellers) NIL Player.AnyRoadStop D1 (P 0 roadStops I 4 roomToParkFlg I 3 direction I 2 numMoves I 1 roadStopType I 0 self) !ABCD XdddkH (36Q Nth 33Q RAND 30Q FLENGTH 11Q RoadStops) NIL NIL Player.DirectionOf D1 (I 2 fromRoadStop I 1 toRoadStop I 0 self) +B@g g bAg Bg gg(37Q GetValue 30Q GetValue 16Q GetValue 10Q GetValue) (50Q BackWard 44Q Forward 34Q milePost 25Q milePost 13Q location 5 truck) NIL Player.Distance D1 (I 2 fromRoadStop I 1 toRoadStop I 0 self) .B@g g bg Ag jHHjH(36Q GetValue 27Q GetValue 17Q GetValue 11Q GetValue) (33Q milePost 24Q milePost 14Q location 6 truck) NIL Player.FurthestRoadStop D1 (P 3 rs P 2 farRS P 1 distance P 0 maxDistance I 2 fromRoadStop I 1 roadStops I 0 self) 8m!B@g g bAdKBBK YHIKJ(47Q Distance 23Q GetValue 15Q GetValue) (20Q location 12Q truck) NIL Player.NearestRoadStop D1 (P 3 rs P 2 nearRS P 1 distance P 0 minDistance I 2 fromRoadStop I 1 roadStops I 0 self) :n!B@g g bAdKBBK YHIKJ(50Q Distance 24Q GetValue 16Q GetValue) (21Q location 13Q truck) NIL Player.NthRoadStop D1 (P 4 k P 0 rs I 4 roomToParkFlg I 3 fromRoadStop I 2 direction I 1 numMiles I 0 self F 5 gameMaster) ~0BgbC@g g bA:Ug bCAkLK'D@HZg JkI0AkbjCjCBoHgHg HLk\H(160Q GetValue 104Q FetchMethodOrHelp 51Q FLENGTH 46Q GetValue 31Q GetValue 23Q GetValue) (155Q prev 150Q next 101Q RoomToPark? 43Q roadStops 26Q location 20Q truck 7 Forward) (142Q (F f Fwd fwd FWD Forward forward FORWARD)) Player.Range D1 (P 0 truck I 0 self) @g Hg Hg (27Q GetClassValue 20Q GetValue 6 GetValue) (24Q Gpm 15Q fuel 3 truck) NIL Player.Range1 D1 (P 0 truck I 0 self F 1 maxMove) @g QHg Hg (34Q MIN 30Q GetClassValue 21Q GetValue 6 GetValue) (25Q Gpm 16Q fuel 3 truck) NIL Player.RoadStops D1 (P 14Q pos P 6 commodity P 5 roadStops P 4 rs P 3 stopPos P 2 startPos P 1 currentPos P 0 allRoadStops I 4 roomToParkFlg I 3 direction I 2 numMoves I 1 roadStopType I 0 self F 15Q gameMaster) Wg  Agb oA BH b@g g g YCodkIB ZC.H IB [HJ \KJ OOCogM oILd`d` _g _OAlODL_g _OkOLMLg Ok_M(323Q GetValue 275Q FetchMethodOrHelp 243Q FetchMethodOrHelp 233Q GetLispClass 173Q DREVERSE 140Q NTH 132Q MIN 124Q FLENGTH 114Q MAX 73Q GetValue 65Q GetValue 57Q GetValue 45Q FLENGTH 36Q WRITE 25Q GetClassRec 7 GetValue) (320Q next 272Q RoomToPark? 240Q Subclass 223Q classTYPE# 214Q instanceTYPE# 70Q milePost 62Q location 54Q truck 20Q RoadStop 4 roadStops) (200Q (F f Fwd fwd FWD Forward forward FORWARD) 164Q (F f Fwd fwd FWD Forward forward FORWARD) 101Q (F f Fwd fwd FWD Forward forward FORWARD) 32Q "Bad call to RoadStops. roadStopType unrecognized: ") Player.Sellers D1 (P 14Q pos P 6 commodity P 5 roadStops P 4 rs P 3 stopPos P 2 startPos P 1 currentPos P 0 allRoadStops I 2 numMoves I 1 commodityClass I 0 self F 15Q gameMaster) Wg  A oi i gA bBH b@g g g YkIB ZH IB [HJ \KJ OO[L_g _OglOLg ^Lg Ok__g _OAlOLg jLMM(273Q GetValue 246Q FetchMethodOrHelp 225Q GetValue 213Q GetClassValue 165Q FetchMethodOrHelp 136Q NTH 130Q MIN 122Q FLENGTH 115Q MAX 105Q GetValue 77Q GetValue 71Q GetValue 57Q FLENGTH 46Q GetObjectRec 35Q TERPRI 30Q PRIN1 16Q GetObjectRec 7 GetValue) (270Q qty 243Q Subclass 222Q next 210Q Commodity 175Q Producer 162Q InstOf! 102Q milePost 74Q location 66Q truck 41Q Commodity 4 roadStops) (24Q "commodityClass in SELLERS is NIL. Assuming $Commodity") Player.TimeAtStop D1 (P 1 loc P 0 truck I 0 self) 8@g QHg Yd[g KglJI\g L@lM(55Q FetchMethodOrHelp 31Q FetchMethodOrHelp 20Q GetValue 6 GetValue) (52Q TimeSpent 36Q RoadStop 26Q InstOf! 15Q location 3 truck) NIL Player.TurnsAtStop D1 (P 1 loc P 0 truck I 0 self) 8@g QHg Yd[g KglJI\g L@lM(55Q FetchMethodOrHelp 31Q FetchMethodOrHelp 20Q GetValue 6 GetValue) (52Q TurnsStayed 36Q RoadStop 26Q InstOf! 15Q location 3 truck) NIL FilterObjs D1 (P 6 object P 5 oBj P 4 classForMethod I 2 objects I 1 selector I 0 self) 0pB&d@hMA MNlKdIHhZH&J(21Q FetchMethodOrHelp) NIL NIL PickHiObj D1 (P 12Q object P 11Q oBj P 10Q classForMethod P 2 hiObject P 1 hiRating P 0 objectRatingPairs I 2 objects I 1 selector I 0 self) PY` B-d_@_h_OA OOlKNMh_M&OX0H ddddNMh_M&OXdd\ILLJ(36Q FetchMethodOrHelp 5 FMAX) NIL NIL PickLowObj D1 (P 12Q object P 11Q oBj P 10Q classForMethod P 2 lowObject P 1 lowRating P 0 objectRatingPairs I 2 objects I 1 selector I 0 self) PY` B-d_@_h_OA OOlKNMh_M&OX0H ddddNMh_M&OXdd\ILLJ(36Q FetchMethodOrHelp 5 FMIN) NIL NIL SortObjsA0227 D1 (L (1 y 0 x)) @ANIL NIL NIL SortObjs D1 (P 7 object P 6 oBj P 5 classForMethod P 0 objectRatingPairs I 2 objects I 1 selector I 0 self) ~ `B&d_@hNA NOlIKJh\J&LX0HddddKJh\J&LXdg 0HdKJh\J&L(142Q SORT 25Q FetchMethodOrHelp) (137Q SortObjsA0227) NIL (PRETTYCOMPRINT TRUCKINVCOMS) (RPAQQ TRUCKINVCOMS ((* Copyright (c) 1983 by Xerox Corporation.) (* Some primitive vocabulary functions for automatic TRUCKIN players. TRUCKIN is a domain for creating mini-expert system for teaching knowledge representation techniques in the Loops programming system. Truckin provides a simple simulation environment for novice Loops users in which small bodies of knowledge can be created and tested interactively. Knowledge in TRUCKIN is in the form of rules for controlling a game piece to "maximize profit.") (CONSTANTS * TRUCKINVCONSTANTS) (FNS * TRUCKINVFNS) (FNS * QueryFns) (FNS * StreamFns))) (RPAQQ TRUCKINVCONSTANTS (forwardSpellings)) (RPAQQ forwardSpellings (F f Fwd fwd FWD Forward forward FORWARD)) (CONSTANTS forwardSpellings) (RPAQQ TRUCKINVFNS (AnyRoadStop Buyers DirectionOf Distance FurthestRoadStop ISA NearestRoadStop Nth NthRoadStop PricePerUnit RoadStops RoomToParkP SUBCLASS Sellers)) (RPAQQ QueryFns (Player.AnyRoadStop Player.DirectionOf Player.Distance Player.FurthestRoadStop Player.NearestRoadStop Player.NthRoadStop Player.Range Player.Range1 Player.RoadStops Player.Sellers Player.TimeAtStop Player.TurnsAtStop)) (RPAQQ StreamFns (FilterObjs PickHiObj PickLowObj SortObjs)) NIL