(SETQ RECORDLOADFLG T) (SETQ NCFILESLST NIL) (ADVISE 'LOAD 'AFTER NIL '(if RECORDLOADFLG then (push NCFILESLST FILE))) (SETQ RECORDLOADFLG NIL) (UNADVISE 'LOAD) CONN {QV}1.3MNEXT> (FILESLOAD (FROM LISP>) WHERE-IS-PATCH) (LOAD "{QV}LISP>GIVE-AND-TAKE.LCOM") (SETQ NC.InstallFlg T) (SETQ NC.NoUpdateFlg NIL) (FILESLOAD NOTECARDS) (SETQ NC.FILES NC.Files) (SETQ NC.CODE (LDIFFERENCE NC.Files '(NOTECARDS.HASH))) (SETQ NC.LIBFILES '(NCMAPS NCHACKS NCIDEASKETCHCARD NCFILECARD)) (SETQ NC.AUXFILES '(NOTECARDS.HASH)) (SETQ NC.COMP (FOR FILE IN (LDIFFERENCE NC.Files '(POSTRELEASEPATCHES NOTECARDS.HASH)) COLLECT (MKATOM (CONCAT FILE "." COMPILE.EXT)))) (FOR FILE IN NC.COMP DO (NC.LoadFileFromDirectories FILE)) (FOR FILE IN NC.CODE DO (LOAD? FILE 'PROP)) TAKE PATCHLOADER LOAD[PATCHLOADER] DC PATCHLOADER (FOR PATCH IN '() DO (LOAD PATCH)) FILES?] (DEFINEQ (CATL (NLAMBDA ITEMS (APPLY (CL:FUNCTION CL:CONCATENATE) (CONS (QUOTE LIST) (CL:MAPCAR (CL:FUNCTION (LAMBDA (X) (MKLIST (EVAL X)))) ITEMS)))))) (SETQ RECOMPILEDEFAULT 'CHANGES) (MAKEFILES '(RC ST) (LDIFFERENCE NC.CODE (CATL 'NCCONFIG 'POSTRELEASEPATCHES NC.AUXFILES NC.LIBFILES ))) FILES?] CONN {QV}1.3MNEXT>LIBRARY> (MAKEFILES '(RC ST) NC.LIBFILES) CONN {QV}1.3MNEXT> (SETQ NCPATHS (FOR FILE IN (LDIFFERENCE NC.Files '(NCCONFIG NOTECARDS.HASH POSTRELEASEPATCHES)) COLLECT (NC.FindFile FILE NIL NIL T))) (COPYFILE "NOTECARDS.HASH" "NOTECARDS.HASH") (XCL::WHERE-IS-NOTICE "NOTECARDS.HASH" :USE-FULLNAME T :FILES NCPATHS) (XCL::WHERE-IS-NOTICE "NOTECARDS.HASH" :USE-FULLNAME T :FILES NCPATHS :NEW T :TEMP-FILE "{DSK5}TEMP.HASH") (SETQ NC.InstallFlg T) (SETQ NC.NoUpdateFlg NIL) (MAKEFILE 'NCCONFIG '(RC ST)) DC PATCHLOADER MAKEFILE[PATCHLOADER] FB PATCHLOADER* , delete older versions> GIVE PATCHLOADER (COPYFILES (LDIFFERENCE NC.Files '(NCCONFIG NOTECARDS.HASH POSTRELEASEPATCHES)) '{QV}1.3M>) (COPYFILES (REMOVE 'NCCONFIG.LCOM NC.COMP) '{QV}1.3M>) (COPYFILES '{QV}1.3MNEXT>LIBRARY>* '{QV}1.3M>LIBRARY>) CONN {QV}1.3M> (MAKEFILE 'POSTRELEASEPATCHES) next dirs on NOTECARDSDIRECTORIES> (SETQ NC.InstallFlg T) (FILESLOAD NOTECARDS) (SETQ NCPATHS (FOR FILE IN (LDIFFERENCE NC.Files '(NCCONFIG NOTECARDS.HASH POSTRELEASEPATCHES)) COLLECT (NC.FindFile FILE NIL NIL T))) (COPYFILE "NOTECARDS.HASH" "NOTECARDS.HASH") (XCL::WHERE-IS-NOTICE "NOTECARDS.HASH" :USE-FULLNAME T :FILES NCPATHS) (XCL::WHERE-IS-NOTICE "NOTECARDS.HASH" :USE-FULLNAME T :FILES NCPATHS :NEW T :TEMP-FILE "{DSK5}TEMP.HASH") (MAKEFILE 'NCCONFIG '(RC ST)) FTP CF RET/S CURRENT>INIT-NOGREET.DCOM INIT.NOGREET RENAME INIT.LISP INIT.GREET RENAME INIT.NOGREET INIT.LISP LISP []FULL.SYSOUT shh (il:load "{qv}1.3m>notecards.lcom" 'il:sysload) shh (setq il:|NC.StartupMessageSentFlg| nil) shh (il:settopval 'il:lispxhistory '(nil 0 100 1000)) shh (il:makesys "{qv}1.3m>NoteCards.sysout" "Lyric / NoteCards 1.3M") (for file in (REMOVE 'NOTECARDS.HASH NC.Files) do (NC.LoadFileFromDirectories file)) shh (il:settopval 'il:lispxhistory '(nil 0 100 1000)) shh (il:makesys "{nb:}1.3m>NoteCards-Full.sysout" "Lyric / NoteCards 1.3M (full system)") GACHA GACHA ?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8)) 4I 6..+hKt''I7692"t!EE; V L;z