Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED " 9-DEC-77 09:55:00" <LISPUSERS>SKIPTRAILER.;2 760
changes to: SKIPTRAILERCOMS
previous date: " 9-DEC-77 09:50:15" <LISPUSERS>SKIPTRAILER.;1)
(PRETTYCOMPRINT SKIPTRAILERCOMS)
(RPAQQ SKIPTRAILERCOMS ((P (SETSYNTAX 26 (QUOTE (SPLICE SKIPTRAILER))
FILERDTBL))
(FNS SKIPTRAILER)
(LOCALVARS . T)))
(SETSYNTAX 26 (QUOTE (SPLICE SKIPTRAILER))
FILERDTBL)
(DEFINEQ
(SKIPTRAILER
[LAMBDA (FILE RDTBL) (* rmk: " 7-DEC-76 15:48:02")
(* Skips Bravo trailers on file input)
(until (READC FILE)='%
])
)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(LOCALVARS . T)
)
(DECLARE: DONTCOPY
(FILEMAP (NIL (423 679 (SKIPTRAILER 435 . 676)))))
STOP