Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED " 6-DEC-79 23:22:05" <LISPUSERS>FILEWONTOPEN.;5 2147Q
changes to: (ERRORTYPELST 11Q)
previous date: "14-JUL-78 04:15:39" <LISPUSERS>FILEWONTOPEN.;4)
(PRETTYCOMPRINT FILEWONTOPENCOMS)
(RPAQQ FILEWONTOPENCOMS ((ALISTS (ERRORTYPELST 11Q))))
(ADDTOVAR ERRORTYPELST (11Q (PROG NIL (OR (IEQP (GETER)
600130Q)
(RETURN))
LP
(AND (SELECTQ (STKNAME ERRORPOS)
(INFILE NIL)
((OUTFILE DRIBBLE)
T)
(OPENFILE (SELECTQ (STKARG 3 ERRORPOS)
(OLD NIL)
(NEW T)
(SELECTQ (STKARG 2 ERRORPOS)
((INPUT BOTH)
NIL)
(OUTPUT T)
NIL)))
((OPENF *PROG*LAM)
(STKNTH -1 ERRORPOS ERRORPOS)
(GO LP))
NIL)
(NOT (FILENAMEFIELD (CADR ERRORMESS)
(QUOTE VERSION)))
(RETURN (PACKFILENAME (QUOTE VERSION)
(ADD1 (FILENAMEFIELD
(OUTFILEP (CADR ERRORMESS))
(QUOTE VERSION)))
(QUOTE BODY)
(CADR ERRORMESS)))))))
(DECLARE: DONTCOPY
(FILEMAP (NIL)))
STOP