Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0004/samedir.com
There are no other files named samedir.com in the archive.
(FILECREATED "22-OCT-81 18:17:27" ("compiled on " <LISPUSERS>SAMEDIR.;9)
(2 . 2) tcompl'd in WORK dated "12-OCT-81 16:04:12")
(FILECREATED "22-OCT-81 11:31:47" {PHYLUM}<LISPUSERS>SAMEDIR.;2 2977
changes to: CHECKSAMEDIR SAMEDIRCOMS previous date: "22-OCT-81 11:29:37"
{PHYLUM}<LISPUSERS>SAMEDIR.;1)
CHECKSAMEDIR BINARY
j -. jZ ,< ,< k$ l,< @ l 0,~ Z -, + Z ,~ ,< ,< $ pXB Z p6@ Z q2B p+
,< ,< q$ r2B + Z XB + Z B rXB ,< ,< s$ sXB Z ,< ,< q$ sXB Z Z 7 [ Z Z 1H + 2D + [ XB Z ,< Zp -, + "Z + 3Zp ,< ,<w/ @ t + 0[ ,< ,< q$ rXB &2B + *Z ,~ Z 3B 7 7 + /Z (Z 2B 7 Z ,~ 3B + 2Z + 3[p XBp + / 3B + V,< t,< u,< uZ ,< ,< vZ ,< ,< v^" , ,< ,< w" w3B + >Z x, + ?Z ,< ,< x$ yH y2B u+ B+ 2B z+ D z+ 2B {+ LZ {Z 7 [ Z Z 1H + J2D + G[ Z B |+ 2B |+ U,< },< ,< @ } ` + UZ Z XB ,< ,< $ B wZ ,~ + + ,< ,< ,< Z [ H B XB 3B + Z X[ 3B + ,< ,< uZ [[ ,< ,< Z Z,< ,< $ r,< ,< ,< ^" , F y2B u+ g+ 2B z+ i z+ + !;M)F P)HI
(VARIABLE-VALUE-CELL MIGRATIONS . 51)
(VARIABLE-VALUE-CELL LISPXMACROS . 140)
FILEDATES
GETP
(VARIABLE-VALUE-CELL DATES . 189)
(NIL VARIABLE-VALUE-CELL HOST/DIR . 112)
(NIL VARIABLE-VALUE-CELL DIR2 . 91)
(NIL VARIABLE-VALUE-CELL HOST . 44)
(NIL VARIABLE-VALUE-CELL DIR . 85)
(NIL VARIABLE-VALUE-CELL LST . 0)
(NIL VARIABLE-VALUE-CELL NEWV . 193)
DIRECTORYNAME
TENEX
TOPS20
DIRECTORY
FILENAMEFIELD
UNPACKFILENAME
HOST
LISTGET
(VARIABLE-VALUE-CELL X . 90)
10
Y
"You haven't loaded or written"
"in your connected directory"
"-- should I write it out anyway"
CNDIR
GETD
((C "onnect to: ") . 0)
(((Y "es
") (N "o
") (E "XEC
")) . 0)
NCONC
ASKUSER
N
ERROR!
E
EXEC
EVAL
C
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
READ
SHOULDNT
VERSION
BODY
PACKFILENAME
INFILEP
15
"is not the most recent version (version"
"has since appeared)."
"Do you want to make the file anyway"
(CF CONSNL LIST BHC KL20FLG KT KNIL SKNLST ENTERF)
h
X ; 4 P 8
P S
0 0 H * ( 8 X x O ( ? P 5 1 x - ! p
(PRETTYCOMPRINT SAMEDIRCOMS)
(RPAQQ SAMEDIRCOMS ((FNS CHECKSAMEDIR) (ADDVARS (MAKEFILEFORMS (OR (
NLSETQ (CHECKSAMEDIR FILE)) (RETFROM (QUOTE MAKEFILE)))) (MIGRATIONS)) (
GLOBALVARS MIGRATIONS)))
(ADDTOVAR MAKEFILEFORMS (OR (NLSETQ (CHECKSAMEDIR FILE)) (RETFROM (QUOTE
MAKEFILE))))
(ADDTOVAR MIGRATIONS)
NIL