(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "26-Oct-86 01:18:46" ("compiled on " {ERIS}SOURCES>CMLDEFFER.;25) "21-Oct-86 04:13:01" "COMPILE-FILEd" in "Xerox Lisp 21-Oct-86 ..." dated "21-Oct-86 04:48:43") (FILECREATED "26-Oct-86 01:18:28" {ERIS}SOURCES>CMLDEFFER.;25 17702 changes to%: (FUNCTIONS \DEFINE-TYPE-SAVE-DEFN) previous date%: "25-Oct-86 23:13:19" {ERIS}SOURCES>CMLDEFFER.;24) (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-DEFNA0001 D1 (L (2 A1382 1 A1381 0 A1384) F 0 A1385) P@ABh AB@ (17 CL::PUTHASH 11 UNDOSAVE) NIL () \DEFINE-TYPE-SAVE-DEFN D1 (L (2 DEFINITION 1 TYPE 0 NAME) P 7 A1385) gA` aH-oA A`gggl2gl2 KJI @HBg_NM NMh NML @Ag (100 MARKASCHANGED 91 CL::PUTHASH 84 UNDOSAVE 74 CL:GETHASH 54 CL::PUTHASH 47 CL:MAKE-HASH-TABLE 20 CL:WARN 6 CL:GETHASH) (97 CHANGED 67 \DEFINE-TYPE-SAVE-DEFNA0001 41 :REHASH-SIZE 36 :SIZE 33 CL:EQUAL 30 :TEST 26 *DEFINITION-HASH-TABLE* 3 *DEFINITION-HASH-TABLE*) ( 16 "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))) (ADDTOVAR PRETTYDEFMACROS (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)))))))) (ADDTOVAR PRETTYTYPELST (CHANGEDDEFINE-TYPESLST DEFINE-TYPES "Definition type")) (COND ((NOT (CL:GETHASH (QUOTE DEFINE-TYPES) *DEFINITION-HASH-TABLE*)) (LET* ((A1252 (QUOTE DEFINE-TYPES)) (A1253 *DEFINITION-HASH-TABLE*) (A1255 (CL:MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL ) (QUOTE :SIZE) 50 (QUOTE :REHASH-SIZE) 50))) (CL::PUTHASH A1252 A1253 A1255)))) (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) (CL: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*)) (LET* ((A1256 (QUOTE FUNCTIONS)) ( A1257 *DEFINITION-HASH-TABLE*) (A1259 (CL:MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 50 (QUOTE :REHASH-SIZE) 50))) (CL::PUTHASH A1256 A1257 A1259)))) (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) (CL: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*)) (LET* ((A1260 (QUOTE VARIABLES)) ( A1261 *DEFINITION-HASH-TABLE*) (A1263 (CL:MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 50 (QUOTE :REHASH-SIZE) 50))) (CL::PUTHASH A1260 A1261 A1263)))) (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)) 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* ((A1269 (QUOTE DEF-DEFINE-TYPE)) (A1270 (QUOTE DEFINER-FOR)) (A1272 (QUOTE DEFINE-TYPES))) ( PUTPROP A1269 A1270 A1272)) (LET* ((A1273 (QUOTE DEFINE-TYPES)) (A1274 (QUOTE DEFINED-BY)) (A1276 (CL:ADJOIN (QUOTE DEF-DEFINE-TYPE) (GET A1273 A1274)))) (PUTPROP A1273 A1274 A1276)) 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* ((A1282 (QUOTE DEF-DEFINE-TYPE)) (A1283 (QUOTE CL:FUNCTION)) (A1284 "Define NAME as a new definition type")) (SET-DOCUMENTATION A1282 A1283 A1284)) 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* ((A1286 (QUOTE CL:DEFUN)) (A1287 (QUOTE DEFINER-FOR)) (A1289 (QUOTE FUNCTIONS))) (PUTPROP A1286 A1287 A1289)) (LET* ((A1290 (QUOTE FUNCTIONS)) (A1291 (QUOTE DEFINED-BY)) (A1293 (CL:ADJOIN (QUOTE CL:DEFUN) (GET A1290 A1291)))) (PUTPROP A1290 A1291 A1293)) 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* ((A1300 (QUOTE DEFINLINE)) (A1301 (QUOTE DEFINER-FOR)) (A1303 (QUOTE FUNCTIONS))) (PUTPROP A1300 A1301 A1303)) (LET* ((A1304 (QUOTE FUNCTIONS)) (A1305 (QUOTE DEFINED-BY)) (A1307 (CL:ADJOIN (QUOTE DEFINLINE) (GET A1304 A1305)))) (PUTPROP A1304 A1305 A1307)) 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* ((A1311 (QUOTE DEFMACRO)) (A1312 (QUOTE DEFINER-FOR)) (A1314 (QUOTE FUNCTIONS))) (PUTPROP A1311 A1312 A1314)) (LET* ((A1315 (QUOTE FUNCTIONS)) (A1316 (QUOTE DEFINED-BY)) (A1318 (CL:ADJOIN (QUOTE DEFMACRO) (GET A1315 A1316)))) (PUTPROP A1315 A1316 A1318)) 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* ((A1322 (QUOTE CL:DEFVAR)) (A1323 (QUOTE DEFINER-FOR)) (A1325 (QUOTE VARIABLES))) (PUTPROP A1322 A1323 A1325)) (LET* ((A1326 (QUOTE VARIABLES)) (A1327 (QUOTE DEFINED-BY)) (A1329 (CL:ADJOIN (QUOTE CL:DEFVAR) (GET A1326 A1327)))) (PUTPROP A1326 A1327 A1329)) 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* ((A1334 (QUOTE CL:DEFPARAMETER)) (A1335 (QUOTE DEFINER-FOR)) (A1337 (QUOTE VARIABLES))) (PUTPROP A1334 A1335 A1337)) (LET* ((A1338 (QUOTE VARIABLES)) (A1339 (QUOTE DEFINED-BY)) (A1341 (CL:ADJOIN (QUOTE CL:DEFPARAMETER) (GET A1338 A1339)))) (PUTPROP A1338 A1339 A1341)) 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* ((A1345 (QUOTE CL:DEFCONSTANT)) (A1346 (QUOTE DEFINER-FOR)) (A1348 (QUOTE VARIABLES))) (PUTPROP A1345 A1346 A1348)) (LET* ((A1349 (QUOTE VARIABLES)) (A1350 (QUOTE DEFINED-BY)) (A1352 (CL:ADJOIN (QUOTE CL:DEFCONSTANT) ( GET A1349 A1350)))) (PUTPROP A1349 A1350 A1352)) 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* ((A1356 (QUOTE DEFGLOBALVAR)) (A1357 (QUOTE DEFINER-FOR)) (A1359 (QUOTE VARIABLES))) (PUTPROP A1356 A1357 A1359)) (LET* ((A1360 (QUOTE VARIABLES)) (A1361 (QUOTE DEFINED-BY)) (A1363 (CL:ADJOIN (QUOTE DEFGLOBALVAR) ( GET A1360 A1361)))) (PUTPROP A1360 A1361 A1363)) 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* ((A1366 (QUOTE DEFGLOBALPARAMETER)) (A1367 (QUOTE DEFINER-FOR)) (A1369 (QUOTE VARIABLES))) ( PUTPROP A1366 A1367 A1369)) (LET* ((A1370 (QUOTE VARIABLES)) (A1371 (QUOTE DEFINED-BY)) (A1373 (CL:ADJOIN (QUOTE DEFGLOBALPARAMETER) (GET A1370 A1371)))) (PUTPROP A1370 A1371 A1373)) 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