Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

(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