(FILECREATED "19-Jun-86 13:13:33" ("compiled on " {ERIS}LIBRARY>CMLDEFFER.;38) "19-Jun-86 12:46:19" "COMPILE-FILEd" in "Xerox Lisp 19-Jun-86 ..." dated "19-Jun-86 12:58:11") (FILECREATED "11-Jun-86 21:08:47" {ERIS}LIBRARY>CMLDEFFER.;38 13792 changes to: (FUNCTIONS DEFUN DEFMACRO) previous date: "11-Jun-86 12:05:32" {ERIS}LIBRARY>CMLDEFFER.;37) (RPAQQ CMLDEFFERCOMS ((COMS (INITVARS (FILEPKGFLG)) (COMS (FNS PPRINT-DEFINER \DEFINE-TYPE-GETDEF))) ( PROP MACRO-FN DEFDEFINER WITHOUT-FILEPKG) (FNS expand-DEFDEFINER expand-WITHOUT-FILEPKG) (ADDVARS ( FILEPKGTYPES DEFINE-TYPES FUNCTIONS)) (FUNCTIONS DEFDEFINER DEF-DEFINE-TYPE WITHOUT-FILEPKG) ( DEFINE-TYPES DEFINE-TYPES FUNCTIONS VARIABLES) (FUNCTIONS DEFUN DEFMACRO CL:DEFMACRO DEFVAR DEFPARAMETER DEFCONSTANT) (PROP FILEPKGCONTENTS FUNCTIONS) (* don't note file package changes to MACRO-FN) (PROP PROPTYPE MACRO-FN) (PROP FILETYPE CMLDEFFER) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (RPAQ? FILEPKGFLG) PPRINT-DEFINER D1 (L (0 DEFINE-EXPRESSION) P 3 #RPARS F 4 COMMENTFLG) @@b@bo H k I5o ` I ` k Iidd o ` I ` @dk @@bi @@dTk @@bid @id J lk @idd o h (317Q TERPRI 313Q PRIN1 304Q PRINTDEF 274Q SPACES 264Q DSPXPOSITION 257Q TERPRI 253Q FITP 244Q PRINTDEF 227Q SPACES 203Q PRINTDEF 167Q SPACES 153Q CHANGEFONT 144Q PRIN2 137Q CHANGEFONT 127Q PRIN1 117Q PRINTDEF 106Q SPACES 101Q CHANGEFONT 72Q PRIN2 64Q CHANGEFONT 55Q PRIN1 42Q SPACES 35Q PRIN2 30Q PRIN1 16Q DSPXPOSITION) (150Q DEFAULTFONT 134Q PRETTYCOMFONT 76Q DEFAULTFONT 61Q PRETTYCOMFONT) ( 310Q ")" 124Q ")" 52Q "(" 25Q "(") \DEFINE-TYPE-GETDEF D1 (L (2 OPTIONS 1 TYPE 0 ITEM)) +@l$BgBgB@A' @A'(40Q COPY) (23Q EDIT 12Q EDIT) () (PUTPROPS DEFDEFINER MACRO-FN expand-DEFDEFINER) (PUTPROPS WITHOUT-FILEPKG MACRO-FN expand-WITHOUT-FILEPKG) expand-DEFDEFINER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM) F 10Q FILEPKGFLG) @q@HH[K]M_ggggJggNgggggOhhgggggogoggLhhohhhhhohhgggJghhgJhhhWgogJgIhhhgJhh (341Q \APPEND2) (330Q QUOTE 311Q FUNCTIONS 305Q PUTPROPS 276Q EVAL-WHEN 253Q QUOTE 240Q PPRINT-DEFINER 234Q PRETTYPRINTMACROS 231Q ADDTOVAR 226Q WITHOUT-FILEPKG 146Q QUOTE 143Q \, 134Q PUTPROPS 125Q EVAL-WHEN 122Q BQUOTE 117Q FILEPKGFLG 114Q AND 111Q \,@ 75Q PROGN 72Q \, 67Q WITHOUT-FILEPKG 64Q PROGN 61Q BQUOTE 53Q %%ORIGINAL-DEFINITION 50Q &WHOLE 44Q DEFMACRO 41Q PROGN 36Q WITHOUT-FILEPKG 33Q PROGN) ( 302Q (CL:EVAL) 210Q ((QUOTE (\, NAME))) 161Q ((\, %%ORIGINAL-DEFINITION)) 140Q (\, NAME) 131Q (CL:EVAL)) expand-WITHOUT-FILEPKG D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) =@ggoHgogogooHhhhNIL (42Q LET 33Q AND 24Q EVAL-WHEN 12Q EVAL-WHEN 7 PROGN) ( 52Q (DECLARE (SPECIAL FILEPKGFLG DFNFLG)) 46Q (FILEPKGFLG (DFNFLG T)) 37Q (NEQ DFNFLG (QUOTE PROP)) 30Q (CL:EVAL) 16Q (LOAD)) (ADDTOVAR FILEPKGTYPES DEFINE-TYPES FUNCTIONS) expand-DEFDEFINER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @q@HH[K]M_ggggJggNgggggOhhgogggoggLhhohhohhgggJghhgJhhhgogggJgIhhhgJhhNIL (316Q QUOTE 275Q FUNCTIONS 271Q PUTPROPS 266Q FILEPKGFLG 263Q AND 254Q EVAL-WHEN 235Q QUOTE 222Q PPRINT-DEFINER 216Q PRETTYPRINTMACROS 213Q ADDTOVAR 210Q WITHOUT-FILEPKG 140Q QUOTE 135Q \, 126Q PUTPROPS 123Q FILEPKGFLG 120Q AND 111Q EVAL-WHEN 75Q PROGN 72Q \, 67Q WITHOUT-FILEPKG 64Q PROGN 61Q BQUOTE 53Q %%ORIGINAL-DEFINITION 50Q &WHOLE 44Q DEFMACRO 41Q PROGN 36Q WITHOUT-FILEPKG 33Q PROGN) ( 260Q (CL:EVAL) 172Q ((QUOTE (\, NAME))) 153Q ((\, %%ORIGINAL-DEFINITION)) 132Q (\, NAME) 115Q (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFDEFINER) (QUOTE expand-DEFDEFINER)) (ADDTOVAR PRETTYPRINTMACROS (DEFDEFINER . PPRINT-DEFINER)) expand-DEF-DEFINE-TYPE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) #@A@HHgggoggJggggoggogggggJhhhhogoogJhohhhhhhhggoJo \d L LJKhhggJhgJogJogJgJhhhgogggJgIhhhgJhh(256Q SET 250Q BOUNDP 243Q PACK*) (427Q QUOTE 406Q DEFINE-TYPES 402Q PUTPROPS 377Q FILEPKGFLG 374Q AND 365Q EVAL-WHEN 340Q PROPTYPE 334Q PUTPROPS 322Q PUTPROPS 310Q PUTPROPS 300Q FILEPKGTYPES 275Q ADDTOVAR 227Q PRETTYTYPELST 224Q ADDTOVAR 151Q QUOTE 136Q CERROR 112Q QUOTE 107Q ITEM 104Q GET 101Q DEF 76Q CL:DO 67Q LAMBDA 64Q FUNCTION 55Q MAPCAR 52Q * 47Q P 44Q X 40Q PRETTYDEFMACROS 35Q ADDTOVAR 26Q PROGN 23Q WITHOUT-FILEPKG 20Q PROGN) ( 371Q (CL:EVAL) 327Q (FILEPKGCONTENTS NILL) 315Q (GETDEF \DEFINE-TYPE-GETDEF) 240Q "LST" 233Q "CHANGED" 161Q (ITEM) 146Q "No ~S definition for ~S" 142Q "Re-fetch the definition" 133Q (DEF DEF) 73Q (ITEM) 61Q (QUOTE X) 32Q (* This definition is a hokey way of defining a file package type that works even before the file package is loaded)) (SETF-MACRO-FUNCTION (QUOTE DEF-DEFINE-TYPE) (QUOTE expand-DEF-DEFINE-TYPE)) (ADDTOVAR PRETTYPRINTMACROS (DEF-DEFINE-TYPE . PPRINT-DEFINER)) expand-WITHOUT-FILEPKG D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) =@ggoHgogogooHhhhNIL (42Q LET 33Q AND 24Q EVAL-WHEN 12Q EVAL-WHEN 7 PROGN) ( 52Q (DECLARE (SPECIAL FILEPKGFLG DFNFLG)) 46Q (FILEPKGFLG (DFNFLG T)) 37Q (NEQ DFNFLG (QUOTE PROP)) 30Q (CL:EVAL) 16Q (CL:LOAD)) (SETF-MACRO-FUNCTION (QUOTE WITHOUT-FILEPKG) (QUOTE expand-WITHOUT-FILEPKG)) (ADDTOVAR PRETTYDEFMACROS (DEFINE-TYPES X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF (GET ITEM (QUOTE DEFINE-TYPES)))) (DEF DEF) (CERROR "Re-fetch the definition" "No ~S definition for ~S" (QUOTE DEFINE-TYPES) ITEM)))))))) (ADDTOVAR PRETTYTYPELST (CHANGEDDEFINE-TYPESLST DEFINE-TYPES "Common Lisp definition type")) (ADDTOVAR FILEPKGTYPES DEFINE-TYPES) (PUTPROPS DEFINE-TYPES GETDEF \DEFINE-TYPE-GETDEF) (PUTPROPS DEFINE-TYPES FILEPKGCONTENTS NILL) (PUTPROPS DEFINE-TYPES PROPTYPE DEFINE-TYPES) (ADDTOVAR PRETTYDEFMACROS (FUNCTIONS X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF ( GET ITEM (QUOTE FUNCTIONS)))) (DEF DEF) (CERROR "Re-fetch the definition" "No ~S definition for ~S" ( QUOTE FUNCTIONS) ITEM)))))))) (ADDTOVAR PRETTYTYPELST (CHANGEDFUNCTIONSLST FUNCTIONS "Common Lisp functions")) (ADDTOVAR FILEPKGTYPES FUNCTIONS) (PUTPROPS FUNCTIONS GETDEF \DEFINE-TYPE-GETDEF) (PUTPROPS FUNCTIONS FILEPKGCONTENTS NILL) (PUTPROPS FUNCTIONS PROPTYPE FUNCTIONS) (ADDTOVAR PRETTYDEFMACROS (VARIABLES X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF ( GET ITEM (QUOTE VARIABLES)))) (DEF DEF) (CERROR "Re-fetch the definition" "No ~S definition for ~S" ( QUOTE VARIABLES) ITEM)))))))) (ADDTOVAR PRETTYTYPELST (CHANGEDVARIABLESLST VARIABLES "Common Lisp variables")) (ADDTOVAR FILEPKGTYPES VARIABLES) (PUTPROPS VARIABLES GETDEF \DEFINE-TYPE-GETDEF) (PUTPROPS VARIABLES FILEPKGCONTENTS NILL) (PUTPROPS VARIABLES PROPTYPE VARIABLES) expand-DEFUN D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @q@HH[KAi ]M_gggggJhhggLOgJNh hhhgogggJgIhhhgJhh(114Q \APPEND2 30Q \MVLIST 25Q PARSE-BODY) (175Q QUOTE 154Q FUNCTIONS 150Q PUTPROPS 145Q FILEPKGFLG 142Q AND 133Q EVAL-WHEN 103Q CL:BLOCK 75Q CL:LAMBDA 72Q CL:FUNCTION 60Q QUOTE 55Q SYMBOL-FUNCTION 52Q SETF 47Q WITHOUT-FILEPKG 44Q PROGN) ( 137Q (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFUN) (QUOTE expand-DEFUN)) (ADDTOVAR PRETTYPRINTMACROS (DEFUN . PPRINT-DEFINER)) expand-DEFMACRO D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ @HH[KggoJ _LgMJhgg  __OgogggOhhggoNgJOhh hhgggJhhgOhhhhgogggJgIhhhgJhh(163Q \APPEND2 66Q \MVLIST 63Q PARSE-DEFMACRO 37Q PACK*) (305Q QUOTE 264Q FUNCTIONS 260Q PUTPROPS 255Q FILEPKGFLG 252Q AND 243Q EVAL-WHEN 217Q QUOTE 205Q QUOTE 202Q MACRO-FUNCTION 177Q SETF 147Q CL:BLOCK 137Q CL:LAMBDA 134Q CL:FUNCTION 121Q QUOTE 116Q SYMBOL-FUNCTION 113Q SETF 104Q EVAL-WHEN 57Q $$MACRO-ENVIRONMENT 54Q :ENVIRONMENT 46Q $$MACRO-FORM 27Q WITHOUT-FILEPKG 24Q PROGN) ( 247Q (CL:EVAL) 143Q ($$MACRO-FORM $$MACRO-ENVIRONMENT) 110Q (CL:EVAL CL:COMPILE CL:LOAD) 33Q "expand-") (SETF-MACRO-FUNCTION (QUOTE DEFMACRO) (QUOTE expand-DEFMACRO)) (ADDTOVAR PRETTYPRINTMACROS (DEFMACRO . PPRINT-DEFINER)) expand-CL:DEFMACRO D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHNIL (7 DEFMACRO) () (SETF-MACRO-FUNCTION (QUOTE CL:DEFMACRO) (QUOTE expand-CL:DEFMACRO)) expand-DEFVAR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @Q@HH[dKhhgggM!gggJhhgJLhhhgggJhhhh hgogggJgIhhhgJhh(131Q \APPEND2) (202Q QUOTE 161Q VARIABLES 155Q PUTPROPS 152Q FILEPKGFLG 147Q AND 140Q EVAL-WHEN 112Q SPECIAL 107Q QUOTE 104Q PROCLAIM 65Q SETQ 53Q QUOTE 50Q BOUNDP 45Q OR 37Q PROGN 34Q WITHOUT-FILEPKG 31Q PROGN) ( 144Q (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFVAR) (QUOTE expand-DEFVAR)) (ADDTOVAR PRETTYPRINTMACROS (DEFVAR . PPRINT-DEFINER)) expand-DEFPARAMETER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) g@1@HHggggJKhggJhohhgogggJgIhhhgJhhNIL (133Q QUOTE 112Q VARIABLES 106Q PUTPROPS 103Q FILEPKGFLG 100Q AND 71Q EVAL-WHEN 45Q QUOTE 42Q PUT 31Q SETQ 26Q PROGN 23Q WITHOUT-FILEPKG 20Q PROGN) ( 75Q (CL:EVAL) 55Q ((QUOTE GLOBALVAR) T)) (SETF-MACRO-FUNCTION (QUOTE DEFPARAMETER) (QUOTE expand-DEFPARAMETER)) (ADDTOVAR PRETTYPRINTMACROS (DEFPARAMETER . PPRINT-DEFINER)) expand-DEFCONSTANT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) u@1@HHggggJKhggJhggJhhohhgogggJgIhhhgJhhNIL (151Q QUOTE 130Q VARIABLES 124Q PUTPROPS 121Q FILEPKGFLG 116Q AND 107Q EVAL-WHEN 57Q CONSTANT 54Q QUOTE 45Q QUOTE 42Q PUTHASH 31Q SETQ 26Q PROGN 23Q WITHOUT-FILEPKG 20Q PROGN) ( 113Q (CL:EVAL) 72Q (COMPVARMACROHASH)) (SETF-MACRO-FUNCTION (QUOTE DEFCONSTANT) (QUOTE expand-DEFCONSTANT)) (ADDTOVAR PRETTYPRINTMACROS (DEFCONSTANT . PPRINT-DEFINER)) (PUTPROPS FUNCTIONS FILEPKGCONTENTS NILL) (PUTPROPS MACRO-FN PROPTYPE FUNCTIONS) (PUTPROPS CMLDEFFER FILETYPE COMPILE-FILE) (PUTPROPS CMLDEFFER COPYRIGHT ("Xerox Corporation" 1986)) STOP