(FILECREATED " 9-Dec-86 16:51:42" {DSK}<LISPFILES2>H>MAZE.HKB;4
 1337   

      previous date: " 9-Dec-86 13:21:53" {DSK}<LISPFILES2>H>MAZE.HKB;2)


(PRETTYCOMPRINT MAZECOMS)

(RPAQQ MAZECOMS
 (*functions1* *predicates1* *variables1* *temp-foo* *temp-pred*))

(RPAQQ *functions1*
 (PRINT notmember))

(RPAQQ *predicates1*
 (search explore phone door))

(RPAQQ *variables1*
 (:A :w :q :s :v :b :a :start-list :to :from :z :y :list :x))

(RPAQQ *temp-foo*
 [[LAMBDA (x)
			     (PRINTOUT T (EVAL x)
				       T)
			     T]
		     (LAMBDA (x y)
			     (NOT (MEMBER x y])

(RPAQQ *temp-pred*
 [(((search :from :to :start-list)
			<
			(explore :from :to :start-list)
			(phone :to)))
		      [((explore :x :x :list))
		       ((explore :x :y :list)
			<
			(door :x :z)
			(notmember :z :list)
			(PRINT (CONCAT "Entering room " (QUOTE :z)))
			(explore :z :y (:z . :list)))
		       ((explore :x :y :list)
			<
			(door :z :x)
			(notmember :z :list)
			(PRINT (CONCAT "Entering room " (QUOTE :z)))
			(explore :z :y (:z . :list]
		      (((phone g)))
		      (((door a b))
		       ((door a n))
		       ((door b m))
		       ((door b c))
		       ((door m i))
		       ((door c d))
		       ((door d e))
		       ((door e f))
		       ((door f h))
		       ((door h l))
		       ((door l g])
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP