;COMPARISON OF DSK:COMLAP;GGLOAD 26 AND DSK:COMLAP;CCLOAD 186 ;OPTIONS ARE /3 **** FILE DSK:COMLAP;GGLOAD 26, 1-1 (0) ;;; GGLOAD -*-LISP-*- ;;; ************************************************************** ;;; ***** Maclisp ****** Load-up EXPR Compiler - a GreenGiant **** **** FILE DSK:COMLAP;CCLOAD 186, 1-1 (0) ;;; CCLOAD -*-LISP-*- ;;; ************************************************************** ;;; ***** Maclisp ****** CCLOAD - Loader for COMPLR ************** *************** **** FILE DSK:COMLAP;GGLOAD 26, 1-10 (457) (COMMENT FLPDL 64. REGPDL 2560. SPECPDL 2048.) **** FILE DSK:COMLAP;CCLOAD 186, 1-9 (455) (comment CORE 80. BPS 16000.) ;This will compose a MACLISP compiler from the following files: ; LISP; BACKQ FASL (BACKQ.FAS on TOPS-10/20 systems) ; LISP; DEFMAC FASL (DEFMAC.FAS on TOPS-10/20 systems) ; LISP; DEFMAX FASL (DEFMAX.FAS on TOPS-10/20 systems) ; LISP; MACAID FASL (MACAID.FAS on TOPS-10/20 systems) ; LISP; MLMAC FASL (MLMAC.FAS on TOPS-10/20 systems) ; LISP; GETMID FASL (GETMID.FAS on TOPS-10/20 systems) ; LISP; LODBYT FASL (LODBYT.FAS on TOPS-10/20 systems) ; LISP; SHARPM FASL (SHARPM.FAS on TOPS-10/20 systems) ; LISP; SETF FASL (SETF.FAS on TOPS-10/20 systems) ; LISP; LET FASL (LET.FAS on TOPS-10/20 systems, except ; for Stanford system where not used) ; COMLAP;COMPLR FASL (COMPLR.FAS on TOPS-10/20 systems) ; PHAS1 FASL (PHAS1.FAS on TOPS-10/20 systems) ; COMAUX FASL (COMAUX.FAS on TOPS-10/20 systems) ; INITIA FASL (INITIA.FAS on TOPS-10/20 systems) ; MAKLAP FASL (MAKLAP.FAS on TOPS-10/20 systems) ; FASLAP FASL (FASLAP.FAS on TOPS-10/20 systems) ;Additionally, a gc-daemon and many other help files are loaded in the ; SAIL version. ;Ordinarily, this file will be used as an "INIT" file, but it can be ; directly loaded into a running lisp, using any of LOAD, or UREAD. ;Ordinarily the result will be :PDUMPI'd (by SUSPEND) as ; LSPDMP;CL.DMP [there is a link on SYS for TS COMPLR ; to LSPDMP;CL.DMP >] ; however, if (STATUS FEATURE EXPERIMENTAL) is non-null, then they ; will go out as LSPDMP;XC.DMP . Thus there is a link ; for XCOMPLR to LSPDMP;XC.DMP > *************** **** FILE DSK:COMLAP;GGLOAD 26, 1-18 (707) **** FILE DSK:COMLAP;CCLOAD 186, 1-45 (2331) ;;; And even then, STRING doesn't want to be on it! *************** **** FILE DSK:COMLAP;GGLOAD 26, 1-51 (2368) SETF-STRUCT SETF-X CONS-A-SETF SETF-CLASS **** FILE DSK:COMLAP;CCLOAD 186, 2-32 (4050) SETF-STRUCT SETF-X CONS-A-SETF SETF-CLASS *************** **** FILE DSK:COMLAP;GGLOAD 26, 1-117 (4827) (SETQ SPECVARS () ) **** FILE DSK:COMLAP;CCLOAD 186, 2-98 (6507) *************** **** FILE DSK:COMLAP;GGLOAD 26, 1-131 (5341) (TERPRI) (BREAK "NCOMPLR"))) ))) (and (status FEATURE SAIL) (SETQ CCLOAD:PURESEG (EQUAL PURE -1))) (SSjU FEATURE COMPLR) (SSTATUS FEATURE GG) **** FILE DSK:COMLAP;CCLOAD 186, 2-111 (6998) (TERPRI) (BREAK NCOMPLR))) ))) (and (status FEATURE SAIL) (SETQ CCLOAD:PURESEG (EQUAL PURE -1))) (SSTATUS FEATURE COMPLR) *************** **** FILE DSK:COMLAP;GGLOAD 26, 1-195 (7676) **** FILE DSK:COMLAP;CCLOAD 186, 3-2 (9306) ;; There is some unfathomable bug in trying to load up a BCOMPLR ;; at SAIL, so experimentally we found that this will fix it. #+SAIL (PROGN (GC) (FASLOAD (LISP) SETF)) ;;;; PROGN for LOAD of files *************** **** FILE DSK:COMLAP;GGLOAD 26, 1-211 (8311) (LET ((DEFMACRO-DISPLACE-CALL T) (DEFMACRO-CHECK-ARGS T) DEFMACRO-FOR-COMPILING (PUTPROP (APPEND '(EXPR FEXPR MACRO) PUTPROP)) (ERRSET '(LAMBDA N (BREAK ERRSET)))  A (*RSET t(NUUO t)) (SETQ MACROMEMO (LIST 509.) MACRO-EXPANSION-USE 'MACROMEMO) (SETQ EDIBLE ()) (DEFUN EDIBLE FEXPR (L) (SETQ L (MAPCAN '(LAMBDA (X) ((LAMBDA (Y) (COND ((GET X 'RECAN) ()) (Y (REMPROP X (CAR Y)) (PUTPROP X (LIST (CAR Y) (CADR Y)) 'RECAN) (SETQ EDIBLE (CONS X EDIBLE)) (PUTPROP X (SUBST () () (CADR Y)) (CAR Y)) (LIST X)))) (GETL X '(EXPR FEXPR MACRO)))) L)) (PRINT L) (APPLY 'EDIT L)) (DEFUN RECAN FEXPR (L) (MAPCAN '(LAMBDA (X) ((LAMBDA (Y) (AND Y "DQREMPROP X 'RECAN) (PUTPROP X (COND ((ATOM (CAR L)) (CADR Y)) ((EQ (CAAR L) 'PURE) (PURCOPY (GET X (CAR Y)))) ((GET X (CAR Y))) ((CADR Y))) (CAR Y)) (PROG2 (SETQ EDIBLE (DELQ X EDIBLE)) (LIST X)))) (GET X 'RECAN))) (COND ((ATOM (CAR L)) L) ((CDR L))))) **** FILE DSK:COMLAP;CCLOAD 186, 3-24 (10148) *************** **** FILE DSK:COMLAP;GGLOAD 26, 3-12 (12554) (VALRET '|// :JCL/ GGJ:VP |)) **** FILE DSK:COMLAP;CCLOAD 186, 5-12 (13234) (VALRET (COND ((STATUS FEATURE XC) "DA_ :JCL/ XCOMPLJ:VP ") ("/ :JCL/ COMPLRJ:VP ")))) *************** **** FILE DSK:COMLAP;GGLOAD 26, 3-20 (12820) C (SETQ FXPDL (COND ((STATUS FEATURE ITS) '>) ('T 'LSP))) (SETQ NLNVTHTBP (list ccload:dev-dir '* fxpdl)) #-ITS (AND (NOT (PROBEF (mergef NLNVTHTBP '(COMPLR)))) (PROG2 (PRINC "/ ;Please set up "CCLOAD:DEV-DIR" to a list of the device and directory / ;names to use for the loading the EXPR version of COMPLR files/ " TYO) (BREAK "ULUZ") **** FILE DSK:COMLAP;CCLOAD 186, 5-24 (13574) C (SETQ NLNVTHTBP (CONS CCLOAD:DEV-DIR '(* FASL))) #-ITS (AND (NOT (PROBEF (CONS CCLOAD:DEV-DIR '(COMPLR FASL)))) (PROG2 (PRINC "/ ;Please set up "CCLOAD:DEV-DIR" to a list of the device and directory / ;names to use for the loading the COMPLR and FASLAP FASL files/ " TYO) !R2UUZ) *************** **** FILE DSK:COMLAP;GGLOAD 26, 3-36 (13434) (BREAK "ULUZ") **** FILE DSK:COMLAP;CCLOAD 186, 5-38 (14131) (BREAK ULUZ) *************** **** FILE DSK:COMLAP;GGLOAD 26, 4-29 (14350) (BREAK "WAIT-FOR-LOADING")) )))) **** FILE DSK:COMLAP;CCLOAD 186, 6-29 (15045) (BREAK WAIT-FOR-LOADING)) )))) *************** **** FILE DSK:COMLAP;GGLOAD 26, 4-45 (14873) (LOAD (COND ((STATUS FEATURE ITS) '()ACOMLAP) CDMACS FASL)) (T '((LISP) CDMACS FASL)))) **** FILE DSK:COMLAP;CCLOAD 186, 6-45 (15566) *************** **** FILE DSK:COMLAP;GGLOAD 26, 5-7 (15232) (COND ((ATOM REGPDL) (CONS REGPD#XDL)) **** FILE DSK:COMLAP;CCLOAD 186, 7-7 (15821) (COND ((ATOM REGPDL) (CONS REGPDL '(FASL))) *************** **** FILE DSK:COMLAP;GGLOAD 26, 5-12 (15390) (PRINC " Loading ") PINC RD,S (PRINC '| | TYO) (PRINC FXPDL TYO) (PRINC '| | TYO))) **** FILE DSK:COMLAP;CCLOAD 186, 7-12 (15981) (PRINC " Fazloading ") PINC REGPDL TYO) (PRINC " FASL " TYO))) *************** **** FILE DSK:COMLAP;GGLOAD 26, 5-38 (16131) (BREAK "ULUZ")))))) **** FILE DSK:COMLAP;CCLOAD 186, 7-36 (16678) (BREAK ULUZ-BUNKIE)))))) *************** **** FILE DSK:COMLAP;GGLOAD 26, 5-46 (16360) ('(DIRECT FAS))))) (MAPC LԦ O "ҋAD FAS) (M0OS 'CQhAS) (ċD FAS))) **** FILE DSK:COMLAP;CCLOAD 186, 7-44 (16912) ('DIRECT)))) (MAPC LVRL '(EREAD MACROD NCOREQ LOADED)) *************** **** FILE DSK:COMLAP;GGLOAD 26, 6-26 (17889) (SETQ ALARMCLOCK () ^Q () ^W () ))) **** FILE DSK:COMLAP;CCLOAD 186, 8-26 (18411) (SETQ ALARMCLOCK () ^Q () ^W () )) *************** **** FILE DSK:COMLAP;GGLOAD 26, 7-21 (18711) #+ITS (PROG2 (PRINC "Dumping COMLAP;GG.DMP " TYO) "DSK:COMLAP;GG.DMP ") #+DEC20 (COND ((EQ (status opsys) 'TOPS-20) (PRINC "Ready to SAVE as GG.EXE." TYO) "PS:GG.SAV"))) **** FILE DSK:COMLAP;CCLOAD 186, 9-21 (19232) #+ITS (COND ((OR (NOT (FIXP CCLOAD:PURE)) (STATUS FEATURE XC)) (PRINC "Dumping eXperimentalCOMPLr on LSPDMP;XC.DMP " TYO) "DSK:LSPDMP;XC.DMP ") ('T (PRINC "Dumping LSPDMP;CL.DMP " TYO) "DSK:LSPDMP;CL.DMP ")) #+DEC20 (COND ((EQ (status opsys) 'TOPS-20) (PRINC "Ready to SAVE as COMPLR.EXE." TYO) "PS:COMPLR.EXE") ('T (PRINC "Ready to SAVE as COMPLR.SAV;" TYO) "DSK:COMPLR.SAV"))) *************** **** FILE DSK:COMLAP;GGLOAD 26, 7-32 (19123) #+ITS (NTH 2 (PROBEF '|DSK:COMLAP;GG.DMP >|)) #-ITS (NTH (SE CCLOAD:DUMPFILE))) (OR CCLOAD:DUMPVERNO (SETQ CCLOAD:DUMPVERNO '/1)) **** FILE DSK:COMLAP;CCLOAD 186, 9-36 (19828) #+ITS (PROG2 (SETQ X (NTH 2 (PROBEF '|DSK:LSPDMP;XC.DMP >|))  AY (NTH 2 (PROBEF '|DSK:LS&wCL.DM|S)) (COND ((OR (NULL X) (ALPHALESSP X Y)) Y) "DA (T X))) #-ITS (NTH 3 (PROBEF CCLOAD:DUMPFILE))) (OR CCLOAD:DUMPVOA(BREAh!ÙOAD:DhVSS *************** **** FILE DSK:COMLAP;GGLOAD 26, 7-49 (19732) #+DEC10 (PRINC "Ready to SSAVE as GG.SAV (or .SHR,.LOW)/ **** FILE DSK:COMLAP;CCLOAD 186, 9-56 (20568) #+DEC10 (PRINC "Ready to SSAVE as COMPLR.SAV (or .SHR,.LOW)/ *************** **** FILE DSK:COMLAP;GGLOAD 26, 7-53 (19884) (CDUMP '|save sys:gg| "DQgg shH9 g)))) ('T (MAKUNBOUND 'CCLOAD:PURESEG) (CDUMP '|Save sys:gg|))) **** FILE DSK:COMLAP;CCLOAD 186, 9-60 (20724) (CDUMP '|save sys:ncompl| '(ncompl shr sys (1 3)))) ('T (MAKUNBOUND 'CCLOAD:PURESEG) (CDUMP '|Save sys:bcompl|))) ***************