(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Oct-86 23:13:35" ("compiled on " {ERIS}SOURCES>CMLDEFFER.;24) "21-Oct-86 04:13:01" "COMPILE-FILEd" in "Xerox Lisp 21-Oct-86 ..." dated "21-Oct-86 04:48:43") (FILECREATED "25-Oct-86 23:13:19" {ERIS}SOURCES>CMLDEFFER.;24 16851 changes to%: (FNS \DEFINE-TYPE-DELDEF \DEFINE-TYPE-GETDEF) (DEFINE-TYPES DEFINE-TYPES) (FUNCTIONS DEFDEFINER DEF-DEFINE-TYPE) (VARS CMLDEFFERCOMS) previous date%: "21-Oct-86 14:35:22" {ERIS}SOURCES>CMLDEFFER.;21) (RPAQQ CMLDEFFERCOMS ((* ;;; "DEF-DEFINE-TYPE and DEFDEFINER -- Provides customized File Manager facilities.") (* ;; "BE VERY CAREFUL CHANGING ANYTHING IN THIS FILE!!! It is self-referential and has many bootstrapping problems. Even trivial changes are very tricky to make without blowing yourself out of the water..." ) (COMS (INITVARS (FILEPKGFLG)) (COMS (FNS PPRINT-DEFINER \DEFINE-TYPE-GETDEF \DEFINE-TYPE-DELDEF 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 CL:DEFUN DEFINLINE DEFMACRO) (FUNCTIONS CL:DEFVAR CL:DEFPARAMETER CL: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 PRETTYCOMFONT F 5 DEFAULTFONT F 6 COMMENTFLG) @@b@bo H k I0o T I U k Iidd o T I U @dk @@bi @@dVk @@bid @id J lk @idd o h (198 TERPRI 194 PRIN1 187 PRINTDEF 179 SPACES 171 DSPXPOSITION 166 TERPRI 162 FITP 155 PRINTDEF 142 SPACES 122 PRINTDEF 110 SPACES 98 CHANGEFONT 93 PRIN2 88 CHANGEFONT 83 PRIN1 75 PRINTDEF 66 SPACES 61 CHANGEFONT 56 PRIN2 50 CHANGEFONT 45 PRIN1 34 SPACES 29 PRIN2 24 PRIN1 14 DSPXPOSITION) NIL ( 191 ")" 80 ")" 42 "(" 21 "(") \DEFINE-TYPE-GETDEF D1 (P 0 CL:HASH-TABLE I 2 OPTIONS I 1 TYPE I 0 NAME) A` H@H (17 CL:GETHASH 6 CL:GETHASH) (3 *DEFINITION-HASH-TABLE*) () \DEFINE-TYPE-DELDEF D1 (P 1 FN P 0 HT I 1 TYPE I 0 NAME) -A` H@H Ag'd@kIh(16 REMHASH 6 CL:GETHASH) (25 UNDEFINERS 3 *DEFINITION-HASH-TABLE*) () REMOVE-COMMENTS D1 (I 0 X F 2 COMMENTFLG) 2@@R@b@ @ Hd@I@@HI(27 REMOVE-COMMENTS 22 REMOVE-COMMENTS) NIL () \DEFINE-TYPE-SAVE-DEFN D1 (L (2 DEFINITION 1 TYPE 0 NAME)) [@l@A A` aH-oA A`gggl2gl2 KJI @HBNML @Ag (88 MARKASCHANGED 79 CL::PUTHASH 66 CL::PUTHASH 59 CL:MAKE-HASH-TABLE 32 CL:WARN 18 CL:GETHASH 10 REMPROP) (85 CHANGED 53 :REHASH-SIZE 48 :SIZE 45 CL:EQUAL 42 :TEST 38 *DEFINITION-HASH-TABLE* 15 *DEFINITION-HASH-TABLE*) ( 28 "Couldn't find a hash-table for ~S definitions.~%%One will be created.") (CL:PROCLAIM (QUOTE (GLOBAL *DEFINITION-HASH-TABLE*))) (OR (BOUNDP (QUOTE *DEFINITION-HASH-TABLE*)) (SETQ *DEFINITION-HASH-TABLE* (HASHARRAY 20))) (LET* ((A2835 (QUOTE DEFINE-TYPES)) (A2836 (QUOTE DEFINE-TYPES)) (A2837 (QUOTE "Definition type"))) ( PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A2835 A2836 A2837))) A2837)) (SETQ PRETTYDEFMACROS (CONS (QUOTE (DEFINE-TYPES X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) ( CL:DO ((DEF (GETDEF ITEM (QUOTE DEFINE-TYPES)))) (DEF DEF) (CL:CERROR "Re-fetch the definition" "No ~S definition for ~S" (QUOTE DEFINE-TYPES) ITEM)))))))) PRETTYDEFMACROS)) (SETQ PRETTYTYPELST (CONS (QUOTE (A2834 DEFINE-TYPES "Definition type")) PRETTYTYPELST)) (CL:PROCLAIM (QUOTE (GLOBAL A2834))) (OR (BOUNDP (QUOTE A2834)) (SETQ A2834 NIL)) (COND ((NOT (CL:GETHASH (QUOTE DEFINE-TYPES) *DEFINITION-HASH-TABLE*)) (LET* ((A2838 (QUOTE DEFINE-TYPES)) (A2839 *DEFINITION-HASH-TABLE*) (A2841 (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50))) (CL::PUTHASH A2838 A2839 A2841)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE DEFINE-TYPES) FILEPKGTYPES)) (LET* ((A2842 (QUOTE DEFINE-TYPES)) (A2843 (QUOTE GETDEF)) (A2845 (QUOTE \DEFINE-TYPE-GETDEF))) ( PUTPROP A2842 A2843 A2845)) (LET* ((A2846 (QUOTE DEFINE-TYPES)) (A2847 (QUOTE DELDEF)) (A2849 (QUOTE \DEFINE-TYPE-DELDEF))) ( PUTPROP A2846 A2847 A2849)) (LET* ((A2850 (QUOTE DEFINE-TYPES)) (A2851 (QUOTE FILEPKGCONTENTS)) (A2853 (QUOTE NILL))) (PUTPROP A2850 A2851 A2853)) (LET* ((A2854 (QUOTE DEFINE-TYPES)) (A2855 (QUOTE UNDEFINERS)) (A2857 (QUOTE UNDEFINER))) (PUTPROP A2854 A2855 A2857)) (LET* ((A2859 (QUOTE FUNCTIONS)) (A2860 (QUOTE DEFINE-TYPES)) (A2861 (QUOTE "Common Lisp functions"))) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A2859 A2860 A2861))) A2861)) (SETQ PRETTYDEFMACROS (CONS (QUOTE (FUNCTIONS X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF (GETDEF ITEM (QUOTE FUNCTIONS)))) (DEF DEF) (CL:CERROR "Re-fetch the definition" "No ~S definition for ~S" (QUOTE FUNCTIONS) ITEM)))))))) PRETTYDEFMACROS)) (SETQ PRETTYTYPELST (CONS (QUOTE (A2858 FUNCTIONS "Common Lisp functions")) PRETTYTYPELST)) (CL:PROCLAIM (QUOTE (GLOBAL A2858))) (OR (BOUNDP (QUOTE A2858)) (SETQ A2858 NIL)) (COND ((NOT (CL:GETHASH (QUOTE FUNCTIONS) *DEFINITION-HASH-TABLE*)) (LET* ((A2862 (QUOTE FUNCTIONS)) ( A2863 *DEFINITION-HASH-TABLE*) (A2865 (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50))) (CL::PUTHASH A2862 A2863 A2865)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE FUNCTIONS) FILEPKGTYPES)) (LET* ((A2866 (QUOTE FUNCTIONS)) (A2867 (QUOTE GETDEF)) (A2869 (QUOTE \DEFINE-TYPE-GETDEF))) (PUTPROP A2866 A2867 A2869)) (LET* ((A2870 (QUOTE FUNCTIONS)) (A2871 (QUOTE DELDEF)) (A2873 (QUOTE \DEFINE-TYPE-DELDEF))) (PUTPROP A2870 A2871 A2873)) (LET* ((A2874 (QUOTE FUNCTIONS)) (A2875 (QUOTE FILEPKGCONTENTS)) (A2877 (QUOTE NILL))) (PUTPROP A2874 A2875 A2877)) (LET* ((A2878 (QUOTE FUNCTIONS)) (A2879 (QUOTE UNDEFINERS)) (A2881 (QUOTE UNDEFINER))) (PUTPROP A2878 A2879 A2881)) (LET* ((A2883 (QUOTE VARIABLES)) (A2884 (QUOTE DEFINE-TYPES)) (A2885 (QUOTE "Common Lisp variables"))) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A2883 A2884 A2885))) A2885)) (SETQ PRETTYDEFMACROS (CONS (QUOTE (VARIABLES X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF (GETDEF ITEM (QUOTE VARIABLES)))) (DEF DEF) (CL:CERROR "Re-fetch the definition" "No ~S definition for ~S" (QUOTE VARIABLES) ITEM)))))))) PRETTYDEFMACROS)) (SETQ PRETTYTYPELST (CONS (QUOTE (A2882 VARIABLES "Common Lisp variables")) PRETTYTYPELST)) (CL:PROCLAIM (QUOTE (GLOBAL A2882))) (OR (BOUNDP (QUOTE A2882)) (SETQ A2882 NIL)) (COND ((NOT (CL:GETHASH (QUOTE VARIABLES) *DEFINITION-HASH-TABLE*)) (LET* ((A2886 (QUOTE VARIABLES)) ( A2887 *DEFINITION-HASH-TABLE*) (A2889 (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50))) (CL::PUTHASH A2886 A2887 A2889)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE VARIABLES) FILEPKGTYPES)) (LET* ((A2890 (QUOTE VARIABLES)) (A2891 (QUOTE GETDEF)) (A2893 (QUOTE \DEFINE-TYPE-GETDEF))) (PUTPROP A2890 A2891 A2893)) (LET* ((A2894 (QUOTE VARIABLES)) (A2895 (QUOTE DELDEF)) (A2897 (QUOTE \DEFINE-TYPE-DELDEF))) (PUTPROP A2894 A2895 A2897)) (LET* ((A2898 (QUOTE VARIABLES)) (A2899 (QUOTE FILEPKGCONTENTS)) (A2901 (QUOTE NILL))) (PUTPROP A2898 A2899 A2901)) (LET* ((A2902 (QUOTE VARIABLES)) (A2903 (QUOTE UNDEFINERS)) (A2905 (QUOTE UNDEFINER))) (PUTPROP A2902 A2903 A2905)) (LET* ((A2906 (QUOTE DEFDEFINER)) (A2907 (QUOTE DEFINER-FOR)) (A2909 (QUOTE FUNCTIONS))) (PUTPROP A2906 A2907 A2909)) (LET* ((A2910 (QUOTE FUNCTIONS)) (A2911 (QUOTE DEFINED-BY)) (A2913 (CL:ADJOIN (QUOTE DEFDEFINER) (GET A2910 A2911)))) (PUTPROP A2910 A2911 A2913)) expand-DEFDEFINER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) o @  @HH[K]MAi __O_O_ggggggJhogLhhggJhggLhohgJggNOgggggOhhgogggogggLhhhohhohh gggJghhOgggJhoOhhgJhh hgoggggJhogIhhhhgJhh(297 \APPEND2 230 \APPEND2 32 \MVLIST 29 PARSE-BODY 4 REMOVE-COMMENTS) (355 QUOTE 335 QUOTE 324 QUOTE 321 \DEFINE-TYPE-SAVE-DEFN 318 FILEPKGFLG 315 AND 308 CL:EVAL-WHEN 288 QUOTE 267 QUOTE 264 CL:DOCUMENTATION 261 CL:SETF 246 PPRINT-DEFINER 242 PRETTYPRINTMACROS 239 ADDTOVAR 236 WITHOUT-FILEPKG 190 QUOTE 187 \, 184 QUOTE 177 \DEFINE-TYPE-SAVE-DEFN 174 FILEPKGFLG 171 AND 164 CL:EVAL-WHEN 152 PROGN 149 \, 146 WITHOUT-FILEPKG 143 PROGN 140 BQUOTE 132 %%ORIGINAL-DEFINITION 129 &WHOLE 125 DEFMACRO 108 QUOTE 105 GET 98 QUOTE 95 CL:PUSHNEW 84 QUOTE 71 QUOTE 68 GET 65 CL:SETF 62 PROGN 59 WITHOUT-FILEPKG 56 PROGN) ( 332 (QUOTE FUNCTIONS) 312 (CL:EVAL) 275 ((QUOTE CL:FUNCTION)) 219 ((QUOTE (\, NAME))) 204 ((QUOTE (\, %%ORIGINAL-DEFINITION))) 181 (QUOTE (\, NAME)) 168 (CL:EVAL) 116 ((QUOTE DEFINED-BY)) 79 ((QUOTE DEFINER-FOR))) (SETF-MACRO-FUNCTION (QUOTE DEFDEFINER) (QUOTE expand-DEFDEFINER)) (ADDTOVAR PRETTYPRINTMACROS (DEFDEFINER . PPRINT-DEFINER)) (LET* ((A2922 (QUOTE DEF-DEFINE-TYPE)) (A2923 (QUOTE DEFINER-FOR)) (A2925 (QUOTE DEFINE-TYPES))) ( PUTPROP A2922 A2923 A2925)) (LET* ((A2926 (QUOTE DEFINE-TYPES)) (A2927 (QUOTE DEFINED-BY)) (A2929 (CL:ADJOIN (QUOTE DEF-DEFINE-TYPE) (GET A2926 A2927)))) (PUTPROP A2926 A2927 A2929)) expand-DEF-DEFINE-TYPE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ a@HH[KgM Mo ggggggJhogLhhggJggggoggogggggJhhhhogoogJhohhhhhhhoggNJLhhogNogggJhogggJhoohggJhogggJhoogggJhoogggJhoogggJhoohhgoggggJhogIhhhhgJhh(40 KEYWORD-TEST 31 GENSYM 27 FIND-KEYWORD 4 REMOVE-COMMENTS) (464 QUOTE 444 QUOTE 433 QUOTE 430 \DEFINE-TYPE-SAVE-DEFN 427 FILEPKGFLG 424 AND 417 CL:EVAL-WHEN 383 QUOTE 380 GET 377 CL:SETF 358 QUOTE 355 GET 352 CL:SETF 333 QUOTE 330 GET 327 CL:SETF 308 QUOTE 305 GET 302 CL:SETF 289 QUOTE 286 CL:PUSHNEW 263 QUOTE 260 CL:GETHASH 257 CL:SETF 244 QUOTE 241 CL:GETHASH 238 CL:UNLESS 228 DEFGLOBALVAR 209 QUOTE 206 CL:PUSH 158 QUOTE 147 CL:CERROR 127 QUOTE 124 ITEM 121 GETDEF 118 DEF 115 CL:DO 108 LAMBDA 105 FUNCTION 98 MAPCAR 95 * 92 P 89 X 85 QUOTE 82 CL:PUSH 71 QUOTE 58 QUOTE 55 CL:DOCUMENTATION 52 CL:SETF 49 PROGN 46 WITHOUT-FILEPKG 43 PROGN 23 :UNDEFINER) ( 441 (QUOTE DEFINE-TYPES) 421 (CL:EVAL) 397 ((QUOTE UNDEFINER)) 391 ((QUOTE UNDEFINERS)) 372 ((QUOTE NILL)) 366 ((QUOTE FILEPKGCONTENTS)) 347 ((QUOTE \DEFINE-TYPE-DELDEF)) 341 ((QUOTE DELDEF)) 322 ((QUOTE \DEFINE-TYPE-GETDEF)) 316 ((QUOTE GETDEF)) 297 (FILEPKGTYPES) 277 ((CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50)) 271 (*DEFINITION-HASH-TABLE*) 252 (*DEFINITION-HASH-TABLE*) 233 (NIL) 223 (PRETTYTYPELST) 201 (PRETTYDEFMACROS) 166 (ITEM) 155 "No ~S definition for ~S" 151 "Re-fetch the definition" 144 (DEF DEF) 112 (ITEM) 102 (QUOTE X) 66 ((QUOTE DEFINE-TYPES)) 37 (:UNDEFINER)) (SETF-MACRO-FUNCTION (QUOTE DEF-DEFINE-TYPE) (QUOTE expand-DEF-DEFINE-TYPE)) (ADDTOVAR PRETTYPRINTMACROS (DEF-DEFINE-TYPE . PPRINT-DEFINER)) (LET* ((A2935 (QUOTE DEF-DEFINE-TYPE)) (A2936 (QUOTE CL:FUNCTION)) (A2937 "Define NAME as a new definition type")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A2935 A2936 A2937))) A2937)) expand-WITHOUT-FILEPKG D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) =@ggoHgogogooHhhhNIL (34 LET 27 AND 20 CL:EVAL-WHEN 10 CL:EVAL-WHEN 7 PROGN) ( 42 (DECLARE (CL:SPECIAL FILEPKGFLG DFNFLG)) 38 (FILEPKGFLG (DFNFLG T)) 31 (NEQ DFNFLG (QUOTE PROP)) 24 (CL:EVAL) 14 (CL:LOAD)) (SETF-MACRO-FUNCTION (QUOTE WITHOUT-FILEPKG) (QUOTE expand-WITHOUT-FILEPKG)) (LET* ((A2939 (QUOTE CL:DEFUN)) (A2940 (QUOTE DEFINER-FOR)) (A2942 (QUOTE FUNCTIONS))) (PUTPROP A2939 A2940 A2942)) (LET* ((A2943 (QUOTE FUNCTIONS)) (A2944 (QUOTE DEFINED-BY)) (A2946 (CL:ADJOIN (QUOTE CL:DEFUN) (GET A2943 A2944)))) (PUTPROP A2943 A2944 A2946)) CL::expand-DEFUN D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ @HH[KAi ]M_M_ggggggJhhggLOgJNh hhOgggJhoOhhhgoggggJhogIhhhhgJhh(89 \APPEND2 27 \MVLIST 24 PARSE-BODY 4 REMOVE-COMMENTS) (184 QUOTE 164 QUOTE 153 QUOTE 150 \DEFINE-TYPE-SAVE-DEFN 147 FILEPKGFLG 144 AND 137 CL:EVAL-WHEN 111 QUOTE 108 CL:DOCUMENTATION 105 CL:SETF 80 CL:BLOCK 74 CL:LAMBDA 71 FUNCTION 61 QUOTE 58 CL:SYMBOL-FUNCTION 55 CL:SETF 52 PROGN 49 WITHOUT-FILEPKG 46 PROGN) ( 161 (QUOTE FUNCTIONS) 141 (CL:EVAL) 119 ((QUOTE CL:FUNCTION))) (SETF-MACRO-FUNCTION (QUOTE CL:DEFUN) (QUOTE CL::expand-DEFUN)) (ADDTOVAR PRETTYPRINTMACROS (CL:DEFUN . PPRINT-DEFINER)) (LET* ((A2953 (QUOTE DEFINLINE)) (A2954 (QUOTE DEFINER-FOR)) (A2956 (QUOTE FUNCTIONS))) (PUTPROP A2953 A2954 A2956)) (LET* ((A2957 (QUOTE FUNCTIONS)) (A2958 (QUOTE DEFINED-BY)) (A2960 (CL:ADJOIN (QUOTE DEFINLINE) (GET A2957 A2958)))) (PUTPROP A2957 A2958 A2960)) expand-DEFINLINE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @  @HH[KAggMNi __O_gLOgJOh _ggJLMgJoJhJ oggOhohhhgoggggJhogIhhhhgJhh(105 XCL:PACK 102 CL:SYMBOL-PACKAGE 69 \APPEND2 37 \MVLIST 34 PARSE-BODY 4 REMOVE-COMMENTS) (189 QUOTE 169 QUOTE 158 QUOTE 155 \DEFINE-TYPE-SAVE-DEFN 152 FILEPKGFLG 149 AND 142 CL:EVAL-WHEN 115 QUOTE 112 CONS 89 DEFOPTIMIZER 80 CL:DEFUN 77 PROGN 59 CL:BLOCK 53 CL:LAMBDA 28 WITHOUT-FILEPKG 25 PROGN) ( 166 (QUOTE FUNCTIONS) 146 (CL:EVAL) 124 (ARGS) 109 (&REST ARGS) 94 "definline-") (SETF-MACRO-FUNCTION (QUOTE DEFINLINE) (QUOTE expand-DEFINLINE)) (ADDTOVAR PRETTYPRINTMACROS (DEFINLINE . PPRINT-DEFINER)) (LET* ((A2964 (QUOTE DEFMACRO)) (A2965 (QUOTE DEFINER-FOR)) (A2967 (QUOTE FUNCTIONS))) (PUTPROP A2964 A2965 A2967)) (LET* ((A2968 (QUOTE FUNCTIONS)) (A2969 (QUOTE DEFINED-BY)) (A2971 (CL:ADJOIN (QUOTE DEFMACRO) (GET A2968 A2969)))) (PUTPROP A2968 A2969 A2971)) CL::expand-DEFMACRO D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM))  @  @HH[KggJJloJ oJhJ _LgMJhgg  __O__OgogggOhhggoOgJOhh hhgggJhhgOhhNgggJhoNhhhgoggggJhogIhhhhgJhh(152 \APPEND2 81 \MVLIST 78 PARSE-DEFMACRO 58 XCL:PACK 55 CL:SYMBOL-PACKAGE 42 CL:ERROR 4 REMOVE-COMMENTS) (275 QUOTE 255 QUOTE 244 QUOTE 241 \DEFINE-TYPE-SAVE-DEFN 238 FILEPKGFLG 235 AND 228 CL:EVAL-WHEN 201 QUOTE 198 CL:DOCUMENTATION 195 CL:SETF 180 QUOTE 170 QUOTE 167 CL:MACRO-FUNCTION 164 CL:SETF 140 CL:BLOCK 131 CL:LAMBDA 128 FUNCTION 117 QUOTE 114 CL:SYMBOL-FUNCTION 111 CL:SETF 104 CL:EVAL-WHEN 74 $$MACRO-ENVIRONMENT 71 :ENVIRONMENT 65 $$MACRO-FORM 26 WITHOUT-FILEPKG 23 PROGN) ( 252 (QUOTE FUNCTIONS) 232 (CL:EVAL) 209 ((QUOTE CL:FUNCTION)) 135 ($$MACRO-FORM $$MACRO-ENVIRONMENT) 108 (CL:EVAL CL:COMPILE CL:LOAD) 47 "expand-" 38 "Illegal name used in DEFMACRO: ~S") (SETF-MACRO-FUNCTION (QUOTE DEFMACRO) (QUOTE CL::expand-DEFMACRO)) (ADDTOVAR PRETTYPRINTMACROS (DEFMACRO . PPRINT-DEFINER)) (LET* ((A2975 (QUOTE CL:DEFVAR)) (A2976 (QUOTE DEFINER-FOR)) (A2978 (QUOTE VARIABLES))) (PUTPROP A2975 A2976 A2978)) (LET* ((A2979 (QUOTE VARIABLES)) (A2980 (QUOTE DEFINED-BY)) (A2982 (CL:ADJOIN (QUOTE CL:DEFVAR) (GET A2979 A2980)))) (PUTPROP A2979 A2980 A2982)) CL::expand-DEFVAR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ a@HH[dKhhKKggggggJhhhM!gggJhhgJLhhhNgggJhoNhh hgoggggJhogIhhhhgJhh(127 \APPEND2 4 REMOVE-COMMENTS) (182 QUOTE 162 QUOTE 151 QUOTE 148 \DEFINE-TYPE-SAVE-DEFN 145 FILEPKGFLG 142 AND 135 CL:EVAL-WHEN 107 QUOTE 104 CL:DOCUMENTATION 101 CL:SETF 83 SETQ 73 QUOTE 70 BOUNDP 67 OR 51 CL:SPECIAL 48 QUOTE 45 CL:PROCLAIM 42 PROGN 39 WITHOUT-FILEPKG 36 PROGN) ( 159 (QUOTE VARIABLES) 139 (CL:EVAL) 115 ((QUOTE VARIABLE))) (SETF-MACRO-FUNCTION (QUOTE CL:DEFVAR) (QUOTE CL::expand-DEFVAR)) (ADDTOVAR PRETTYPRINTMACROS (CL:DEFVAR . PPRINT-DEFINER)) (LET* ((A2987 (QUOTE CL:DEFPARAMETER)) (A2988 (QUOTE DEFINER-FOR)) (A2990 (QUOTE VARIABLES))) (PUTPROP A2987 A2988 A2990)) (LET* ((A2991 (QUOTE VARIABLES)) (A2992 (QUOTE DEFINED-BY)) (A2994 (CL:ADJOIN (QUOTE CL:DEFPARAMETER) (GET A2991 A2992)))) (PUTPROP A2991 A2992 A2994)) CL::expand-DEFPARAMETER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ Q@HH[KdggggggJhhhgJLhMgggJhoMhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (145 QUOTE 125 QUOTE 114 QUOTE 111 \DEFINE-TYPE-SAVE-DEFN 108 FILEPKGFLG 105 AND 98 CL:EVAL-WHEN 72 QUOTE 69 CL:DOCUMENTATION 66 CL:SETF 54 SETQ 41 CL:SPECIAL 38 QUOTE 35 CL:PROCLAIM 32 PROGN 29 WITHOUT-FILEPKG 26 PROGN) ( 122 (QUOTE VARIABLES) 102 (CL:EVAL) 80 ((QUOTE VARIABLE))) (SETF-MACRO-FUNCTION (QUOTE CL:DEFPARAMETER) (QUOTE CL::expand-DEFPARAMETER)) (ADDTOVAR PRETTYPRINTMACROS (CL:DEFPARAMETER . PPRINT-DEFINER)) (LET* ((A2998 (QUOTE CL:DEFCONSTANT)) (A2999 (QUOTE DEFINER-FOR)) (A3001 (QUOTE VARIABLES))) (PUTPROP A2998 A2999 A3001)) (LET* ((A3002 (QUOTE VARIABLES)) (A3003 (QUOTE DEFINED-BY)) (A3005 (CL:ADJOIN (QUOTE CL:DEFCONSTANT) ( GET A3002 A3003)))) (PUTPROP A3002 A3003 A3005)) CL::expand-DEFCONSTANT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ Q@HH[KdggggJLhggJhggJhhoMgggJhoMhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (156 QUOTE 136 QUOTE 125 QUOTE 122 \DEFINE-TYPE-SAVE-DEFN 119 FILEPKGFLG 116 AND 109 CL:EVAL-WHEN 83 QUOTE 80 CL:DOCUMENTATION 77 CL:SETF 57 CONSTANT 54 QUOTE 47 QUOTE 44 PUTHASH 35 SETQ 32 PROGN 29 WITHOUT-FILEPKG 26 PROGN) ( 133 (QUOTE VARIABLES) 113 (CL:EVAL) 91 ((QUOTE VARIABLE)) 68 (COMPVARMACROHASH)) (SETF-MACRO-FUNCTION (QUOTE CL:DEFCONSTANT) (QUOTE CL::expand-DEFCONSTANT)) (ADDTOVAR PRETTYPRINTMACROS (CL:DEFCONSTANT . PPRINT-DEFINER)) (LET* ((A3009 (QUOTE DEFGLOBALVAR)) (A3010 (QUOTE DEFINER-FOR)) (A3012 (QUOTE VARIABLES))) (PUTPROP A3009 A3010 A3012)) (LET* ((A3013 (QUOTE VARIABLES)) (A3014 (QUOTE DEFINED-BY)) (A3016 (CL:ADJOIN (QUOTE DEFGLOBALVAR) ( GET A3013 A3014)))) (PUTPROP A3013 A3014 A3016)) expand-DEFGLOBALVAR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ a@HH[dKhhKKggggggJhhhM!gggJhhgJLhhhNgggJhoNhh hgoggggJhogIhhhhgJhh(127 \APPEND2 4 REMOVE-COMMENTS) (182 QUOTE 162 QUOTE 151 QUOTE 148 \DEFINE-TYPE-SAVE-DEFN 145 FILEPKGFLG 142 AND 135 CL:EVAL-WHEN 107 QUOTE 104 CL:DOCUMENTATION 101 CL:SETF 83 SETQ 73 QUOTE 70 BOUNDP 67 OR 51 GLOBAL 48 QUOTE 45 CL:PROCLAIM 42 PROGN 39 WITHOUT-FILEPKG 36 PROGN) ( 159 (QUOTE VARIABLES) 139 (CL:EVAL) 115 ((QUOTE VARIABLE))) (SETF-MACRO-FUNCTION (QUOTE DEFGLOBALVAR) (QUOTE expand-DEFGLOBALVAR)) (ADDTOVAR PRETTYPRINTMACROS (DEFGLOBALVAR . PPRINT-DEFINER)) (LET* ((A3019 (QUOTE DEFGLOBALPARAMETER)) (A3020 (QUOTE DEFINER-FOR)) (A3022 (QUOTE VARIABLES))) ( PUTPROP A3019 A3020 A3022)) (LET* ((A3023 (QUOTE VARIABLES)) (A3024 (QUOTE DEFINED-BY)) (A3026 (CL:ADJOIN (QUOTE DEFGLOBALPARAMETER) (GET A3023 A3024)))) (PUTPROP A3023 A3024 A3026)) expand-DEFGLOBALPARAMETER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ Q@HH[KdggggggJhhhgJLhMgggJhoMhhhgoggggJhogIhhhhgJhh(4 REMOVE-COMMENTS) (145 QUOTE 125 QUOTE 114 QUOTE 111 \DEFINE-TYPE-SAVE-DEFN 108 FILEPKGFLG 105 AND 98 CL:EVAL-WHEN 72 QUOTE 69 CL:DOCUMENTATION 66 CL:SETF 54 SETQ 41 GLOBAL 38 QUOTE 35 CL:PROCLAIM 32 PROGN 29 WITHOUT-FILEPKG 26 PROGN) ( 122 (QUOTE VARIABLES) 102 (CL:EVAL) 80 ((QUOTE VARIABLE))) (SETF-MACRO-FUNCTION (QUOTE DEFGLOBALPARAMETER) (QUOTE expand-DEFGLOBALPARAMETER)) (ADDTOVAR PRETTYPRINTMACROS (DEFGLOBALPARAMETER . PPRINT-DEFINER)) (PUTPROPS MACRO-FN PROPTYPE FUNCTIONS) (PUTPROPS CMLDEFFER FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLDEFFER COPYRIGHT ("Xerox Corporation" 1986 1900)) NIL