Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED "17-SEP-82 17:24:03" <BLISP>DFOR10.;1 1375
changes to: (VARS DFOR10COMS)
(FNS GETSTREAM BIN BOUT OPENSTREAM))
(* Copyright (c) 1982 by Xerox Corporation)
(PRETTYCOMPRINT DFOR10COMS)
(RPAQQ DFOR10COMS ((FNS GETSTREAM BIN BOUT OPENSTREAM)
(PROP 10MACRO \BIN \BOUT)))
(DEFINEQ
(GETSTREAM
[LAMBDA (FILE ACCESS) (* lmm "17-SEP-82 17:19")
(* DCODEFOR10 VERSION)
(COND
((SMALLP FILE)
FILE)
(T (OPNJFN (OR FILE (SELECTQ ACCESS
(OUTPUT (OUTPUT))
(INPUT)))
ACCESS])
(BIN
[LAMBDA (STREAM) (* lmm "17-SEP-82 17:21")
(\BIN (GETSTREAM STREAM (QUOTE INPUT])
(BOUT
[LAMBDA (STREAM BYTE) (* lmm "17-SEP-82 17:20")
(\BOUT (GETSTREAM STREAM (QUOTE OUTPUT))
BYTE])
(OPENSTREAM
[LAMBDA (FILE ACCESS RECOG BYTESIZE MACHINE.DEPENDENT.PARAMETERS)
(* lmm "17-SEP-82 17:22")
(OPNJFN (OPENFILE FILE ACCESS RECOG BYTESIZE MACHINE.DEPENDENT.PARAMETERS)
ACCESS])
)
(PUTPROPS \BIN 10MACRO ((JFN)
(JS BIN JFN NIL NIL 2)))
(PUTPROPS \BOUT 10MACRO ((JFN BYTE)
(JS BOUT JFN BYTE)))
(DECLARE: DONTCOPY (PUTPROPS DFOR10 COPYRIGHT ("Xerox Corporation" 1982)))
(DECLARE: DONTCOPY
(FILEMAP (NIL (325 1140 (GETSTREAM 337 . 621) (BIN 625 . 747) (BOUT 751 . 888) (OPENSTREAM 892 . 1137)
))))
STOP