Google
 

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