(FILECREATED " 1-Oct-86 01:47:59" ("compiled on " {ERIS}SOURCES>CMLDEFFER.;12) "29-Sep-86 15:13:09" in "Xerox Lisp 29-Sep-86 ..." dated "29-Sep-86 15:41:04") (FILECREATED " 1-Oct-86 01:47:11" {ERIS}SOURCES>CMLDEFFER.;12 16267 changes to: (VARS CMLDEFFERCOMS) (FUNCTIONS DEFDEFINER DEF-DEFINE-TYPE) (FNS \DEFINE-TYPE-GETDEF) previous date: " 1-Oct-86 01:07:19" {ERIS}SOURCES>CMLDEFFER.;9) (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 F 4 COMMENTFLG) @@b@bo H k I5o ` I ` k Iidd o ` I ` @dk @@bi @@dTk @@bid @id hiJ lk @idd o h (323Q TERPRI 317Q PRIN1 310Q PRINTDEF 300Q SPACES 270Q DSPXPOSITION 263Q 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) ( 314Q ")" 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 F 2 COMMENTFLG) 2@@R@b@ @ Hd@I@@HI(33Q REMOVE-COMMENTS 26Q REMOVE-COMMENTS) NIL () \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* (MAKE-HASH-TABLE :TEST ( QUOTE EQ) :SIZE 20 :REHASH-SIZE 10))) (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")) (CL:PUTHASH (QUOTE DEFINE-TYPES) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :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")) (CL:PUTHASH (QUOTE FUNCTIONS) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :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")) (CL:PUTHASH (QUOTE VARIABLES) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :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)) @ q@HH[K]M_ggggJggNgggggOhhgogggogggLhhhohhohhgggJghhgJhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (344Q QUOTE 320Q QUOTE 305Q QUOTE 302Q \DEFINE-TYPE-SAVE-DEFN 277Q FILEPKGFLG 274Q AND 265Q EVAL-WHEN 246Q QUOTE 233Q PPRINT-DEFINER 227Q PRETTYPRINTMACROS 224Q ADDTOVAR 221Q WITHOUT-FILEPKG 146Q QUOTE 143Q \, 140Q QUOTE 131Q \DEFINE-TYPE-SAVE-DEFN 126Q FILEPKGFLG 123Q AND 114Q EVAL-WHEN 100Q PROGN 75Q \, 72Q WITHOUT-FILEPKG 67Q PROGN 64Q BQUOTE 56Q %%ORIGINAL-DEFINITION 53Q &WHOLE 47Q DEFMACRO 44Q PROGN 41Q WITHOUT-FILEPKG 36Q PROGN) ( 315Q (QUOTE FUNCTIONS) 271Q (CL:EVAL) 203Q ((QUOTE (\, NAME))) 164Q ((QUOTE (\, %%ORIGINAL-DEFINITION))) 135Q (QUOTE (\, NAME)) 120Q (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)) H@ A@HHgggggJggggoggogggggJhhhhogoogJhohhhhhhhggoJo \d L LJKhhgggJhooggJhgJogJogJgJhhhgoggggJhogIhhhhgJhh(255Q SET 247Q BOUNDP 242Q PACK* 4 REMOVE-COMMENTS) (474Q QUOTE 450Q QUOTE 435Q QUOTE 432Q \DEFINE-TYPE-SAVE-DEFN 427Q FILEPKGFLG 424Q AND 415Q EVAL-WHEN 370Q PROPTYPE 364Q PUTPROPS 352Q PUTPROPS 340Q PUTPROPS 330Q FILEPKGTYPES 325Q ADDTOVAR 302Q QUOTE 277Q CL:GETHASH 274Q SETF 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) ( 445Q (QUOTE DEFINE-TYPES) 421Q (CL:EVAL) 357Q (FILEPKGCONTENTS NILL) 345Q (GETDEF \DEFINE-TYPE-GETDEF) 320Q ((MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 62Q :REHASH-SIZE 62Q)) 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)) @ q@HH[KAi ]M_gggggJhhggLOgJNh hhhgoggggJhogIhhhhgJhh(117Q \APPEND2 33Q \MVLIST 30Q PARSE-BODY 4 REMOVE-COMMENTS) (215Q QUOTE 171Q QUOTE 156Q QUOTE 153Q \DEFINE-TYPE-SAVE-DEFN 150Q FILEPKGFLG 145Q AND 136Q EVAL-WHEN 106Q CL:BLOCK 100Q CL:LAMBDA 75Q CL:FUNCTION 63Q QUOTE 60Q SYMBOL-FUNCTION 55Q SETF 52Q WITHOUT-FILEPKG 47Q PROGN) ( 166Q (QUOTE FUNCTIONS) 142Q (CL:EVAL)) (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  __OgogggOhhggoNgJOhh hhgggJhhgOhhhhgoggggJhogIhhhhgJhh(217Q \APPEND2 122Q \MVLIST 117Q PARSE-DEFMACRO 73Q PACK* 62Q CL:ERROR 4 REMOVE-COMMENTS) (356Q QUOTE 332Q QUOTE 317Q QUOTE 314Q \DEFINE-TYPE-SAVE-DEFN 311Q FILEPKGFLG 306Q AND 277Q EVAL-WHEN 253Q QUOTE 241Q QUOTE 236Q MACRO-FUNCTION 233Q SETF 203Q CL:BLOCK 173Q CL:LAMBDA 170Q CL:FUNCTION 155Q QUOTE 152Q SYMBOL-FUNCTION 147Q SETF 140Q EVAL-WHEN 113Q $$MACRO-ENVIRONMENT 110Q :ENVIRONMENT 102Q $$MACRO-FORM 32Q WITHOUT-FILEPKG 27Q PROGN) ( 327Q (QUOTE FUNCTIONS) 303Q (CL:EVAL) 177Q ($$MACRO-FORM $$MACRO-ENVIRONMENT) 144Q (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)) @ Q@HH[dKhiggggggJhhhM!gggJhhgJLhhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (216Q QUOTE 172Q QUOTE 157Q QUOTE 154Q \DEFINE-TYPE-SAVE-DEFN 151Q FILEPKGFLG 146Q AND 137Q EVAL-WHEN 113Q SETQ 101Q QUOTE 76Q BOUNDP 73Q OR 53Q SPECIAL 50Q QUOTE 45Q PROCLAIM 42Q PROGN 37Q WITHOUT-FILEPKG 34Q PROGN) ( 167Q (QUOTE VARIABLES) 143Q (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)) z@ 1@HHggggggJhhhgJKhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (156Q QUOTE 132Q QUOTE 117Q QUOTE 114Q \DEFINE-TYPE-SAVE-DEFN 111Q FILEPKGFLG 106Q AND 77Q EVAL-WHEN 57Q SETQ 42Q SPECIAL 37Q QUOTE 34Q PROCLAIM 31Q PROGN 26Q WITHOUT-FILEPKG 23Q PROGN) ( 127Q (QUOTE VARIABLES) 103Q (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFPARAMETER) (QUOTE expand-DEFPARAMETER)) (ADDTOVAR PRETTYPRINTMACROS (DEFPARAMETER . PPRINT-DEFINER)) expand-DEFCONSTANT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ 1@HHggggJKhggJhggJhhohhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (171Q QUOTE 145Q QUOTE 132Q QUOTE 127Q \DEFINE-TYPE-SAVE-DEFN 124Q FILEPKGFLG 121Q AND 112Q EVAL-WHEN 62Q CONSTANT 57Q QUOTE 50Q QUOTE 45Q PUTHASH 34Q SETQ 31Q PROGN 26Q WITHOUT-FILEPKG 23Q PROGN) ( 142Q (QUOTE VARIABLES) 116Q (CL:EVAL) 75Q (COMPVARMACROHASH)) (SETF-MACRO-FUNCTION (QUOTE DEFCONSTANT) (QUOTE expand-DEFCONSTANT)) (ADDTOVAR PRETTYPRINTMACROS (DEFCONSTANT . PPRINT-DEFINER)) expand-DEFGLOBALVAR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ Q@HH[dKhiggggggJhhhM!gggJhhgJLhhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (216Q QUOTE 172Q QUOTE 157Q QUOTE 154Q \DEFINE-TYPE-SAVE-DEFN 151Q FILEPKGFLG 146Q AND 137Q EVAL-WHEN 113Q SETQ 101Q QUOTE 76Q BOUNDP 73Q OR 53Q GLOBAL 50Q QUOTE 45Q PROCLAIM 42Q PROGN 37Q WITHOUT-FILEPKG 34Q PROGN) ( 167Q (QUOTE VARIABLES) 143Q (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFGLOBALVAR) (QUOTE expand-DEFGLOBALVAR)) (ADDTOVAR PRETTYPRINTMACROS (DEFGLOBALVAR . PPRINT-DEFINER)) expand-DEFGLOBALPARAMETER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) z@ 1@HHggggggJhhhgJKhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (156Q QUOTE 132Q QUOTE 117Q QUOTE 114Q \DEFINE-TYPE-SAVE-DEFN 111Q FILEPKGFLG 106Q AND 77Q EVAL-WHEN 57Q SETQ 42Q GLOBAL 37Q QUOTE 34Q PROCLAIM 31Q PROGN 26Q WITHOUT-FILEPKG 23Q PROGN) ( 127Q (QUOTE VARIABLES) 103Q (CL:EVAL)) (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