Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED "23-JAN-79 23:09:18" <LISPUSERS>DWIMLOAD.;14 1648
changes to: DWIMLOADFNS?
previous date: " 7-JAN-79 15:37:27" <LISPUSERS>DWIMLOAD.;13)
(PRETTYCOMPRINT DWIMLOADCOMS)
(RPAQQ DWIMLOADCOMS ((* turn off system DWIMLOADFNSFLG and instead use a different (and faster)
one - doesn't do LOADFNS, and therefore, doesn't do UPDATEFILES)
(FNS DWIMLOADFNS?)
(BLOCKS (NIL DWIMLOADFNS? (LOCALVARS . T)
(NOLINKFNS . T)
(SPECVARS DWIMIFYFLG FAULTAPPLYFLG FAULTX FAULTFN FAULTARGS)))))
[DECLARE: DONTEVAL@LOAD DONTCOPY
(* turn off system DWIMLOADFNSFLG and instead use a different (and faster)
one - doesn't do LOADFNS, and therefore, doesn't do UPDATEFILES) ]
(DEFINEQ
(DWIMLOADFNS?
(LAMBDA NIL (* lmm "23-JAN-79 23:09")
(PROG (TEM TEM2)
(RETURN (COND
((AND (NOT (AND DWIMIFYFLG DWIMIFYING))
(COND
(FAULTAPPLYFLG (LITATOM (SETQ TEM FAULTX)))
((LISTP FAULTX)
(LITATOM (SETQ TEM (CAR FAULTX)))))
(NOT (FGETD TEM))
FILELST
(SETQ TEM2 (GETDEF TEM (QUOTE FNS)
FILELST
(QUOTE (NOERROR NOCOPY NODWIM FAST)))))
(LISPXPRINT (LIST (QUOTE loaded)
TEM)
T T)
(/PUTD TEM TEM2)
(AND (NULL TYPE-IN?)
(SETQ SIDES (CDR (LISTGET1 LISPXHIST (QUOTE SIDE)))))
FAULTX))))))
)
[DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY
(BLOCK: NIL DWIMLOADFNS? (LOCALVARS . T)
(NOLINKFNS . T)
(SPECVARS DWIMIFYFLG FAULTAPPLYFLG FAULTX FAULTFN FAULTARGS))
]
(DECLARE: DONTCOPY
(FILEMAP (NIL (744 1448 (DWIMLOADFNS? 756 . 1445)))))
STOP