(FILECREATED "24-Mar-87 13:21:03" {DSK}<LISPFILES2>H.BETA>HLOOPS.HKB;2
 848    

      previous date: "24-Mar-87 12:27:15" {DSK}<LISPFILES2>H.BETA>HLOOPS.HKB;1)


(PRETTYCOMPRINT HLOOPSCOMS)

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

(RPAQQ *functions1*
 (H@ H←@ H←))

(RPAQQ *predicates1*
 NIL)

(RPAQQ *variables1*
 (:c))

(RPAQQ *temp-foo*
 ([LAMBDA XX (LET [(l (for I from 1 to XX collect (ARG XX I]
				     (EVAL (APPEND (LIST (QUOTE @))
						   l))
				     T]
		     [LAMBDA XX (LET [(l (for I from 1 to XX collect (ARG XX I]
				     (EVAL (APPEND (LIST (QUOTE ←@))
						   l))
				     T]
		     [LAMBDA XX (LET [(l (for I from 1 to XX collect (ARG XX I]
				     (EVAL (APPEND (LIST (QUOTE ←))
						   l))
				     T]))

(RPAQQ *temp-pred*
 NIL)
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP