(FILECREATED "11-Jun-86 21:09:14" ("compiled on " {ERIS}LIBRARY>CMLDEFFER.;38) "11-Jun-86 13:27:02" "COMPILE-FILEd" in "Xerox Lisp 11-Jun-86 ..." dated "11-Jun-86 13:41:17") (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 (P 3 #RPARS P 2 CURRENT P 1 DEFINED P 0 DEFINER I 0 DEFINE-EXPRESSION 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 (I 2 OPTIONS I 1 TYPE I 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 (P 10Q BODY P 7 A0228 P 6 ARGLIST P 5 A0227 P 4 TYPE P 3 A0226 P 2 NAME P 1 %%ORIGINAL-DEFINITION P 0 A0225 I 1 $$MACRO-ENVIRONMENT I 0 $$MACRO-FORM F 11Q FILEPKGFLG) @@HH[K]M__ggggJggNgggggOhhgggggogoggLhhohhhhhohhgggJghhgJhhhWgogJgIhhhgJhh (343Q \APPEND2) (332Q QUOTE 313Q FUNCTIONS 307Q PUTPROPS 300Q EVAL-WHEN 255Q QUOTE 242Q PPRINT-DEFINER 236Q PRETTYPRINTMACROS 233Q ADDTOVAR 230Q WITHOUT-FILEPKG 150Q QUOTE 145Q \, 136Q PUTPROPS 127Q EVAL-WHEN 124Q BQUOTE 121Q FILEPKGFLG 116Q AND 113Q \,@ 77Q PROGN 74Q \, 71Q WITHOUT-FILEPKG 66Q PROGN 63Q BQUOTE 55Q %%ORIGINAL-DEFINITION 52Q &WHOLE 46Q DEFMACRO 43Q PROGN 40Q WITHOUT-FILEPKG 35Q PROGN) ( 304Q (CL:EVAL) 212Q ((QUOTE (\, NAME))) 163Q ((\, %%ORIGINAL-DEFINITION)) 142Q (\, NAME) 133Q (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 (0 -args-)) eka IIJJ]M__O_ggggLggOgggggOhhgogggoggNhhohhohhgggLghhgLhhhgogggLgKhhhgLhhNIL (332Q QUOTE 311Q FUNCTIONS 305Q PUTPROPS 302Q FILEPKGFLG 277Q AND 270Q EVAL-WHEN 251Q QUOTE 236Q PPRINT-DEFINER 232Q PRETTYPRINTMACROS 227Q ADDTOVAR 224Q WITHOUT-FILEPKG 154Q QUOTE 151Q \, 142Q PUTPROPS 137Q FILEPKGFLG 134Q AND 125Q EVAL-WHEN 111Q PROGN 106Q \, 103Q WITHOUT-FILEPKG 100Q PROGN 75Q BQUOTE 66Q %%ORIGINAL-DEFINITION 63Q &WHOLE 57Q DEFMACRO 54Q PROGN 51Q WITHOUT-FILEPKG 46Q PROGN) ( 274Q (CL:EVAL) 206Q ((QUOTE (\, NAME))) 167Q ((\, %%ORIGINAL-DEFINITION)) 146Q (\, NAME) 131Q (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFDEFINER) (QUOTE expand-DEFDEFINER)) (ADDTOVAR PRETTYPRINTMACROS (DEFDEFINER . PPRINT-DEFINER)) expand-DEF-DEFINE-TYPE D1 (L (0 -args-)) *ekaQIIJJgggoggLggggoggogggggLhhhhogoogLhohhhhhhhggoLo ^d N NLMhhggLhgLogLogLgLhhhgogggLgKhhhgLhh(265Q SET 257Q BOUNDP 252Q PACK*) (436Q QUOTE 415Q DEFINE-TYPES 411Q PUTPROPS 406Q FILEPKGFLG 403Q AND 374Q EVAL-WHEN 347Q PROPTYPE 343Q PUTPROPS 331Q PUTPROPS 317Q PUTPROPS 307Q FILEPKGTYPES 304Q ADDTOVAR 236Q PRETTYTYPELST 233Q ADDTOVAR 160Q QUOTE 145Q CERROR 121Q QUOTE 116Q ITEM 113Q GET 110Q DEF 105Q CL:DO 76Q LAMBDA 73Q FUNCTION 64Q MAPCAR 61Q * 56Q P 53Q X 47Q PRETTYDEFMACROS 44Q ADDTOVAR 35Q PROGN 32Q WITHOUT-FILEPKG 27Q PROGN) ( 400Q (CL:EVAL) 336Q (FILEPKGCONTENTS NILL) 324Q (GETDEF \DEFINE-TYPE-GETDEF) 247Q "LST" 242Q "CHANGED" 170Q (ITEM) 155Q "No ~S definition for ~S" 151Q "Re-fetch the definition" 142Q (DEF DEF) 102Q (ITEM) 70Q (QUOTE X) 41Q (* 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 (0 -args-)) BekaggoIgogogooIhhhNIL (47Q LET 40Q AND 31Q EVAL-WHEN 17Q EVAL-WHEN 14Q PROGN) ( 57Q (DECLARE (SPECIAL FILEPKGFLG DFNFLG)) 53Q (FILEPKGFLG (DFNFLG T)) 44Q (NEQ DFNFLG (QUOTE PROP)) 35Q (CL:EVAL) 23Q (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 (0 -args-)) eka laIIKK^_NJi __O_gggggMhhggOOgMOh hhhgogggMgLhhhgMhh(137Q \APPEND2 45Q \MVLIST 42Q PARSE-BODY) (220Q QUOTE 177Q FUNCTIONS 173Q PUTPROPS 170Q FILEPKGFLG 165Q AND 156Q EVAL-WHEN 125Q CL:BLOCK 116Q CL:LAMBDA 113Q CL:FUNCTION 101Q QUOTE 76Q SYMBOL-FUNCTION 73Q SETF 70Q WITHOUT-FILEPKG 65Q PROGN) ( 162Q (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFUN) (QUOTE expand-DEFUN)) (ADDTOVAR PRETTYPRINTMACROS (DEFUN . PPRINT-DEFINER)) expand-DEFMACRO D1 (L (0 -args-)) eka IIJJ]M_ggoL _NgOLhgg  __O_gogggOhhggoOgLOhh hhgggLhhgOhhhhgogggLgKhhhgLhh(200Q \APPEND2 100Q \MVLIST 75Q PARSE-DEFMACRO 50Q PACK*) (322Q QUOTE 301Q FUNCTIONS 275Q PUTPROPS 272Q FILEPKGFLG 267Q AND 260Q EVAL-WHEN 234Q QUOTE 222Q QUOTE 217Q MACRO-FUNCTION 214Q SETF 164Q CL:BLOCK 153Q CL:LAMBDA 150Q CL:FUNCTION 135Q QUOTE 132Q SYMBOL-FUNCTION 127Q SETF 120Q EVAL-WHEN 71Q $$MACRO-ENVIRONMENT 66Q :ENVIRONMENT 57Q $$MACRO-FORM 40Q WITHOUT-FILEPKG 35Q PROGN) ( 264Q (CL:EVAL) 157Q ($$MACRO-FORM $$MACRO-ENVIRONMENT) 124Q (CL:EVAL CL:COMPILE CL:LOAD) 44Q "expand-") (SETF-MACRO-FUNCTION (QUOTE DEFMACRO) (QUOTE expand-DEFMACRO)) (ADDTOVAR PRETTYPRINTMACROS (DEFMACRO . PPRINT-DEFINER)) expand-CL:DEFMACRO D1 (L (0 -args-)) ekagINIL (14Q DEFMACRO) () (SETF-MACRO-FUNCTION (QUOTE CL:DEFMACRO) (QUOTE expand-CL:DEFMACRO)) expand-DEFVAR D1 (L (0 -args-)) ekaaIIJJ]dMhh_gggO!gggLhhgLNhhhgggLhhhh hgogggLgKhhhgLhh(143Q \APPEND2) (214Q QUOTE 173Q VARIABLES 167Q PUTPROPS 164Q FILEPKGFLG 161Q AND 152Q EVAL-WHEN 124Q SPECIAL 121Q QUOTE 116Q PROCLAIM 77Q SETQ 65Q QUOTE 62Q BOUNDP 57Q OR 50Q PROGN 45Q WITHOUT-FILEPKG 42Q PROGN) ( 156Q (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFVAR) (QUOTE expand-DEFVAR)) (ADDTOVAR PRETTYPRINTMACROS (DEFVAR . PPRINT-DEFINER)) expand-DEFPARAMETER D1 (L (0 -args-)) nekaAIIJJggggLMhggLhohhgogggLgKhhhgLhhNIL (142Q QUOTE 121Q VARIABLES 115Q PUTPROPS 112Q FILEPKGFLG 107Q AND 100Q EVAL-WHEN 54Q QUOTE 51Q PUT 40Q SETQ 35Q PROGN 32Q WITHOUT-FILEPKG 27Q PROGN) ( 104Q (CL:EVAL) 64Q ((QUOTE GLOBALVAR) T)) (SETF-MACRO-FUNCTION (QUOTE DEFPARAMETER) (QUOTE expand-DEFPARAMETER)) (ADDTOVAR PRETTYPRINTMACROS (DEFPARAMETER . PPRINT-DEFINER)) expand-DEFCONSTANT D1 (L (0 -args-)) |ekaAIIJJggggLMhggLhggLhhohhgogggLgKhhhgLhhNIL (160Q QUOTE 137Q VARIABLES 133Q PUTPROPS 130Q FILEPKGFLG 125Q AND 116Q EVAL-WHEN 66Q CONSTANT 63Q QUOTE 54Q QUOTE 51Q PUTHASH 40Q SETQ 35Q PROGN 32Q WITHOUT-FILEPKG 27Q PROGN) ( 122Q (CL:EVAL) 101Q (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