(FILECREATED " 2-Apr-85 16:45:37" {PHYLUM}<PEDERSEN>LISP>INSPECTROWS.;3
 728    

      changes to:  (FILEVARS INSPECTROWSCOMS)

      previous date: " 2-Apr-85 14:29:12" {PHYLUM}<PEDERSEN>LISP>INSPECTROWS.;2)


(PRETTYCOMPRINT INSPECTROWSCOMS)

(RPAQQ INSPECTROWSCOMS
 ((ADDVARS (INSPECTMACROS (ROWHEADER GETROWHEADERPROPS GETRELT SETRELT)))
			(FNS GETROWHEADERPROPS)))

(ADDTOVAR INSPECTMACROS
 (ROWHEADER GETROWHEADERPROPS GETRELT SETRELT))
(DEFINEQ

(GETROWHEADERPROPS

  [LAMBDA (ROWHEADER)                                        (* jop: "15-Mar-85 14:11")

    (
PROG
 ((N (fetch
 NELTS of
 ROWHEADER)))
          (
RETURN
 (for
 I from
 1 to
 N collect
 I])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (456 706 (GETROWHEADERPROPS 466 . 704)))))
STOP