(FILECREATED " 1-Oct-86 17:23:10" ("compiled on " {ERIS}SOURCES>CMLDEFFER.;16) "30-Sep-86 21:35:38" in "Xerox Lisp 29-Sep-86 ..." dated "29-Sep-86 15:41:04") (FILECREATED " 1-Oct-86 17:09:53" {ERIS}SOURCES>CMLDEFFER.;16 19407 changes to: (FUNCTIONS DEF-DEFINE-TYPE DEFDEFINER DEFUN DEFMACRO DEFVAR DEFPARAMETER DEFCONSTANT DEFGLOBALVAR DEFGLOBALPARAMETER) (VARIABLES *DEFINITION-HASH-TABLE*) previous date: " 1-Oct-86 16:41:17" {ERIS}SOURCES>CMLDEFFER.;15) (RPAQQ CMLDEFFERCOMS ((* ;;; "DEF-DEFINE-TYPE and DEFDEFINER -- Your One-Stop Providers of Customized File Manager Facilities.") (* ;; "BE VERY CAREFUL CHANGING ANYTHING IN THIS FILE!!! It is heavily self-referential and thick with bootstrapping problems. All but the most trivial changes (and some of those) are very tricky to make without blowing yourself out of the water... You have been warned." ) (COMS (INITVARS (FILEPKGFLG)) (COMS (FNS PPRINT-DEFINER \DEFINE-TYPE-GETDEF REMOVE-COMMENTS) ( FUNCTIONS \DEFINE-TYPE-SAVE-DEFN))) (VARIABLES *DEFINITION-HASH-TABLE*) (DEFINE-TYPES DEFINE-TYPES FUNCTIONS VARIABLES) (FUNCTIONS DEFDEFINER DEF-DEFINE-TYPE WITHOUT-FILEPKG) (FUNCTIONS DEFUN DEFINLINE DEFMACRO) (FUNCTIONS DEFVAR DEFPARAMETER DEFCONSTANT DEFGLOBALVAR DEFGLOBALPARAMETER) (* ;; "Don't note file package changes to macro-fn.") (PROP PROPTYPE MACRO-FN) (* ;; "Arrange for the correct compiler to be used.") (PROP FILETYPE CMLDEFFER))) (RPAQ? FILEPKGFLG) PPRINT-DEFINER D1 (P 3 #RPARS P 2 CURRENT P 1 DEFINED P 0 DEFINER I 0 DEFINE-EXPRESSION) @@b@bo H k I5o ` I ` k Iidd o ` I ` @dk @@bi @@d`k @@bid @id hiJ lk @idd o h (325Q TERPRI 321Q PRIN1 312Q PRINTDEF 302Q SPACES 272Q DSPXPOSITION 265Q TERPRI 255Q FITP 246Q PRINTDEF 231Q 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) (221Q COMMENTFLG 150Q DEFAULTFONT 134Q PRETTYCOMFONT 76Q DEFAULTFONT 61Q PRETTYCOMFONT) ( 316Q ")" 124Q ")" 52Q "(" 25Q "(") \DEFINE-TYPE-GETDEF D1 (P 1 DEFN P 0 HASH-TABLE I 2 OPTIONS I 1 TYPE I 0 NAME) ;A` H@H @l @A'BgBgBI I(66Q COPY 20Q CL:GETHASH 6 CL:GETHASH) (57Q EDIT 47Q EDIT 3 *DEFINITION-HASH-TABLE*) () REMOVE-COMMENTS D1 (I 0 X) 4@@`@b@ @ Hd@I@@HI(35Q REMOVE-COMMENTS 30Q REMOVE-COMMENTS) (13Q COMMENTFLG) () \DEFINE-TYPE-SAVE-DEFN D1 (L (2 DEFINITION 1 TYPE 0 NAME)) +@A A` HoA @HB @Ag (50Q MARKASCHANGED 37Q CL:PUTHASH 30Q CL:ERROR 13Q CL:GETHASH 4 REMPROP) (45Q CHANGED 10Q *DEFINITION-HASH-TABLE*) ( 24Q "\DEFINE-TYPE-PUTDEF: Can't find hash table for type ~S") (PROCLAIM (QUOTE (GLOBAL *DEFINITION-HASH-TABLE*))) (OR (BOUNDP (QUOTE *DEFINITION-HASH-TABLE*)) (SETQ *DEFINITION-HASH-TABLE* (HASHARRAY 20))) (ADDTOVAR PRETTYDEFMACROS (DEFINE-TYPES X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF (GETDEF 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")) (COND ((NOT (CL:GETHASH (QUOTE DEFINE-TYPES) *DEFINITION-HASH-TABLE*)) (CL:PUTHASH (QUOTE DEFINE-TYPES ) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 50 (QUOTE :REHASH-SIZE) 50)))) (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 ( GETDEF 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")) (COND ((NOT (CL:GETHASH (QUOTE FUNCTIONS) *DEFINITION-HASH-TABLE*)) (CL:PUTHASH (QUOTE FUNCTIONS) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 50 (QUOTE :REHASH-SIZE) 50)))) (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 ( GETDEF 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")) (COND ((NOT (CL:GETHASH (QUOTE VARIABLES) *DEFINITION-HASH-TABLE*)) (CL:PUTHASH (QUOTE VARIABLES) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 50 (QUOTE :REHASH-SIZE) 50)))) (ADDTOVAR FILEPKGTYPES VARIABLES) (PUTPROPS VARIABLES GETDEF \DEFINE-TYPE-GETDEF) (PUTPROPS VARIABLES FILEPKGCONTENTS NILL) (PUTPROPS VARIABLES PROPTYPE VARIABLES) expand-DEFDEFINER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) 1 @  @HH[K]MAi __O_O_ggggJggNOgggggOhhgogggogggLhhhohhohh gggJghhOgggJhoOhhgJhh hgoggggJhogIhhhhgJhh(355Q \APPEND2 252Q \APPEND2 40Q \MVLIST 35Q PARSE-BODY 4 REMOVE-COMMENTS) (445Q QUOTE 421Q QUOTE 406Q QUOTE 403Q \DEFINE-TYPE-SAVE-DEFN 400Q FILEPKGFLG 375Q AND 366Q EVAL-WHEN 344Q QUOTE 317Q QUOTE 314Q DOCUMENTATION 311Q SETF 272Q PPRINT-DEFINER 266Q PRETTYPRINTMACROS 263Q ADDTOVAR 260Q WITHOUT-FILEPKG 202Q QUOTE 177Q \, 174Q QUOTE 165Q \DEFINE-TYPE-SAVE-DEFN 162Q FILEPKGFLG 157Q AND 150Q EVAL-WHEN 134Q PROGN 131Q \, 126Q WITHOUT-FILEPKG 123Q PROGN 120Q BQUOTE 110Q %%ORIGINAL-DEFINITION 105Q &WHOLE 101Q DEFMACRO 76Q PROGN 73Q WITHOUT-FILEPKG 70Q PROGN) ( 416Q (QUOTE FUNCTIONS) 372Q (CL:EVAL) 327Q ((QUOTE CL:FUNCTION)) 237Q ((QUOTE (\, NAME))) 220Q ((QUOTE (\, %%ORIGINAL-DEFINITION))) 171Q (QUOTE (\, NAME)) 154Q (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@HHgggggJggggoggogggggJhhhhogoogJhohhhhhhhggoJo \d L LJKhhgggJhogggJhoohggJhgJogJogJgJhhhgoggggJhogIhhhhgJhh(255Q SET 247Q BOUNDP 242Q PACK* 4 REMOVE-COMMENTS) (523Q QUOTE 477Q QUOTE 464Q QUOTE 461Q \DEFINE-TYPE-SAVE-DEFN 456Q FILEPKGFLG 453Q AND 444Q EVAL-WHEN 417Q PROPTYPE 413Q PUTPROPS 401Q PUTPROPS 367Q PUTPROPS 357Q FILEPKGTYPES 354Q ADDTOVAR 325Q QUOTE 322Q CL:GETHASH 317Q SETF 302Q QUOTE 277Q CL:GETHASH 274Q CL:UNLESS 226Q PRETTYTYPELST 223Q ADDTOVAR 150Q QUOTE 135Q CERROR 111Q QUOTE 106Q ITEM 103Q GETDEF 100Q DEF 75Q CL:DO 66Q LAMBDA 63Q FUNCTION 54Q MAPCAR 51Q * 46Q P 43Q X 37Q PRETTYDEFMACROS 34Q ADDTOVAR 31Q PROGN 26Q WITHOUT-FILEPKG 23Q PROGN) ( 474Q (QUOTE DEFINE-TYPES) 450Q (CL:EVAL) 406Q (FILEPKGCONTENTS NILL) 374Q (GETDEF \DEFINE-TYPE-GETDEF) 343Q ((MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 62Q (QUOTE :REHASH-SIZE) 62Q)) 335Q (*DEFINITION-HASH-TABLE*) 312Q (*DEFINITION-HASH-TABLE*) 237Q "LST" 232Q "CHANGED" 160Q (ITEM) 145Q "No ~S definition for ~S" 141Q "Re-fetch the definition" 132Q (DEF DEF) 72Q (ITEM) 60Q (QUOTE X)) (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)) expand-DEFUN D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ @HH[KAi ]M_M_ggggggJhhggLOgJNh hhOgggJhoOhhhgoggggJhogIhhhhgJhh(131Q \APPEND2 33Q \MVLIST 30Q PARSE-BODY 4 REMOVE-COMMENTS) (270Q QUOTE 244Q QUOTE 231Q QUOTE 226Q \DEFINE-TYPE-SAVE-DEFN 223Q FILEPKGFLG 220Q AND 211Q EVAL-WHEN 157Q QUOTE 154Q DOCUMENTATION 151Q SETF 120Q CL:BLOCK 112Q CL:LAMBDA 107Q CL:FUNCTION 75Q QUOTE 72Q SYMBOL-FUNCTION 67Q SETF 64Q PROGN 61Q WITHOUT-FILEPKG 56Q PROGN) ( 241Q (QUOTE FUNCTIONS) 215Q (CL:EVAL) 167Q ((QUOTE CL:FUNCTION))) (SETF-MACRO-FUNCTION (QUOTE DEFUN) (QUOTE expand-DEFUN)) (ADDTOVAR PRETTYPRINTMACROS (DEFUN . PPRINT-DEFINER)) expand-DEFINLINE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @  @HH[KAggMNi __O_gLOgJOh _ggJLMgJgJ oggOhohhhgoggggJhogIhhhhgJhh(141Q PACK* 105Q \APPEND2 45Q \MVLIST 42Q PARSE-BODY 4 REMOVE-COMMENTS) (265Q QUOTE 241Q QUOTE 226Q QUOTE 223Q \DEFINE-TYPE-SAVE-DEFN 220Q FILEPKGFLG 215Q AND 206Q EVAL-WHEN 153Q QUOTE 150Q CONS 135Q defsubst- 131Q DEFOPTIMIZER 120Q DEFUN 115Q PROGN 73Q CL:BLOCK 65Q CL:LAMBDA 34Q WITHOUT-FILEPKG 31Q PROGN) ( 236Q (QUOTE FUNCTIONS) 212Q (CL:EVAL) 164Q (ARGS) 145Q (&REST ARGS)) (SETF-MACRO-FUNCTION (QUOTE DEFINLINE) (QUOTE expand-DEFINLINE)) (ADDTOVAR PRETTYPRINTMACROS (DEFINLINE . PPRINT-DEFINER)) expand-DEFMACRO D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM))  @  @HH[KggJhiJlhioJ oJ _LgMJhgg  __O__OgogggOhhggoOgJOhh hhgggJhhgOhhNgggJhoNhhhgoggggJhogIhhhhgJhh(231Q \APPEND2 122Q \MVLIST 117Q PARSE-DEFMACRO 73Q PACK* 62Q CL:ERROR 4 REMOVE-COMMENTS) (424Q QUOTE 400Q QUOTE 365Q QUOTE 362Q \DEFINE-TYPE-SAVE-DEFN 357Q FILEPKGFLG 354Q AND 345Q EVAL-WHEN 312Q QUOTE 307Q DOCUMENTATION 304Q SETF 265Q QUOTE 253Q QUOTE 250Q MACRO-FUNCTION 245Q SETF 215Q CL:BLOCK 204Q CL:LAMBDA 201Q CL:FUNCTION 166Q QUOTE 163Q SYMBOL-FUNCTION 160Q SETF 151Q EVAL-WHEN 113Q $$MACRO-ENVIRONMENT 110Q :ENVIRONMENT 102Q $$MACRO-FORM 32Q WITHOUT-FILEPKG 27Q PROGN) ( 375Q (QUOTE FUNCTIONS) 351Q (CL:EVAL) 322Q ((QUOTE CL:FUNCTION)) 210Q ($$MACRO-FORM $$MACRO-ENVIRONMENT) 155Q (CL:EVAL CL:COMPILE CL:LOAD) 67Q "expand-" 56Q "Illegal name used in DEFMACRO: ~S") (SETF-MACRO-FUNCTION (QUOTE DEFMACRO) (QUOTE expand-DEFMACRO)) (ADDTOVAR PRETTYPRINTMACROS (DEFMACRO . PPRINT-DEFINER)) expand-DEFVAR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ a@HH[dKhiKKggggggJhhhM!gggJhhgJLhhhNgggJhoNhh hgoggggJhogIhhhhgJhh(177Q \APPEND2 4 REMOVE-COMMENTS) (266Q QUOTE 242Q QUOTE 227Q QUOTE 224Q \DEFINE-TYPE-SAVE-DEFN 221Q FILEPKGFLG 216Q AND 207Q EVAL-WHEN 153Q QUOTE 150Q DOCUMENTATION 145Q SETF 123Q SETQ 111Q QUOTE 106Q BOUNDP 103Q OR 63Q SPECIAL 60Q QUOTE 55Q PROCLAIM 52Q PROGN 47Q WITHOUT-FILEPKG 44Q PROGN) ( 237Q (QUOTE VARIABLES) 213Q (CL:EVAL) 163Q ((QUOTE VARIABLE))) (SETF-MACRO-FUNCTION (QUOTE DEFVAR) (QUOTE expand-DEFVAR)) (ADDTOVAR PRETTYPRINTMACROS (DEFVAR . PPRINT-DEFINER)) expand-DEFPARAMETER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ Q@HH[KdggggggJhhhgJLhMgggJhoMhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (221Q QUOTE 175Q QUOTE 162Q QUOTE 157Q \DEFINE-TYPE-SAVE-DEFN 154Q FILEPKGFLG 151Q AND 142Q EVAL-WHEN 110Q QUOTE 105Q DOCUMENTATION 102Q SETF 66Q SETQ 51Q SPECIAL 46Q QUOTE 43Q PROCLAIM 40Q PROGN 35Q WITHOUT-FILEPKG 32Q PROGN) ( 172Q (QUOTE VARIABLES) 146Q (CL:EVAL) 120Q ((QUOTE VARIABLE))) (SETF-MACRO-FUNCTION (QUOTE DEFPARAMETER) (QUOTE expand-DEFPARAMETER)) (ADDTOVAR PRETTYPRINTMACROS (DEFPARAMETER . PPRINT-DEFINER)) expand-DEFCONSTANT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ Q@HH[KdggggJLhggJhggJhhoMgggJhoMhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (234Q QUOTE 210Q QUOTE 175Q QUOTE 172Q \DEFINE-TYPE-SAVE-DEFN 167Q FILEPKGFLG 164Q AND 155Q EVAL-WHEN 123Q QUOTE 120Q DOCUMENTATION 115Q SETF 71Q CONSTANT 66Q QUOTE 57Q QUOTE 54Q PUTHASH 43Q SETQ 40Q PROGN 35Q WITHOUT-FILEPKG 32Q PROGN) ( 205Q (QUOTE VARIABLES) 161Q (CL:EVAL) 133Q ((QUOTE VARIABLE)) 104Q (COMPVARMACROHASH)) (SETF-MACRO-FUNCTION (QUOTE DEFCONSTANT) (QUOTE expand-DEFCONSTANT)) (ADDTOVAR PRETTYPRINTMACROS (DEFCONSTANT . PPRINT-DEFINER)) expand-DEFGLOBALVAR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ a@HH[dKhiKKggggggJhhhM!gggJhhgJLhhhNgggJhoNhh hgoggggJhogIhhhhgJhh(177Q \APPEND2 4 REMOVE-COMMENTS) (266Q QUOTE 242Q QUOTE 227Q QUOTE 224Q \DEFINE-TYPE-SAVE-DEFN 221Q FILEPKGFLG 216Q AND 207Q EVAL-WHEN 153Q QUOTE 150Q DOCUMENTATION 145Q SETF 123Q SETQ 111Q QUOTE 106Q BOUNDP 103Q OR 63Q GLOBAL 60Q QUOTE 55Q PROCLAIM 52Q PROGN 47Q WITHOUT-FILEPKG 44Q PROGN) ( 237Q (QUOTE VARIABLES) 213Q (CL:EVAL) 163Q ((QUOTE VARIABLE))) (SETF-MACRO-FUNCTION (QUOTE DEFGLOBALVAR) (QUOTE expand-DEFGLOBALVAR)) (ADDTOVAR PRETTYPRINTMACROS (DEFGLOBALVAR . PPRINT-DEFINER)) expand-DEFGLOBALPARAMETER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ Q@HH[KdggggggJhhhgJLhMgggJhoMhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (221Q QUOTE 175Q QUOTE 162Q QUOTE 157Q \DEFINE-TYPE-SAVE-DEFN 154Q FILEPKGFLG 151Q AND 142Q EVAL-WHEN 110Q QUOTE 105Q DOCUMENTATION 102Q SETF 66Q SETQ 51Q GLOBAL 46Q QUOTE 43Q PROCLAIM 40Q PROGN 35Q WITHOUT-FILEPKG 32Q PROGN) ( 172Q (QUOTE VARIABLES) 146Q (CL:EVAL) 120Q ((QUOTE VARIABLE))) (SETF-MACRO-FUNCTION (QUOTE DEFGLOBALPARAMETER) (QUOTE expand-DEFGLOBALPARAMETER)) (ADDTOVAR PRETTYPRINTMACROS (DEFGLOBALPARAMETER . PPRINT-DEFINER)) (PUTPROPS MACRO-FN PROPTYPE FUNCTIONS) (PUTPROPS CMLDEFFER FILETYPE COMPILE-FILE) (PUTPROPS CMLDEFFER COPYRIGHT ("Xerox Corporation" 1986 1900)) NIL