Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED " 1-OCT-80 20:57:30" <LISPUSERS>MSSWAP.;8 2370
changes to: MSSWAPCOMS
previous date: "30-JUL-79 21:45:58" <LISPUSERS>MSSWAP.;7)
(PRETTYCOMPRINT MSSWAPCOMS)
(RPAQQ MSSWAPCOMS ((FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
SWAPHASH)
(* These replace masterscope functions)
(FNS ADDTABLE EQMEMBTABLE GETTABLE MAKETABLE MAPTABLE MEMBTABLE PUTTABLE SUBTABLE
TESTTABLE)
(P (RELINK (QUOTE WORLD)))
(LOCALVARS . T)))
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
SWAPHASH)
(* These replace masterscope functions)
(DEFINEQ
(ADDTABLE
[LAMBDA (X V H) (* rmk: " 9-MAR-79 13:35")
(COND
((SWPARRAYP H)
(SADDHASH X V H))
(T (ADDHASH X V H])
(EQMEMBTABLE
[LAMBDA (X V H) (* rmk: "16-JUN-79 23:51")
(if (SWPARRAYP H)
then (SEQMEMBHASH X V H)
else (MEMB V (GETHASH X H])
(GETTABLE
[LAMBDA (X H) (* rmk: " 9-MAR-79 13:35")
(COND
((SWPARRAYP H)
(SGETHASH X H))
(T (GETHASH X H])
(MAKETABLE
[LAMBDA (N) (* rmk: " 9-MAR-79 14:57")
(SHARRAY N])
(MAPTABLE
[LAMBDA (H FN) (* rmk: " 9-MAR-79 14:04")
(COND
((SWPARRAYP H)
(SMAPHASH H FN))
(T (MAPHASH H FN])
(MEMBTABLE
[LAMBDA (X V H) (* rmk: "10-JUN-79 19:44")
(if (SWPARRAYP H)
then (SEQMEMBHASH X V H)
else (EQMEMB V (GETHASH X H])
(PUTTABLE
[LAMBDA (X V H) (* rmk: " 9-MAR-79 13:34")
(COND
((SWPARRAYP H)
(SPUTHASH X V H))
(T (PUTHASH X V H])
(SUBTABLE
[LAMBDA (X V H) (* rmk: " 9-MAR-79 13:36")
(COND
((SWPARRAYP H)
(SSUBHASH X V H))
(T (SUBHASH X V H])
(TESTTABLE
[LAMBDA (X H) (* rmk: " 9-MAR-79 13:37")
(COND
((SWPARRAYP H)
(STESTHASH X H))
(T (GETHASH X H])
)
(RELINK (QUOTE WORLD))
(DECLARE: DOEVAL@COMPILE DONTCOPY
(LOCALVARS . T)
)
(DECLARE: DONTCOPY
(FILEMAP (NIL (627 2265 (ADDTABLE 639 . 819) (EQMEMBTABLE 823 . 1023) (GETTABLE 1027 . 1203) (
MAKETABLE 1207 . 1326) (MAPTABLE 1330 . 1508) (MEMBTABLE 1512 . 1712) (PUTTABLE 1716 . 1896) (SUBTABLE
1900 . 2080) (TESTTABLE 2084 . 2262)))))
STOP