(FILECREATED "12-Oct-86 15:50:36" ("compiled on " {ERIS}SOURCES>CMLDEFFER.;19) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "" dated " 1-Oct-86 21:24:44") (FILECREATED "12-Oct-86 15:50:17" {ERIS}SOURCES>CMLDEFFER.;19 19886 changes to: (FUNCTIONS DEFINLINE DEFMACRO) previous date: " 9-Oct-86 21:26:41" {ERIS}SOURCES>CMLDEFFER.;18) (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-TREE 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)) O@l@A A` H'oA A`gggl2gl2  @HB @Ag (114Q MARKASCHANGED 103Q CL:PUTHASH 74Q CL:PUTHASH 71Q MAKE-HASH-TABLE 40Q WARN 22Q CL:GETHASH 12Q REMPROP) (111Q CHANGED 63Q :REHASH-SIZE 56Q :SIZE 53Q CL:EQUAL 50Q :TEST 45Q *DEFINITION-HASH-TABLE* 17Q *DEFINITION-HASH-TABLE*) ( 34Q "Couldn't find a hash-table for ~S definitions.~%%One will be created.") (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 _ggJLMgJoJhJ oggOhohhhgoggggJhogIhhhhgJhh(151Q XCL:PACK 146Q SYMBOL-PACKAGE 105Q \APPEND2 45Q \MVLIST 42Q PARSE-BODY 4 REMOVE-COMMENTS) (275Q QUOTE 251Q QUOTE 236Q QUOTE 233Q \DEFINE-TYPE-SAVE-DEFN 230Q FILEPKGFLG 225Q AND 216Q EVAL-WHEN 163Q QUOTE 160Q CONS 131Q DEFOPTIMIZER 120Q DEFUN 115Q PROGN 73Q CL:BLOCK 65Q CL:LAMBDA 34Q WITHOUT-FILEPKG 31Q PROGN) ( 246Q (QUOTE FUNCTIONS) 222Q (CL:EVAL) 174Q (ARGS) 155Q (&REST ARGS) 136Q "definline-") (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 oJhJ _LgMJhgg  __O__OgogggOhhggoOgJOhh hhgggJhhgOhhNgggJhoNhhhgoggggJhogIhhhhgJhh(240Q \APPEND2 131Q \MVLIST 126Q PARSE-DEFMACRO 102Q XCL:PACK 77Q SYMBOL-PACKAGE 62Q CL:ERROR 4 REMOVE-COMMENTS) (433Q QUOTE 407Q QUOTE 374Q QUOTE 371Q \DEFINE-TYPE-SAVE-DEFN 366Q FILEPKGFLG 363Q AND 354Q EVAL-WHEN 321Q QUOTE 316Q DOCUMENTATION 313Q SETF 274Q QUOTE 262Q QUOTE 257Q MACRO-FUNCTION 254Q SETF 224Q CL:BLOCK 213Q CL:LAMBDA 210Q CL:FUNCTION 175Q QUOTE 172Q SYMBOL-FUNCTION 167Q SETF 160Q EVAL-WHEN 122Q $$MACRO-ENVIRONMENT 117Q :ENVIRONMENT 111Q $$MACRO-FORM 32Q WITHOUT-FILEPKG 27Q PROGN) ( 404Q (QUOTE FUNCTIONS) 360Q (CL:EVAL) 331Q ((QUOTE CL:FUNCTION)) 217Q ($$MACRO-FORM $$MACRO-ENVIRONMENT) 164Q (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