Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/fastnamefield.com
There are no other files named fastnamefield.com in the archive.
(FILECREATED "23-SEP-81 22:55:24" ("compiled on " 
<LISPUSERS>FASTNAMEFIELD.;2) (2 . 2) bcompl'd in WORK dated NOBIND)
(FILECREATED " 1-SEP-78 20:55:52" <LISPUSERS>FASTNAMEFIELD.;2 3526 
changes to: FASTNAMEFIELDCOMS previous date: "21-JUL-77 21:39:37" 
<LISPUSERS>FASTNAMEFIELD.;1)

NAMEFIELD BINARY
-&+-.&Z2B(+Z,<,<($),~Z2B(+	Z,<,<)$),~Z3B+,<(Z,<,<($),<,<*Z,<,<*$),<,<)Z3B+Z,<,<)$)+ZL*,~Z3B+#ZZ,2B+%Z,<,<*,<,<*$),<,<)Z,<,<)$)H*,<ZF+,~Z,<,<*$),~3fM'"	4r0(VARIABLE-VALUE-CELL FILE . 71)
(VARIABLE-VALUE-CELL SUFFIXFLG . 46)
(VARIABLE-VALUE-CELL DIRFLG . 19)
(VARIABLE-VALUE-CELL NAMEFIELDARRAY . 68)
ONLY
DIRECTORY
FILENAMEFIELD
EXTENSION
NAME
PACKFILENAME
PUTHASH
(GETHSH KNIL ENTERF)0

FILENAMEFIELD BINARY
-.ZB,<ZD,~@(VARIABLE-VALUE-CELL FILE . 3)
(VARIABLE-VALUE-CELL SPEC . 6)
UNPACKFILENAME
LISTGET
(ENTERF)

NEWUNPACKFILENAME BINARY

-.ZZ,2B+Z,<B	,<ZF	B
,~I@(VARIABLE-VALUE-CELL FILE . 8)
(VARIABLE-VALUE-CELL FILEFIELDARRAY . 12)
OLDUNPACKFILENAME
PUTHASH
APPEND
(KNIL GETHSH ENTERF)
(PRETTYCOMPRINT FASTNAMEFIELDCOMS)
(RPAQQ FASTNAMEFIELDCOMS ((* make NAMEFIELD, FILECOMS, etc faster) (FNS 
NAMEFIELD FILENAMEFIELD NEWUNPACKFILENAME) (VARS (NAMEFIELDARRAY (LIST (
HARRAY 30))) (FILEFIELDARRAY (LIST (HARRAY 30))) (FILECOMSARRAY (LIST (
HARRAY 30)))) (P (PROG (ADVISEDFNS) (OR (GETP (QUOTE CLEARFILEPKG) (
QUOTE ADVISED)) (ADVISE (QUOTE CLEARFILEPKG) (QUOTE BEFORE) (QUOTE (
PROGN (CLRHASH NAMEFIELDARRAY) (CLRHASH FILEFIELDARRAY) (CLRHASH 
FILECOMSARRAY))))) (COND ((AND (NOT (GETD (QUOTE OLDUNPACKFILENAME))) (
GETD (QUOTE NEWUNPACKFILENAME))) (MOVD (QUOTE UNPACKFILENAME) (QUOTE 
OLDUNPACKFILENAME)) (MOVD (QUOTE NEWUNPACKFILENAME) (QUOTE 
UNPACKFILENAME)) (ADVISE (QUOTE FILECOMS) (QUOTE AROUND) (QUOTE (COND ((
AND X (NEQ X (QUOTE COMS))) *) ((GETHASH FILE FILECOMSARRAY)) ((PUTHASH 
FILE * FILECOMSARRAY)))))))))))
(RPAQ NAMEFIELDARRAY (LIST (HARRAY 30)))
(RPAQ FILEFIELDARRAY (LIST (HARRAY 30)))
(RPAQ FILECOMSARRAY (LIST (HARRAY 30)))
(PROG (ADVISEDFNS) (OR (GETP (QUOTE CLEARFILEPKG) (QUOTE ADVISED)) (
ADVISE (QUOTE CLEARFILEPKG) (QUOTE BEFORE) (QUOTE (PROGN (CLRHASH 
NAMEFIELDARRAY) (CLRHASH FILEFIELDARRAY) (CLRHASH FILECOMSARRAY))))) (
COND ((AND (NOT (GETD (QUOTE OLDUNPACKFILENAME))) (GETD (QUOTE 
NEWUNPACKFILENAME))) (MOVD (QUOTE UNPACKFILENAME) (QUOTE 
OLDUNPACKFILENAME)) (MOVD (QUOTE NEWUNPACKFILENAME) (QUOTE 
UNPACKFILENAME)) (ADVISE (QUOTE FILECOMS) (QUOTE AROUND) (QUOTE (COND ((
AND X (NEQ X (QUOTE COMS))) *) ((GETHASH FILE FILECOMSARRAY)) ((PUTHASH 
FILE * FILECOMSARRAY))))))))
NIL