Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
(FILECREATED "16-JAN-78 09:36:15" <LISPUSERS>LISTDOC.;7 1283   

     changes to:  LISTDOC

     previous date: " 9-JAN-78 10:42:12" <LISPUSERS>LISTDOC.;4)


(PRETTYCOMPRINT LISTDOCCOMS)

(RPAQQ LISTDOCCOMS ((FNS LISTDOC)))
(DEFINEQ

(LISTDOC
  [LAMBDA (FILES)                                      (* rmk: "16-JAN-78 09:35")
    FILES_(if FILES
	      then (for F X inside FILES
		      join (if X_(INFILEP (PACKFILENAME 'DIRECTORY 'LISPUSERS 'NAME F 'EXTENSION 'TTY)
					  )
			       then <X>
			     else (PRIN1 "Documentation not yet available for " T)
				  (PRINT F T)))
	    else (FILDIR '<LISPUSERS>*.TTY))
    FILES_(for X F in (SORT FILES)
	     join (F_(NAMEFIELD X))
		  (if (INFILEP (PACKFILENAME 'DIRECTORY 'LISPUSERS 'NAME F 'EXTENSION 'BRAVO))
		      then (PRIN1 "There is a .BRAVO file for " T)
			   (PRIN2 F T)
			   (if 'Y =(ASKUSER DWIMWAIT 'N ".  Do you want the .TTY anyway? ")
			       then <X>)
		    else <X>))
    (bind FS_FILES while FS
       do (TENEX (APPLY (FUNCTION CONCAT)
			<'LIST
			  ! (for X in old FS as I from 1 to 12 join <'%  X>) >)
		 T))
    FILES])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (242 1259 (LISTDOC 254 . 1256)))))
STOP