(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "30-Oct-86 01:09:34" ("compiled on " {ERIS}SOURCES>CMLDEFFER.\;31) "29-Oct-86 01:03:58" "COMPILE-FILEd" |in| "Xerox Lisp 29-Oct-86 ..." |dated| "29-Oct-86 01:55:52") (FILECREATED "30-Oct-86 01:07:47" {ERIS}SOURCES>CMLDEFFER.\;31 28967 |changes| |to:| ( FUNCTIONS XCL::ADD-PROTOTYPE-FN DEF-DEFINE-TYPE REMOVE-COMMENTS XCL::PROTOTYPE-DEFN-TYPES XCL::PROTOTYPE-DEFINERS-FOR-TYPE XCL::MAKE-PROTOTYPE \\DELETE-DEFINER DEFDEFINER) (VARS CMLDEFFERCOMS) (VARIABLES *REMOVE-INTERLISP-COMMENTS* XCL::*DEFINITION-PROTOTYPES*) (DEFINE-TYPES FUNCTIONS) (PROPS (UNDEFINERS PROPTYPE) (DEFINER-FOR PROPTYPE) (DEFINED-BY PROPTYPE)) |previous| |date:| "29-Oct-86 19:25:32" {ERIS}SOURCES>CMLDEFFER.\;29) (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." ) (INITVARS (FILEPKGFLG NIL)) (* |;;| "The definer data structures and manipulation functions") ( VARIABLES *DEFINITION-HASH-TABLE*) (FUNCTIONS PPRINT-DEFINER REMOVE-COMMENTS) (VARIABLES *REMOVE-INTERLISP-COMMENTS*) (FUNCTIONS \\DEFINE-TYPE-DELDEF \\DEFINE-TYPE-GETDEF \\DEFINE-TYPE-SAVE-DEFN) (* |;;| "The groundwork for bootstrapping") (DEFINE-TYPES DEFINE-TYPES FUNCTIONS VARIABLES) (* |;;| "Prototype definition facility") (VARIABLES XCL::*DEFINITION-PROTOTYPES*) (FUNCTIONS XCL::ADD-PROTOTYPE-FN XCL::PROTOTYPE-DEFN-TYPES XCL::PROTOTYPE-DEFINERS-FOR-TYPE XCL::MAKE-PROTOTYPE) (* |;;| "DefDefiner itself and friends") (FUNCTIONS SI::EXPANSION-FUNCTION SI::MACRO-FUNCALL) (FUNCTIONS DEFDEFINER \\DELETE-DEFINER DEF-DEFINE-TYPE WITHOUT-FILEPKG) (* |;;| "The most commonly-used definers") (FUNCTIONS CL:DEFUN DEFINLINE DEFMACRO) (FUNCTIONS CL:DEFVAR CL:DEFPARAMETER CL:DEFCONSTANT DEFGLOBALVAR DEFGLOBALPARAMETER) (* |;;| "Don't note changes to these properties/variables") (PROP PROPTYPE MACRO-FN UNDEFINERS DEFINER-FOR DEFINED-BY) (* |;;| "Arrange for the correct compiler to be used.") (PROP FILETYPE CMLDEFFER))) (RPAQ? FILEPKGFLG NIL) (CL:PROCLAIM (QUOTE (GLOBAL *DEFINITION-HASH-TABLE*))) (OR (BOUNDP (QUOTE *DEFINITION-HASH-TABLE*)) (SETQ *DEFINITION-HASH-TABLE* (HASHARRAY 20))) PPRINT-DEFINER D1 (L (0 DEFINE-EXPRESSION) P 3 \#RPARS F 4 PRETTYCOMFONT F 5 DEFAULTFONT F 6 COMMENTFLG) @d,o @ @o @id o h@b@bo H k I0o T I U k Iidd o T I U @dk @@bi @@dVk @@bid @id J lk @idd o h (245 TERPRI 241 PRIN1 234 PRINTDEF 226 SPACES 218 DSPXPOSITION 213 TERPRI 209 FITP 202 PRINTDEF 189 SPACES 169 PRINTDEF 157 SPACES 145 CHANGEFONT 140 PRIN2 135 CHANGEFONT 130 PRIN1 122 PRINTDEF 113 SPACES 108 CHANGEFONT 103 PRIN2 97 CHANGEFONT 92 PRIN1 81 SPACES 76 PRIN2 71 PRIN1 61 DSPXPOSITION 45 PRIN1 37 PRINTDEF 29 PRIN1 19 PRIN2 13 PRIN1) NIL ( 238 ")" 127 ")" 89 "(" 68 "(" 42 ")" 26 " . " 10 "(") REMOVE-COMMENTS D1 (L (0 X) F 2 *REMOVE-INTERLISP-COMMENTS*) e@@g3@dgdgdgih1Ri,Rgo@ @ @ Hd@I@@@bHI(72 REMOVE-COMMENTS 67 REMOVE-COMMENTS 61 CL:WARN) (51 :WARN 33 |;;;| 27 |;;| 21 \; 10 *) ( 57 "Possible comment not stripped ~S") (CL:PROCLAIM (QUOTE (CL:SPECIAL *REMOVE-INTERLISP-COMMENTS*))) (OR (BOUNDP (QUOTE *REMOVE-INTERLISP-COMMENTS*)) (SETQ *REMOVE-INTERLISP-COMMENTS* (QUOTE :WARN))) (LET* ((A1258 (QUOTE *REMOVE-INTERLISP-COMMENTS*)) (A1259 (QUOTE CL::VARIABLE)) (A1260 "Either NIL (don't) T (always do) or :WARN (don't and warn)")) (SET-DOCUMENTATION A1258 A1259 A1260)) \\DEFINE-TYPE-DELDEF D1 (L (1 TYPE 0 NAME)) +A` H@H Ag'd@kI@(16 REMHASH 6 CL:GETHASH) (25 UNDEFINERS 3 *DEFINITION-HASH-TABLE*) () \\DEFINE-TYPE-GETDEF D1 (L (2 OPTIONS 1 TYPE 0 NAME)) *A` H@H BgBgBI I(37 CL:COPY-TREE 17 CL:GETHASH 6 CL:GETHASH) (30 EDIT 22 EDIT 3 *DEFINITION-HASH-TABLE*) () \\DEFINE-TYPE-SAVE-DEFN D1 (L (2 DEFINITION 1 TYPE 0 NAME)) CA` H'oA A`gggl2gl2  @HB @Ag (64 MARKASCHANGED 55 CL::PUTHASH 48 CL::PUTHASH 45 CL:MAKE-HASH-TABLE 20 CL:WARN 6 CL:GETHASH) (61 CHANGED 39 :REHASH-SIZE 34 :SIZE 31 CL:EQUAL 28 :TEST 25 *DEFINITION-HASH-TABLE* 3 *DEFINITION-HASH-TABLE*) ( 16 "Couldn't find a hash-table for ~S definitions.~%One will be created.") (LET* ((A1261 (QUOTE DEFINE-TYPES)) (A1262 (QUOTE DEFINE-TYPES)) (A1263 (QUOTE "Definition type"))) ( SET-DOCUMENTATION A1261 A1262 A1263)) (SETQ PRETTYDEFMACROS (CL:ADJOIN (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 :TEST (QUOTE CL:EQUAL))) (SETQ PRETTYTYPELST (CL:ADJOIN (QUOTE (CHANGEDDEFINE-TYPESLST DEFINE-TYPES "Definition type")) PRETTYTYPELST :TEST (QUOTE CL:EQUAL))) (CL:PROCLAIM (QUOTE (GLOBAL CHANGEDDEFINE-TYPESLST))) (OR (BOUNDP (QUOTE CHANGEDDEFINE-TYPESLST)) (SETQ CHANGEDDEFINE-TYPESLST NIL)) (COND ((NOT (CL:GETHASH (QUOTE DEFINE-TYPES) *DEFINITION-HASH-TABLE*)) (CL::PUTHASH (QUOTE DEFINE-TYPES) *DEFINITION-HASH-TABLE* (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE DEFINE-TYPES) FILEPKGTYPES)) (LET* ((A1264 (QUOTE DEFINE-TYPES)) (A1265 (QUOTE GETDEF)) (A1267 (QUOTE \\DEFINE-TYPE-GETDEF))) ( PUTPROP A1264 A1265 A1267)) (LET* ((A1268 (QUOTE DEFINE-TYPES)) (A1269 (QUOTE DELDEF)) (A1271 (QUOTE \\DEFINE-TYPE-DELDEF))) ( PUTPROP A1268 A1269 A1271)) (LET* ((A1272 (QUOTE DEFINE-TYPES)) (A1273 (QUOTE FILEPKGCONTENTS)) (A1275 (QUOTE NILL))) (PUTPROP A1272 A1273 A1275)) (LET* ((A1276 (QUOTE FUNCTIONS)) (A1277 (QUOTE DEFINE-TYPES)) (A1278 (QUOTE "functions or macros"))) ( SET-DOCUMENTATION A1276 A1277 A1278)) (SETQ PRETTYDEFMACROS (CL:ADJOIN (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 :TEST (QUOTE CL:EQUAL))) (SETQ PRETTYTYPELST (CL:ADJOIN (QUOTE (CHANGEDFUNCTIONSLST FUNCTIONS "functions or macros")) PRETTYTYPELST :TEST (QUOTE CL:EQUAL))) (CL:PROCLAIM (QUOTE (GLOBAL CHANGEDFUNCTIONSLST))) (OR (BOUNDP (QUOTE CHANGEDFUNCTIONSLST)) (SETQ CHANGEDFUNCTIONSLST NIL)) (COND ((NOT (CL:GETHASH (QUOTE FUNCTIONS) *DEFINITION-HASH-TABLE*)) (CL::PUTHASH (QUOTE FUNCTIONS) *DEFINITION-HASH-TABLE* (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE FUNCTIONS) FILEPKGTYPES)) (LET* ((A1279 (QUOTE FUNCTIONS)) (A1280 (QUOTE GETDEF)) (A1282 (QUOTE \\DEFINE-TYPE-GETDEF))) (PUTPROP A1279 A1280 A1282)) (LET* ((A1283 (QUOTE FUNCTIONS)) (A1284 (QUOTE DELDEF)) (A1286 (QUOTE \\DEFINE-TYPE-DELDEF))) (PUTPROP A1283 A1284 A1286)) (LET* ((A1287 (QUOTE FUNCTIONS)) (A1288 (QUOTE FILEPKGCONTENTS)) (A1290 (QUOTE NILL))) (PUTPROP A1287 A1288 A1290)) (LET* ((A1291 (QUOTE FUNCTIONS)) (A1292 (QUOTE UNDEFINERS)) (A1294 (CL:ADJOIN (QUOTE CL:FMAKUNBOUND) ( GET A1291 A1292)))) (PUTPROP A1291 A1292 A1294)) (LET* ((A1295 (QUOTE VARIABLES)) (A1296 (QUOTE DEFINE-TYPES)) (A1297 (QUOTE "Common Lisp variables"))) (SET-DOCUMENTATION A1295 A1296 A1297)) (SETQ PRETTYDEFMACROS (CL:ADJOIN (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 :TEST (QUOTE CL:EQUAL))) (SETQ PRETTYTYPELST (CL:ADJOIN (QUOTE (CHANGEDVARIABLESLST VARIABLES "Common Lisp variables")) PRETTYTYPELST :TEST (QUOTE CL:EQUAL))) (CL:PROCLAIM (QUOTE (GLOBAL CHANGEDVARIABLESLST))) (OR (BOUNDP (QUOTE CHANGEDVARIABLESLST)) (SETQ CHANGEDVARIABLESLST NIL)) (COND ((NOT (CL:GETHASH (QUOTE VARIABLES) *DEFINITION-HASH-TABLE*)) (CL::PUTHASH (QUOTE VARIABLES) *DEFINITION-HASH-TABLE* (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE VARIABLES) FILEPKGTYPES)) (LET* ((A1298 (QUOTE VARIABLES)) (A1299 (QUOTE GETDEF)) (A1301 (QUOTE \\DEFINE-TYPE-GETDEF))) (PUTPROP A1298 A1299 A1301)) (LET* ((A1302 (QUOTE VARIABLES)) (A1303 (QUOTE DELDEF)) (A1305 (QUOTE \\DEFINE-TYPE-DELDEF))) (PUTPROP A1302 A1303 A1305)) (LET* ((A1306 (QUOTE VARIABLES)) (A1307 (QUOTE FILEPKGCONTENTS)) (A1309 (QUOTE NILL))) (PUTPROP A1306 A1307 A1309)) (CL:PROCLAIM (QUOTE (GLOBAL XCL::*DEFINITION-PROTOTYPES*))) (OR (BOUNDP (QUOTE XCL::*DEFINITION-PROTOTYPES*)) (SETQ XCL::*DEFINITION-PROTOTYPES* NIL)) XCL::|expand-ADD-PROTOTYPE-FN| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 2@AHHZJggdggIhhKhLhNIL (29 QUOTE 26 XCL::*DEFINITION-PROTOTYPES* 22 CL:GETF 19 CL:SETF) () (SETF-MACRO-FUNCTION (QUOTE XCL::ADD-PROTOTYPE-FN) (QUOTE XCL::|expand-ADD-PROTOTYPE-FN|)) XCL::PROTOTYPE-DEFN-TYPES D1 NIL %`AH\ILJ KhZLK&NIL (2 XCL::*DEFINITION-PROTOTYPES*) () XCL::PROTOTYPE-DEFINERS-FOR-TYPE D1 (L (0 TYPE)) (`@'AH\ILJ KhZLK&NIL (2 XCL::*DEFINITION-PROTOTYPES*) () XCL::MAKE-PROTOTYPE D1 (L (2 CL::DEFINER 1 TYPE 0 CL::NAME)) `A'B'H @ABlHNIL (2 XCL::*DEFINITION-PROTOTYPES*) () SI::EXPANSION-FUNCTION D1 (L (2 SI::BODY 1 SI::ARG-LIST 0 SI::NAME)) AAgB@hgg  AHHZJgoKg@Ihh L (62 CL:VALUES 56 \\APPEND2 19 \\MVLIST 16 PARSE-DEFMACRO) (45 CL:BLOCK 37 CL:LAMBDA 12 SI::$$MACRO-ENVIRONMENT 9 :ENVIRONMENT 3 SI::$$MACRO-FORM) ( 41 (SI::$$MACRO-FORM SI::$$MACRO-ENVIRONMENT)) SI::|expand-MACRO-FUNCALL| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @AHHZJKLlINIL NIL () (SETF-MACRO-FUNCTION (QUOTE SI::MACRO-FUNCALL) (QUOTE SI::|expand-MACRO-FUNCALL|)) (LET* ((A1326 (QUOTE DEFDEFINER)) (A1327 (QUOTE DEFINER-FOR)) (A1329 (QUOTE FUNCTIONS))) (PUTPROP A1326 A1327 A1329)) (LET* ((A1330 (QUOTE FUNCTIONS)) (A1331 (QUOTE DEFINED-BY)) (A1333 (CL:ADJOIN (QUOTE DEFDEFINER) (GET A1330 A1331)))) (PUTPROP A1330 A1331 A1333)) |expand-DEFDEFINERA0001| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @HHZJ\LIII_g_h__OJd__dgO_2gO_%OdgO_gooO IMN __O_ggggIhogKhhggIhggKhohgIogogOohhggggggOhhohgogogogggKhhhohhohhhO#ggOhggIhohhO"ggKhgIhgOhhhOgggIhoOhh (458 \\APPEND2 455 \\APPEND2 132 \\MVLIST 129 SI::EXPANSION-FUNCTION 118 CL:CERROR) (434 QUOTE 431 CL:DOCUMENTATION 428 CL:SETF 409 CL:FUNCTION 402 QUOTE 395 QUOTE 392 XCL::ADD-PROTOTYPE-FN 369 QUOTE 366 GET 358 QUOTE 355 CL:PUSHNEW 304 QUOTE 301 \\\, 298 QUOTE 291 \\DEFINE-TYPE-SAVE-DEFN 284 CL:UNLESS 277 CL:EVAL-WHEN 257 CL:FUNCTION 254 \\\, 251 SI::MACRO-FUNCALL 248 WITHOUT-FILEPKG 245 PROGN 242 BQUOTE 226 CL::DEFINED-OBJECT-NAME 219 LET* 211 DEFMACRO 194 QUOTE 191 GET 184 QUOTE 181 CL:PUSHNEW 170 QUOTE 157 QUOTE 154 GET 151 CL:SETF 148 PROGN 103 CL:OTHERWISE 89 :PROTOTYPE 73 :NAME 59 :UNDEFINER 35 CL:SECOND) ( 442 ((QUOTE CL:FUNCTION)) 377 ((QUOTE UNDEFINERS)) 333 ((QUOTE (\\\, CL::DEFINED-OBJECT-NAME))) 318 ((QUOTE (\\\, CL::ORIGINAL-MACRO-CALL))) 295 (QUOTE (\\\, CL::DEFINED-OBJECT-NAME)) 288 (NULL FILEPKGFLG) 281 (CL:EVAL) 269 ((\\\, CL::MACRO-CALL-WITHOUT-COMMENTS) (\\\, CL::ENV)) 232 (CL::MACRO-CALL-WITHOUT-COMMENTS) 223 (CL::MACRO-CALL-WITHOUT-COMMENTS (REMOVE-COMMENTS CL::ORIGINAL-MACRO-CALL)) 216 (&WHOLE CL::ORIGINAL-MACRO-CALL &ENVIRONMENT CL::ENV) 202 ((QUOTE DEFINED-BY)) 165 ((QUOTE DEFINER-FOR)) 113 "Unrecognized option to DefDefiner: ~S" 109 "Ignore the bogus option") |expand-DEFDEFINER| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) f@1AH ZdggggJIhhgogoggKhogHhhhhgKhh(9 REMOVE-COMMENTS) (90 QUOTE 70 QUOTE 59 QUOTE 56 \\DEFINE-TYPE-SAVE-DEFN 49 CL:UNLESS 42 CL:EVAL-WHEN 29 |expand-DEFDEFINERA0001| 26 SI::MACRO-FUNCALL 23 WITHOUT-FILEPKG 20 PROGN) ( 67 (QUOTE FUNCTIONS) 53 (NULL FILEPKGFLG) 46 (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFDEFINER) (QUOTE |expand-DEFDEFINER|)) (LET* ((A1335 (QUOTE DEFDEFINER)) (A1336 (QUOTE UNDEFINERS)) (A1338 (CL:ADJOIN (QUOTE CL::\\DELETE-DEFINER) (GET A1335 A1336)))) (PUTPROP A1335 A1336 A1338)) (LET* ((A1339 XCL::*DEFINITION-PROTOTYPES*) (A1341 (QUOTE (QUOTE FUNCTIONS))) (A1340 (CL:GETF A1339 A1341)) (A1344 (QUOTE DEFDEFINER)) (A1343 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME ) (LIST* (QUOTE DEFDEFINER) CL::NAME (QUOTE ("Type" ("Arg-list") "Body")))))))) (COND ((NULL A1340) ( LET* ((A1339 XCL::*DEFINITION-PROTOTYPES*) (A1341 (QUOTE (QUOTE FUNCTIONS))) (A1340 (LIST A1344 A1343) )) (COND ((NULL A1339) (LET* ((A1339 (LIST A1341 A1340))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A1339) ) A1340) (T (LISTPUT A1339 A1341 A1340)))) A1343) (T (LISTPUT A1340 A1344 A1343)))) \\DELETE-DEFINER D1 (L (0 NAME)) 3@l,@g'@g Hdg@Hg' (48 /PUTPROP 45 REMOVE 25 /REMPROP) (41 DEFINED-BY 32 DEFINED-BY 22 DEFINER-FOR 14 DEFINER-FOR) () (LET* ((A1354 (QUOTE DEF-DEFINE-TYPE)) (A1355 (QUOTE DEFINER-FOR)) (A1357 (QUOTE DEFINE-TYPES))) ( PUTPROP A1354 A1355 A1357)) (LET* ((A1358 (QUOTE DEFINE-TYPES)) (A1359 (QUOTE DEFINED-BY)) (A1361 (CL:ADJOIN (QUOTE DEF-DEFINE-TYPE) (GET A1358 A1359)))) (PUTPROP A1358 A1359 A1361)) |expand-DEF-DEFINE-TYPEA0001| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @aHHZJgL dgoI o I Lo ggggIhogKhhggIggggoggogggggIhhhhogoogIhohhhhhhhoggNIKhhogNogggIhogggIhoohggIhogggIhoogggIhoogggIhooM"ggMhggIhohh(60 KEYWORD-TEST 51 CL:INTERN 48 CL:SYMBOL-PACKAGE 44 CL:CONCATENATE 37 STRING 22 FIND-KEYWORD) (407 QUOTE 404 GET 397 QUOTE 394 CL:PUSHNEW 372 QUOTE 369 GET 366 CL:SETF 347 QUOTE 344 GET 341 CL:SETF 322 QUOTE 319 GET 316 CL:SETF 303 QUOTE 300 CL:PUSHNEW 277 QUOTE 274 CL:GETHASH 271 CL:SETF 258 QUOTE 255 CL:GETHASH 252 CL:UNLESS 242 DEFGLOBALVAR 223 QUOTE 220 CL:PUSHNEW 172 QUOTE 161 CL:CERROR 141 QUOTE 138 ITEM 135 GETDEF 132 DEF 129 CL:DO 122 LAMBDA 119 FUNCTION 112 MAPCAR 109 * 106 P 103 X 99 QUOTE 96 CL:PUSHNEW 85 QUOTE 72 QUOTE 69 CL:DOCUMENTATION 66 CL:SETF 63 PROGN 29 STRING 18 :UNDEFINER) ( 415 ((QUOTE UNDEFINERS)) 386 ((QUOTE NILL)) 380 ((QUOTE FILEPKGCONTENTS)) 361 ((QUOTE \\DEFINE-TYPE-DELDEF)) 355 ((QUOTE DELDEF)) 336 ((QUOTE \\DEFINE-TYPE-GETDEF)) 330 ((QUOTE GETDEF)) 311 (FILEPKGTYPES) 291 ((CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50)) 285 (*DEFINITION-HASH-TABLE*) 266 (*DEFINITION-HASH-TABLE*) 247 (NIL) 237 (PRETTYTYPELST :TEST (QUOTE CL:EQUAL)) 215 (PRETTYDEFMACROS :TEST (QUOTE CL:EQUAL)) 180 (ITEM) 169 "No ~S definition for ~S" 165 "Re-fetch the definition" 158 (DEF DEF) 126 (ITEM) 116 (QUOTE X) 80 ((QUOTE DEFINE-TYPES)) 57 (:UNDEFINER) 41 "LST" 33 "CHANGED") |expand-DEF-DEFINE-TYPE| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 REMOVE-COMMENTS) (86 QUOTE 66 QUOTE 55 QUOTE 52 \\DEFINE-TYPE-SAVE-DEFN 45 CL:UNLESS 38 CL:EVAL-WHEN 25 |expand-DEF-DEFINE-TYPEA0001| 22 SI::MACRO-FUNCALL 19 WITHOUT-FILEPKG 16 PROGN) ( 63 (QUOTE DEFINE-TYPES) 49 (NULL FILEPKGFLG) 42 (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEF-DEFINE-TYPE) (QUOTE |expand-DEF-DEFINE-TYPE|)) (LET* ((A1363 XCL::*DEFINITION-PROTOTYPES*) (A1365 (QUOTE (QUOTE DEFINE-TYPES))) (A1364 (CL:GETF A1363 A1365)) (A1368 (QUOTE DEF-DEFINE-TYPE)) (A1367 (CL:FUNCTION (LAMBDA (NAME) (AND (CL:SYMBOLP NAME) ( LIST* (QUOTE DEF-DEFINE-TYPE) NAME (QUOTE ("Description string")))))))) (COND ((NULL A1364) (LET* (( A1363 XCL::*DEFINITION-PROTOTYPES*) (A1365 (QUOTE (QUOTE DEFINE-TYPES))) (A1364 (LIST A1368 A1367))) ( COND ((NULL A1363) (LET* ((A1363 (LIST A1365 A1364))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A1363)) A1364) (T (LISTPUT A1363 A1365 A1364)))) A1367) (T (LISTPUT A1364 A1368 A1367)))) (LET* ((A1370 (QUOTE DEF-DEFINE-TYPE)) (A1371 (QUOTE CL:FUNCTION)) (A1372 "Define NAME as a new definition type")) (SET-DOCUMENTATION A1370 A1371 A1372)) |expand-WITHOUT-FILEPKG| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 8@ggoHgogogoHhhhNIL (34 LET 27 CL:UNLESS 20 CL:EVAL-WHEN 10 CL:EVAL-WHEN 7 PROGN) ( 38 (FILEPKGFLG (DFNFLG T)) 31 (OR (EQ DFNFLG (QUOTE PROP)) (EQ DFNFLG (QUOTE ALLPROP))) 24 (CL:EVAL) 14 (CL:LOAD)) (SETF-MACRO-FUNCTION (QUOTE WITHOUT-FILEPKG) (QUOTE |expand-WITHOUT-FILEPKG|)) (LET* ((A1379 (QUOTE CL:DEFUN)) (A1380 (QUOTE DEFINER-FOR)) (A1382 (QUOTE FUNCTIONS))) (PUTPROP A1379 A1380 A1382)) (LET* ((A1383 (QUOTE FUNCTIONS)) (A1384 (QUOTE DEFINED-BY)) (A1386 (CL:ADJOIN (QUOTE CL:DEFUN) (GET A1383 A1384)))) (PUTPROP A1383 A1384 A1386)) CL::|expand-DEFUNA0001| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) x@qHHZJAi \LL_ggggIhhggKNgIMh hhOgggIhoOhh(75 \\APPEND2 22 \\MVLIST 19 PARSE-BODY) (97 QUOTE 94 CL:DOCUMENTATION 91 CL:SETF 66 CL:BLOCK 61 CL:LAMBDA 58 CL:FUNCTION 48 QUOTE 45 CL:SYMBOL-FUNCTION 42 CL:SETF 39 PROGN) ( 105 ((QUOTE CL:FUNCTION))) CL::|expand-DEFUN| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 REMOVE-COMMENTS) (86 QUOTE 66 QUOTE 55 QUOTE 52 \\DEFINE-TYPE-SAVE-DEFN 45 CL:UNLESS 38 CL:EVAL-WHEN 25 CL::|expand-DEFUNA0001| 22 SI::MACRO-FUNCALL 19 WITHOUT-FILEPKG 16 PROGN) ( 63 (QUOTE FUNCTIONS) 49 (NULL FILEPKGFLG) 42 (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE CL:DEFUN) (QUOTE CL::|expand-DEFUN|)) (LET* ((A1388 XCL::*DEFINITION-PROTOTYPES*) (A1390 (QUOTE (QUOTE FUNCTIONS))) (A1389 (CL:GETF A1388 A1390)) (A1393 (QUOTE CL:DEFUN)) (A1392 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST* (QUOTE CL:DEFUN) CL::NAME (QUOTE (("Arg List") "Body")))))))) (COND ((NULL A1389) (LET* ((A1388 XCL::*DEFINITION-PROTOTYPES*) (A1390 (QUOTE (QUOTE FUNCTIONS))) (A1389 (LIST A1393 A1392))) (COND (( NULL A1388) (LET* ((A1388 (LIST A1390 A1389))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A1388)) A1389) (T (LISTPUT A1388 A1390 A1389)))) A1392) (T (LISTPUT A1389 A1393 A1392)))) (LET* ((A1401 (QUOTE DEFINLINE)) (A1402 (QUOTE DEFINER-FOR)) (A1404 (QUOTE FUNCTIONS))) (PUTPROP A1401 A1402 A1404)) (LET* ((A1405 (QUOTE FUNCTIONS)) (A1406 (QUOTE DEFINED-BY)) (A1408 (CL:ADJOIN (QUOTE DEFINLINE) (GET A1405 A1406)))) (PUTPROP A1405 A1406 A1408)) |expand-DEFINLINEA0001| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ~ @ HHZJALMi ^_N_gKOgIOh _ggIKLgIoIhI oggOhohh(92 XCL:PACK 89 CL:SYMBOL-PACKAGE 56 \\APPEND2 26 \\MVLIST 23 PARSE-BODY) (102 QUOTE 99 CONS 76 DEFOPTIMIZER 67 CL:DEFUN 64 PROGN 46 CL:BLOCK 40 CL:LAMBDA) ( 111 (ARGS) 96 (&REST ARGS) 81 "definline-") |expand-DEFINLINE| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 REMOVE-COMMENTS) (86 QUOTE 66 QUOTE 55 QUOTE 52 \\DEFINE-TYPE-SAVE-DEFN 45 CL:UNLESS 38 CL:EVAL-WHEN 25 |expand-DEFINLINEA0001| 22 SI::MACRO-FUNCALL 19 WITHOUT-FILEPKG 16 PROGN) ( 63 (QUOTE FUNCTIONS) 49 (NULL FILEPKGFLG) 42 (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFINLINE) (QUOTE |expand-DEFINLINE|)) (LET* ((A1410 XCL::*DEFINITION-PROTOTYPES*) (A1412 (QUOTE (QUOTE FUNCTIONS))) (A1411 (CL:GETF A1410 A1412)) (A1415 (QUOTE DEFINLINE)) (A1414 (CL:FUNCTION (LAMBDA (NAME) (AND (CL:SYMBOLP NAME) (LIST* ( QUOTE DEFINLINE) NAME (QUOTE (("Arg List") "Body")))))))) (COND ((NULL A1411) (LET* ((A1410 XCL::*DEFINITION-PROTOTYPES*) (A1412 (QUOTE (QUOTE FUNCTIONS))) (A1411 (LIST A1415 A1414))) (COND (( NULL A1410) (LET* ((A1410 (LIST A1412 A1411))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A1410)) A1411) (T (LISTPUT A1410 A1412 A1411)))) A1414) (T (LISTPUT A1411 A1415 A1414)))) (LET* ((A1421 (QUOTE DEFMACRO)) (A1422 (QUOTE DEFINER-FOR)) (A1424 (QUOTE FUNCTIONS))) (PUTPROP A1421 A1422 A1424)) (LET* ((A1425 (QUOTE FUNCTIONS)) (A1426 (QUOTE DEFINED-BY)) (A1428 (CL:ADJOIN (QUOTE DEFMACRO) (GET A1425 A1426)))) (PUTPROP A1425 A1426 A1428)) CL::|expand-DEFMACROA0001| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @HHZJIIloI oIhI IKL ^_N_gogggMhhgOhhgggIhhgMhhOgggIhoOhh(57 \\MVLIST 54 SI::EXPANSION-FUNCTION 47 XCL:PACK 44 CL:SYMBOL-PACKAGE 31 CL:ERROR) (143 QUOTE 140 CL:DOCUMENTATION 137 CL:SETF 122 QUOTE 112 QUOTE 109 CL:MACRO-FUNCTION 106 CL:SETF 94 CL:FUNCTION 84 QUOTE 81 CL:SYMBOL-FUNCTION 78 CL:SETF 71 CL:EVAL-WHEN) ( 151 ((QUOTE CL:FUNCTION)) 75 (CL:EVAL CL:COMPILE CL:LOAD) 36 "expand-" 27 "Illegal name used in DEFMACRO: ~S") CL::|expand-DEFMACRO| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 REMOVE-COMMENTS) (86 QUOTE 66 QUOTE 55 QUOTE 52 \\DEFINE-TYPE-SAVE-DEFN 45 CL:UNLESS 38 CL:EVAL-WHEN 25 CL::|expand-DEFMACROA0001| 22 SI::MACRO-FUNCALL 19 WITHOUT-FILEPKG 16 PROGN) ( 63 (QUOTE FUNCTIONS) 49 (NULL FILEPKGFLG) 42 (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFMACRO) (QUOTE CL::|expand-DEFMACRO|)) (LET* ((A1430 XCL::*DEFINITION-PROTOTYPES*) (A1432 (QUOTE (QUOTE FUNCTIONS))) (A1431 (CL:GETF A1430 A1432)) (A1435 (QUOTE DEFMACRO)) (A1434 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST* (QUOTE DEFMACRO) CL::NAME (QUOTE ((CL::ARG-LIST) "Body")))))))) (COND ((NULL A1431) (LET* (( A1430 XCL::*DEFINITION-PROTOTYPES*) (A1432 (QUOTE (QUOTE FUNCTIONS))) (A1431 (LIST A1435 A1434))) ( COND ((NULL A1430) (LET* ((A1430 (LIST A1432 A1431))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A1430)) A1431) (T (LISTPUT A1430 A1432 A1431)))) A1434) (T (LISTPUT A1431 A1435 A1434)))) (LET* ((A1440 (QUOTE CL:DEFVAR)) (A1441 (QUOTE DEFINER-FOR)) (A1443 (QUOTE VARIABLES))) (PUTPROP A1440 A1441 A1443)) (LET* ((A1444 (QUOTE VARIABLES)) (A1445 (QUOTE DEFINED-BY)) (A1447 (CL:ADJOIN (QUOTE CL:DEFVAR) (GET A1444 A1445)))) (PUTPROP A1444 A1445 A1447)) CL::|expand-DEFVARA0001| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) y@QHHZdJhhJJggggIhhhL!gggIhhgIKhhhMgggIhoMhh (116 \\APPEND2) (96 QUOTE 93 CL:DOCUMENTATION 90 CL:SETF 72 SETQ 62 QUOTE 59 BOUNDP 56 OR 40 CL:SPECIAL 37 QUOTE 34 CL:PROCLAIM 31 PROGN) ( 104 ((QUOTE CL::VARIABLE))) CL::|expand-DEFVAR| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 REMOVE-COMMENTS) (86 QUOTE 66 QUOTE 55 QUOTE 52 \\DEFINE-TYPE-SAVE-DEFN 45 CL:UNLESS 38 CL:EVAL-WHEN 25 CL::|expand-DEFVARA0001| 22 SI::MACRO-FUNCALL 19 WITHOUT-FILEPKG 16 PROGN) ( 63 (QUOTE VARIABLES) 49 (NULL FILEPKGFLG) 42 (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE CL:DEFVAR) (QUOTE CL::|expand-DEFVAR|)) (LET* ((A1450 XCL::*DEFINITION-PROTOTYPES*) (A1452 (QUOTE (QUOTE VARIABLES))) (A1451 (CL:GETF A1450 A1452)) (A1455 (QUOTE CL:DEFVAR)) (A1454 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST (QUOTE CL:DEFVAR) CL::NAME)))))) (COND ((NULL A1451) (LET* ((A1450 XCL::*DEFINITION-PROTOTYPES* ) (A1452 (QUOTE (QUOTE VARIABLES))) (A1451 (LIST A1455 A1454))) (COND ((NULL A1450) (LET* ((A1450 ( LIST A1452 A1451))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A1450)) A1451) (T (LISTPUT A1450 A1452 A1451 )))) A1454) (T (LISTPUT A1451 A1455 A1454)))) (LET* ((A1461 (QUOTE CL:DEFPARAMETER)) (A1462 (QUOTE DEFINER-FOR)) (A1464 (QUOTE VARIABLES))) (PUTPROP A1461 A1462 A1464)) (LET* ((A1465 (QUOTE VARIABLES)) (A1466 (QUOTE DEFINED-BY)) (A1468 (CL:ADJOIN (QUOTE CL:DEFPARAMETER) (GET A1465 A1466)))) (PUTPROP A1465 A1466 A1468)) CL::|expand-DEFPARAMETERA0001| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) T@AHHZJdggggIhhhgIKhLgggIhoLhhNIL (61 QUOTE 58 CL:DOCUMENTATION 55 CL:SETF 43 SETQ 30 CL:SPECIAL 27 QUOTE 24 CL:PROCLAIM 21 PROGN) ( 69 ((QUOTE CL::VARIABLE))) CL::|expand-DEFPARAMETER| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 REMOVE-COMMENTS) (86 QUOTE 66 QUOTE 55 QUOTE 52 \\DEFINE-TYPE-SAVE-DEFN 45 CL:UNLESS 38 CL:EVAL-WHEN 25 CL::|expand-DEFPARAMETERA0001| 22 SI::MACRO-FUNCALL 19 WITHOUT-FILEPKG 16 PROGN) ( 63 (QUOTE VARIABLES) 49 (NULL FILEPKGFLG) 42 (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE CL:DEFPARAMETER) (QUOTE CL::|expand-DEFPARAMETER|)) (LET* ((A1470 XCL::*DEFINITION-PROTOTYPES*) (A1472 (QUOTE (QUOTE VARIABLES))) (A1471 (CL:GETF A1470 A1472)) (A1475 (QUOTE CL:DEFPARAMETER)) (A1474 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST* (QUOTE CL:DEFPARAMETER) CL::NAME (QUOTE ("Value" "Documentation string")))))))) (COND ((NULL A1471) (LET* ((A1470 XCL::*DEFINITION-PROTOTYPES*) (A1472 (QUOTE (QUOTE VARIABLES))) (A1471 ( LIST A1475 A1474))) (COND ((NULL A1470) (LET* ((A1470 (LIST A1472 A1471))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A1470)) A1471) (T (LISTPUT A1470 A1472 A1471)))) A1474) (T (LISTPUT A1471 A1475 A1474)))) (LET* ((A1481 (QUOTE CL:DEFCONSTANT)) (A1482 (QUOTE DEFINER-FOR)) (A1484 (QUOTE VARIABLES))) (PUTPROP A1481 A1482 A1484)) (LET* ((A1485 (QUOTE VARIABLES)) (A1486 (QUOTE DEFINED-BY)) (A1488 (CL:ADJOIN (QUOTE CL:DEFCONSTANT) ( GET A1485 A1486)))) (PUTPROP A1485 A1486 A1488)) CL::|expand-DEFCONSTANTA0001| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) _@AHHZJdggIKhggIhggIhhoLgggIhoLhhNIL (72 QUOTE 69 CL:DOCUMENTATION 66 CL:SETF 46 CONSTANT 43 QUOTE 36 QUOTE 33 PUTHASH 24 SETQ 21 PROGN) ( 80 ((QUOTE CL::VARIABLE)) 57 (COMPVARMACROHASH)) CL::|expand-DEFCONSTANT| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 REMOVE-COMMENTS) (86 QUOTE 66 QUOTE 55 QUOTE 52 \\DEFINE-TYPE-SAVE-DEFN 45 CL:UNLESS 38 CL:EVAL-WHEN 25 CL::|expand-DEFCONSTANTA0001| 22 SI::MACRO-FUNCALL 19 WITHOUT-FILEPKG 16 PROGN) ( 63 (QUOTE VARIABLES) 49 (NULL FILEPKGFLG) 42 (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE CL:DEFCONSTANT) (QUOTE CL::|expand-DEFCONSTANT|)) (LET* ((A1490 XCL::*DEFINITION-PROTOTYPES*) (A1492 (QUOTE (QUOTE VARIABLES))) (A1491 (CL:GETF A1490 A1492)) (A1495 (QUOTE CL:DEFCONSTANT)) (A1494 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST* (QUOTE CL:DEFCONSTANT) CL::NAME (QUOTE ("Value" "Documentation string")))))))) (COND ((NULL A1491) (LET* ((A1490 XCL::*DEFINITION-PROTOTYPES*) (A1492 (QUOTE (QUOTE VARIABLES))) (A1491 ( LIST A1495 A1494))) (COND ((NULL A1490) (LET* ((A1490 (LIST A1492 A1491))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A1490)) A1491) (T (LISTPUT A1490 A1492 A1491)))) A1494) (T (LISTPUT A1491 A1495 A1494)))) (LET* ((A1500 (QUOTE DEFGLOBALVAR)) (A1501 (QUOTE DEFINER-FOR)) (A1503 (QUOTE VARIABLES))) (PUTPROP A1500 A1501 A1503)) (LET* ((A1504 (QUOTE VARIABLES)) (A1505 (QUOTE DEFINED-BY)) (A1507 (CL:ADJOIN (QUOTE DEFGLOBALVAR) ( GET A1504 A1505)))) (PUTPROP A1504 A1505 A1507)) |expand-DEFGLOBALVARA0001| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) y@QHHZdJhhJJggggIhhhL!gggIhhgIKhhhMgggIhoMhh (116 \\APPEND2) (96 QUOTE 93 CL:DOCUMENTATION 90 CL:SETF 72 SETQ 62 QUOTE 59 BOUNDP 56 OR 40 GLOBAL 37 QUOTE 34 CL:PROCLAIM 31 PROGN) ( 104 ((QUOTE CL::VARIABLE))) |expand-DEFGLOBALVAR| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 REMOVE-COMMENTS) (86 QUOTE 66 QUOTE 55 QUOTE 52 \\DEFINE-TYPE-SAVE-DEFN 45 CL:UNLESS 38 CL:EVAL-WHEN 25 |expand-DEFGLOBALVARA0001| 22 SI::MACRO-FUNCALL 19 WITHOUT-FILEPKG 16 PROGN) ( 63 (QUOTE VARIABLES) 49 (NULL FILEPKGFLG) 42 (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFGLOBALVAR) (QUOTE |expand-DEFGLOBALVAR|)) (LET* ((A1509 XCL::*DEFINITION-PROTOTYPES*) (A1511 (QUOTE (QUOTE VARIABLES))) (A1510 (CL:GETF A1509 A1511)) (A1514 (QUOTE DEFGLOBALVAR)) (A1513 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME ) (LIST (QUOTE DEFGLOBALVAR) CL::NAME)))))) (COND ((NULL A1510) (LET* ((A1509 XCL::*DEFINITION-PROTOTYPES*) (A1511 (QUOTE (QUOTE VARIABLES))) (A1510 (LIST A1514 A1513))) (COND (( NULL A1509) (LET* ((A1509 (LIST A1511 A1510))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A1509)) A1510) (T (LISTPUT A1509 A1511 A1510)))) A1513) (T (LISTPUT A1510 A1514 A1513)))) (LET* ((A1520 (QUOTE DEFGLOBALPARAMETER)) (A1521 (QUOTE DEFINER-FOR)) (A1523 (QUOTE VARIABLES))) ( PUTPROP A1520 A1521 A1523)) (LET* ((A1524 (QUOTE VARIABLES)) (A1525 (QUOTE DEFINED-BY)) (A1527 (CL:ADJOIN (QUOTE DEFGLOBALPARAMETER) (GET A1524 A1525)))) (PUTPROP A1524 A1525 A1527)) |expand-DEFGLOBALPARAMETERA0001| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) T@AHHZJdggggIhhhgIKhLgggIhoLhhNIL (61 QUOTE 58 CL:DOCUMENTATION 55 CL:SETF 43 SETQ 30 GLOBAL 27 QUOTE 24 CL:PROCLAIM 21 PROGN) ( 69 ((QUOTE CL::VARIABLE))) |expand-DEFGLOBALPARAMETER| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) b@1AH ZggggJIhhgogoggKhogHhhhhgKhh(9 REMOVE-COMMENTS) (86 QUOTE 66 QUOTE 55 QUOTE 52 \\DEFINE-TYPE-SAVE-DEFN 45 CL:UNLESS 38 CL:EVAL-WHEN 25 |expand-DEFGLOBALPARAMETERA0001| 22 SI::MACRO-FUNCALL 19 WITHOUT-FILEPKG 16 PROGN) ( 63 (QUOTE VARIABLES) 49 (NULL FILEPKGFLG) 42 (CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFGLOBALPARAMETER) (QUOTE |expand-DEFGLOBALPARAMETER|)) (LET* ((A1529 XCL::*DEFINITION-PROTOTYPES*) (A1531 (QUOTE (QUOTE VARIABLES))) (A1530 (CL:GETF A1529 A1531)) (A1534 (QUOTE DEFGLOBALPARAMETER)) (A1533 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST* (QUOTE DEFGLOBALPARAMETER) CL::NAME (QUOTE ("Value" "Documentation string")))))))) ( COND ((NULL A1530) (LET* ((A1529 XCL::*DEFINITION-PROTOTYPES*) (A1531 (QUOTE (QUOTE VARIABLES))) ( A1530 (LIST A1534 A1533))) (COND ((NULL A1529) (LET* ((A1529 (LIST A1531 A1530))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A1529)) A1530) (T (LISTPUT A1529 A1531 A1530)))) A1533) (T (LISTPUT A1530 A1534 A1533)))) (PUTPROPS MACRO-FN PROPTYPE FUNCTIONS) (PUTPROPS UNDEFINERS PROPTYPE IGNORE) (PUTPROPS DEFINER-FOR PROPTYPE IGNORE) (PUTPROPS DEFINED-BY PROPTYPE IGNORE) (PUTPROPS CMLDEFFER FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLDEFFER COPYRIGHT ("Xerox Corporation" 1986 1900)) NIL