Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0004/whats.com
There are no other files named whats.com in the archive.
(FILECREATED "24-SEP-81 00:47:41" ("compiled on " <LISPUSERS>WHATS.;7) (
2 . 3) bcompl'd in WORK dated NOBIND)
(FILECREATED "12-MAY-78 00:38:46" <LISPUSERS>WHATS.;7 4483 changes to:
FILETYPE previous date: "17-MAR-78 04:16:02" <LISPUSERS>WHATS.;6)
FILETYPE BINARY
V z-. VZ ,< @ Y ,~ Z ,< ,< Z,< [,< @ [ ` + HZ Z ]XB @ ] + F,< _,< ,< @ [ ` + Z Z ]XB Z ,< ,< `,< ,< ,< `* aXB Z ,~ 2B + $Z B a3B + ",< b,< ,< @ [ ` + !Z Z ]XB Z ,< ,< `,< ,< ,< b* aXB Z ,~ 2B + $ cZ B c, ,~ Z B dXB ,< dZ $,< , ,< ,< , Z , XB ) % O O (BtA" , XB 1B + 4 +,> P,> . ,^ / + 0 P O , XB 4 + , XB 0B + <Z e,~ Z 10B + w 71b + G,< eZ &,< ,< f,< f( g3B + GZ @,< Z D g2B + F+ C >1b 2+ [,< hZ C,< ,< f,< h,< i,< , g3B + [Z IB i2B j+ P+ Z2B j+ [,< k,< w1b + WZ MB iXBp w/" , XBw+ RZp / Z SB i2B j+ [Z k,~ G1b d+ l,< lZ X,< ,< f,< l( g3B + l,< mZ ],< ,< l,< m( g3B + lZ a,< ,< f$ nZ eB nZ g,< Z DD gZ o, 2B + F+ C [1b + v,< oZ h,< l/" , ,< Z o,< ,< ,< , g3B + vZ p,~ Z p,~ 0B + 7 7 (Bw, XB , 0B + ) :1b %+ x Q ,> P,> Q ,^ / 2B + ,< q,< q ~ , B r,< Z B r, 2B + F+ C |1b 2+ Q ,> P,> R ,^ / 2B + ,< s
T , B r, 2B + F+ CZ 1B + 0B + ( R 2B S+ ( S 2B T+ ( T 2B U+ ( U + ,< sZ #B r, 2B + F+ CZ t,~ Z z1B + ,0B + -Z t,~ V,> P,> )GBx ,^ / " ,> P,> q ,^ / 2" 7 7 + CZ u,~ 0B + C0B + B,< uZ n,< ,< f,< v( g2B + A,< vZ 9,< ,< f,< v( g3B + BZ w,~ Z + CZ Z <,< ,< w,< x, ,~ XB Z ,~ 3B + JZ + JZ xXB D yZ J3B + N y,~ Z F,~ gg }:[^>9 Gx
&:g+|(c NM
L -%LR JMi' 0
Ylv#i@ (VARIABLE-VALUE-CELL FILE . 379)
(VARIABLE-VALUE-CELL LISPXHIST . 3)
(VARIABLE-VALUE-CELL RESETVARSLST . 85)
(VARIABLE-VALUE-CELL SIZE . 303)
(VARIABLE-VALUE-CELL FILERDTBL . 210)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
(NIL VARIABLE-VALUE-CELL RESETY . 412)
(NIL VARIABLE-VALUE-CELL RESETZ . 407)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(NIL VARIABLE-VALUE-CELL BYTESIZE . 391)
(NIL VARIABLE-VALUE-CELL JFN . 331)
(NIL VARIABLE-VALUE-CELL LENGTH . 356)
(NIL VARIABLE-VALUE-CELL TEM . 349)
((DUMMY) . 0)
INPUT
((THAWED DON'T.CHANGE.DATE) . 0)
OPENFILE
INFILEP
((DUMMY) . 0)
((DON'T.CHANGE.DATE) . 0)
ERRORN
ERRORSTRING
OPNJFN
CLOSEF?
((EMPTY) . 0)
"(FILECREATED"
0
20
FILEPOS
READ
"XX-XXX-XX XX:XX:XX"
18
X
READC
,
-
3
((MESSAGE) . 0)
"(PROGN (PRIN1"
30
"(READATABASE)"
300
SETFILEPTR
SKREAD
DATABASE
""
((BRAVO ?) . 0)
((TEXT ?) . 0)
SYSOUT
ON
GDATE
READASCIZ
MAKESYS
INDIRECT
((SAV) . 0)
((REL ?) . 0)
((SAVE FILE ?) . 0)
"DOCULIST"
10
"doculist"
((EARS) . 0)
BIT
FILE
ERROR
RESETRESTORE
ERROR!
(LIST3 ALIST2 ALIST4 IUNBOX CONS21 BHC ASZ MKN CONS LIST2 CONSNL KT CF
KNILENTERF) F ' h @ x ` ; X 0 q
p : x / + * H 6 @ L p M I @C = X( p
P s
R X F 8 ) h X
READASCIZ BINARY
-. Z , Z /" $ &' ( D B
,~ ` (VARIABLE-VALUE-CELL JFN . 5)
(VARIABLE-VALUE-CELL MACSCRATCHSTRING . 3)
STRCONC0
MKATOM
(ASZ UPATM ENTERF)
(PRETTYCOMPRINT WHATSCOMS)
(RPAQQ WHATSCOMS ((FNS FILETYPE READASCIZ) (DECLARE: EVAL@COMPILE
DONTCOPY (P (OR (GETP (QUOTE JS) (QUOTE MACRO)) (LOAD (QUOTE
<LISPUSERS>CJSYS.COM) (QUOTE SYSLOAD))))) (LISPXMACROS WHATS)))
(ADDTOVAR LISPXHISTORYMACROS)
(ADDTOVAR LISPXMACROS (WHATS (DIRECTORY (CAR LISPXLINE) (APPEND (AND (
NOT (FMEMB (QUOTE P) (CDR LISPXLINE))) (QUOTE (P))) (CDR LISPXLINE) (
QUOTE (PRINT " " @ (LAMBDA (J FILENAME) (SPACES 1) (PRIN2 (FILETYPE
FILENAME) T))))) (QUOTE *) -3)))
NIL