SAVED LISP OBJECT    PROGN GLOBAL DEFVAR *OBJ-NODE-TABLE* SYSTEM-INTERNALS *OBJ-INDEX* DEFRESOURCE  OBJ-TABLE CONSTRUCTOR KEYWORD MAKE-HASH-TABLE DEINITIALIZER% SEND OBJECT CLEAR-HASH *ONLY-SHARE-SYMBOLS* DEFUN  SAVE-OBJECT OBJ  FILENAME! &KEY CIRCULARP  VERBOSE  SYMBOLP LET NOT" WITH-OPEN-FILE STREAM  DIRECTION OUTPUT# CHARACTERS$ BYTE-SIZE IF  FORMAT ~&Saving object to ~S~% 6 COND/ OR ' USING-RESOURCE  X 2 SETQ 1 WALK-OBJECT  ~&~D shared subexpression~p.~% SAVE-OBJECT-1 TRANSMIT-OBJECT5 QUOTE< ELSE *SAVE-OBJECT-FILE-PREFIX* SAVED LISP OBJECT  PRINC( *OBJ-ARRAY* ) OBJ-ARRAY SIZE Aw MAKE-ARRAY~ *d} CEILINGd FILL-POINTER ADJUSTABLE SETF FILL-POINTER MATCHERQ < ARRAY-LENGTH INITIALIZER  FILL RESTORE-OBJECT ! " #$  ~&Loading object from ~S~%% TRUENAME& MAX-INDEX* RESTORE-OBJECT-1  ~&~D shared subexpression~p.~%&&'()+ 1+&. RECEIVE-OBJECT*= DO, J+,- N7 LENGTH0 =,-./0%t TYI8 AREF,D FERROR stream doesnt begin with ~S1E &AUX3 TEMP234 GETHASHJ RETURN-FROM1: EQ34M - INCF O TYPECASEP INTEGERT CHARACTER? SYMBOLF WHEN MEMQ541^ PACKAGE-NAME_ SYMBOL-PACKAGE` STRING/4c ARRAY60d ARRAY-RANK9 WALK-OBJECT-UNHANDLEDf NAMED-STRUCTURE-P/4; DOTIMES,718,a ARRAY-HAS-LEADER-P9:23h ARRAY-TYPE5i ART-Q/4;,718,:35k ART-8B/45<9n CONS/4=,+,> Lo CDR>p ATOM>6[ NULL>5<1>1@ CAR>s INSTANCE999| CERROR transmit NIL instead %object type or makeup not handled: ~S EVAL-WHEN EVAL COMPILE LOADC *OPCODES*5\ OBJECT-NIL] OBJECT-TS POSITIVE-INTEGERR NEGATIVE-INTEGER SHORT-FLOAT SINGLE-FLOAT?q LISTr LIST* j SIMPLE-ARRAY-ART-Q l SIMPLE-ARRAY-ART-8B b SIMPLE-STRING g SIMPLE-NAMED-STRUCTURE X SIMPLE-CHARACTERY HAIRY-CHARACTERL OBJECT-ASSIGN-INDEXI OBJECT-OF-INDEX DEFMACROH OPCODEB NAME/@@ MEM FUNCTION LAMBDA A E:  CADRABCD UNKNOWN OBJECT OPCODE NAME: ~SBEG TEMP1U TEMP2FV AND2G46:G >G%K TYOHIJN TRANSMITIG5<%KHL2GMG4GNG OP6Q%KHRNM5<%KHSNT2G CHAR-BITS2U CHAR-FONT6VW ZEROPGWU%KHX%KZ CHAR-CODE5<%KHY%KZ%KG%KU?6[%KH\:%KH]5<%KH? SYMBOL-NAME^_`6Va0 ARRAY-LEADER-LENGTHe TRANSMIT-OBJECT-UNHANDLED5<%KHb2U7NU%m STRING-OUTUc60de2Gf2U7%KHgNUG;,U8,ae:2Gh5i2U7%KHjNU;,U8,:G5k2U7%KHlNU%mU5<en=,+,GoGpG6[G%KHqN, DOLISTUU5<%KHrN+,=UoUpUU@Usee.EGUu INDEX2G%t60GHL2uv RECEIVEI2G%t60GHI8(v0GH\0GH]0GHSv0GHRMv0GH?2G INTERN..u8(uGG0GHb2Gv2UwGx TYPE5 ART-STRING%y STRING-INUGu8(uUU0GHl2Gv2UwGx5k%yUGu8(uUU0GHg2Gv2U.2UwG NAMED-STRUCTURE-SYMBOLUx5iu8(uU.=,+,0,G8U,.U0GHj2Gv2UwGu8(uU;,G8U,.U0GHXz CODE-CHAR%t0GHYz%t%t%t0GHq2Gv2U MAKE-LISTGu8(uU=GUoG[G{ RPLACAG.U0GHr2Gv2U MAKE-LIST*Gu8(uU=GUoG{G.[oG RETURN RPLACDG.U| return NIL "unknown object opcode received: ~DGNSE76QSJN%KSQ27} HAULONGS%K +75<%KN7;,7%K LDB BYTE~,SvE NUMBER7%t6Q7Jv7Q27M75<27v2;,72 DPB%t~,e| transmit NIL instead %OBJECT TYPE OR MAKEUP NOT HANDLED: ~S- CASEQ-rrr 1-- HEXDUMP " #$=,+, 0123456789ABCDEF C[2%tW MOD,  TERPRI% STANDARD-OUTPUTK8%K8 OBJCOMP-FILE   FORMS INPUT-TRUENAME"  INPUT ERROR REPROMPT2% READING-FROM-STREAM FILE-SYSTEM  PUSH    XR-BQ-CONS5  NREVERSE % NEW-PATHNAMEx SAVE VERSION NEWEST