(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "30-Oct-86 02:57:18" ("compiled on " {ERIS}SOURCES>CMLDEFFER.\;32) "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 02:56:07" {ERIS}SOURCES>CMLDEFFER.\;32 27651 |changes| |to:| ( FUNCTIONS \\DEFINE-TYPE-SAVE-DEFN) |previous| |date:| "30-Oct-86 01:07:47" {ERIS}SOURCES>CMLDEFFER.\;31) (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* ((A0271 (QUOTE *REMOVE-INTERLISP-COMMENTS*)) (A0272 (QUOTE CL::VARIABLE)) (A0273 "Either NIL (don't) T (always do) or :WARN (don't and warn)")) (SET-DOCUMENTATION A0271 A0272 A0273)) \\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) F 8 DFNFLG F 9 *TERMINAL-IO*) {A` qH-oA A`gggl2gl2 KJI @H BL 5LWiWoA@ @_HBONM @ALgg h(118 MARKASCHANGED 103 CL::PUTHASH 87 FORMAT 66 CL:EQUAL 60 CL:GETHASH 54 CL::PUTHASH 47 CL:MAKE-HASH-TABLE 20 CL:WARN 6 CL:GETHASH) (115 DEFINED 111 CHANGED 41 :REHASH-SIZE 36 :SIZE 33 CL:EQUAL 30 :TEST 26 *DEFINITION-HASH-TABLE* 3 *DEFINITION-HASH-TABLE*) ( 82 "~&New ~A definition for ~S" 16 "Couldn't find a hash-table for ~S definitions.~%One will be created.") (LET* ((A0274 (QUOTE DEFINE-TYPES)) (A0275 (QUOTE DEFINE-TYPES)) (A0276 (QUOTE "Definition type"))) ( SET-DOCUMENTATION A0274 A0275 A0276)) (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*)) (LET* ((A0277 (QUOTE DEFINE-TYPES)) (A0278 *DEFINITION-HASH-TABLE*) (A0280 (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50))) (CL::PUTHASH A0277 A0278 A0280)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE DEFINE-TYPES) FILEPKGTYPES)) (LET* ((A0281 (QUOTE DEFINE-TYPES)) (A0282 (QUOTE GETDEF)) (A0284 (QUOTE \\DEFINE-TYPE-GETDEF))) ( PUTPROP A0281 A0282 A0284)) (LET* ((A0285 (QUOTE DEFINE-TYPES)) (A0286 (QUOTE DELDEF)) (A0288 (QUOTE \\DEFINE-TYPE-DELDEF))) ( PUTPROP A0285 A0286 A0288)) (LET* ((A0289 (QUOTE DEFINE-TYPES)) (A0290 (QUOTE FILEPKGCONTENTS)) (A0292 (QUOTE NILL))) (PUTPROP A0289 A0290 A0292)) (LET* ((A0293 (QUOTE FUNCTIONS)) (A0294 (QUOTE DEFINE-TYPES)) (A0295 (QUOTE "functions or macros"))) ( SET-DOCUMENTATION A0293 A0294 A0295)) (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*)) (LET* ((A0296 (QUOTE FUNCTIONS)) ( A0297 *DEFINITION-HASH-TABLE*) (A0299 (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50))) (CL::PUTHASH A0296 A0297 A0299)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE FUNCTIONS) FILEPKGTYPES)) (LET* ((A0300 (QUOTE FUNCTIONS)) (A0301 (QUOTE GETDEF)) (A0303 (QUOTE \\DEFINE-TYPE-GETDEF))) (PUTPROP A0300 A0301 A0303)) (LET* ((A0304 (QUOTE FUNCTIONS)) (A0305 (QUOTE DELDEF)) (A0307 (QUOTE \\DEFINE-TYPE-DELDEF))) (PUTPROP A0304 A0305 A0307)) (LET* ((A0308 (QUOTE FUNCTIONS)) (A0309 (QUOTE FILEPKGCONTENTS)) (A0311 (QUOTE NILL))) (PUTPROP A0308 A0309 A0311)) (LET* ((A0312 (QUOTE FUNCTIONS)) (A0313 (QUOTE UNDEFINERS)) (A0315 (CL:ADJOIN (QUOTE CL:FMAKUNBOUND) ( GET A0312 A0313)))) (PUTPROP A0312 A0313 A0315)) (LET* ((A0316 (QUOTE VARIABLES)) (A0317 (QUOTE DEFINE-TYPES)) (A0318 (QUOTE "Common Lisp variables"))) (SET-DOCUMENTATION A0316 A0317 A0318)) (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*)) (LET* ((A0319 (QUOTE VARIABLES)) ( A0320 *DEFINITION-HASH-TABLE*) (A0322 (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50))) (CL::PUTHASH A0319 A0320 A0322)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE VARIABLES) FILEPKGTYPES)) (LET* ((A0323 (QUOTE VARIABLES)) (A0324 (QUOTE GETDEF)) (A0326 (QUOTE \\DEFINE-TYPE-GETDEF))) (PUTPROP A0323 A0324 A0326)) (LET* ((A0327 (QUOTE VARIABLES)) (A0328 (QUOTE DELDEF)) (A0330 (QUOTE \\DEFINE-TYPE-DELDEF))) (PUTPROP A0327 A0328 A0330)) (LET* ((A0331 (QUOTE VARIABLES)) (A0332 (QUOTE FILEPKGCONTENTS)) (A0334 (QUOTE NILL))) (PUTPROP A0331 A0332 A0334)) (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* ((A0345 (QUOTE DEFDEFINER)) (A0346 (QUOTE DEFINER-FOR)) (A0348 (QUOTE FUNCTIONS))) (PUTPROP A0345 A0346 A0348)) (LET* ((A0349 (QUOTE FUNCTIONS)) (A0350 (QUOTE DEFINED-BY)) (A0352 (CL:ADJOIN (QUOTE DEFDEFINER) (GET A0349 A0350)))) (PUTPROP A0349 A0350 A0352)) |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* ((A0354 (QUOTE DEFDEFINER)) (A0355 (QUOTE UNDEFINERS)) (A0357 (CL:ADJOIN (QUOTE CL::\\DELETE-DEFINER) (GET A0354 A0355)))) (PUTPROP A0354 A0355 A0357)) (LET* ((A0358 XCL::*DEFINITION-PROTOTYPES*) (A0360 (QUOTE (QUOTE FUNCTIONS))) (A0359 (CL:GETF A0358 A0360)) (A0363 (QUOTE DEFDEFINER)) (A0362 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME ) (LIST* (QUOTE DEFDEFINER) CL::NAME (QUOTE ("Type" ("Arg-list") "Body")))))))) (COND ((NULL A0359) ( LET* ((A0358 XCL::*DEFINITION-PROTOTYPES*) (A0360 (QUOTE (QUOTE FUNCTIONS))) (A0359 (LIST A0363 A0362) )) (COND ((NULL A0358) (LET* ((A0358 (LIST A0360 A0359))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A0358) ) A0359) (T (LISTPUT A0358 A0360 A0359)))) A0362) (T (LISTPUT A0359 A0363 A0362)))) \\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* ((A0373 (QUOTE DEF-DEFINE-TYPE)) (A0374 (QUOTE DEFINER-FOR)) (A0376 (QUOTE DEFINE-TYPES))) ( PUTPROP A0373 A0374 A0376)) (LET* ((A0377 (QUOTE DEFINE-TYPES)) (A0378 (QUOTE DEFINED-BY)) (A0380 (CL:ADJOIN (QUOTE DEF-DEFINE-TYPE) (GET A0377 A0378)))) (PUTPROP A0377 A0378 A0380)) |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* ((A0382 XCL::*DEFINITION-PROTOTYPES*) (A0384 (QUOTE (QUOTE DEFINE-TYPES))) (A0383 (CL:GETF A0382 A0384)) (A0387 (QUOTE DEF-DEFINE-TYPE)) (A0386 (CL:FUNCTION (LAMBDA (NAME) (AND (CL:SYMBOLP NAME) ( LIST* (QUOTE DEF-DEFINE-TYPE) NAME (QUOTE ("Description string")))))))) (COND ((NULL A0383) (LET* (( A0382 XCL::*DEFINITION-PROTOTYPES*) (A0384 (QUOTE (QUOTE DEFINE-TYPES))) (A0383 (LIST A0387 A0386))) ( COND ((NULL A0382) (LET* ((A0382 (LIST A0384 A0383))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A0382)) A0383) (T (LISTPUT A0382 A0384 A0383)))) A0386) (T (LISTPUT A0383 A0387 A0386)))) (LET* ((A0389 (QUOTE DEF-DEFINE-TYPE)) (A0390 (QUOTE CL:FUNCTION)) (A0391 "Define NAME as a new definition type")) (SET-DOCUMENTATION A0389 A0390 A0391)) |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* ((A0398 (QUOTE CL:DEFUN)) (A0399 (QUOTE DEFINER-FOR)) (A0401 (QUOTE FUNCTIONS))) (PUTPROP A0398 A0399 A0401)) (LET* ((A0402 (QUOTE FUNCTIONS)) (A0403 (QUOTE DEFINED-BY)) (A0405 (CL:ADJOIN (QUOTE CL:DEFUN) (GET A0402 A0403)))) (PUTPROP A0402 A0403 A0405)) 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* ((A0407 XCL::*DEFINITION-PROTOTYPES*) (A0409 (QUOTE (QUOTE FUNCTIONS))) (A0408 (CL:GETF A0407 A0409)) (A0412 (QUOTE CL:DEFUN)) (A0411 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST* (QUOTE CL:DEFUN) CL::NAME (QUOTE (("Arg List") "Body")))))))) (COND ((NULL A0408) (LET* ((A0407 XCL::*DEFINITION-PROTOTYPES*) (A0409 (QUOTE (QUOTE FUNCTIONS))) (A0408 (LIST A0412 A0411))) (COND (( NULL A0407) (LET* ((A0407 (LIST A0409 A0408))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A0407)) A0408) (T (LISTPUT A0407 A0409 A0408)))) A0411) (T (LISTPUT A0408 A0412 A0411)))) (LET* ((A0420 (QUOTE DEFINLINE)) (A0421 (QUOTE DEFINER-FOR)) (A0423 (QUOTE FUNCTIONS))) (PUTPROP A0420 A0421 A0423)) (LET* ((A0424 (QUOTE FUNCTIONS)) (A0425 (QUOTE DEFINED-BY)) (A0427 (CL:ADJOIN (QUOTE DEFINLINE) (GET A0424 A0425)))) (PUTPROP A0424 A0425 A0427)) |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* ((A0429 XCL::*DEFINITION-PROTOTYPES*) (A0431 (QUOTE (QUOTE FUNCTIONS))) (A0430 (CL:GETF A0429 A0431)) (A0434 (QUOTE DEFINLINE)) (A0433 (CL:FUNCTION (LAMBDA (NAME) (AND (CL:SYMBOLP NAME) (LIST* ( QUOTE DEFINLINE) NAME (QUOTE (("Arg List") "Body")))))))) (COND ((NULL A0430) (LET* ((A0429 XCL::*DEFINITION-PROTOTYPES*) (A0431 (QUOTE (QUOTE FUNCTIONS))) (A0430 (LIST A0434 A0433))) (COND (( NULL A0429) (LET* ((A0429 (LIST A0431 A0430))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A0429)) A0430) (T (LISTPUT A0429 A0431 A0430)))) A0433) (T (LISTPUT A0430 A0434 A0433)))) (LET* ((A0440 (QUOTE DEFMACRO)) (A0441 (QUOTE DEFINER-FOR)) (A0443 (QUOTE FUNCTIONS))) (PUTPROP A0440 A0441 A0443)) (LET* ((A0444 (QUOTE FUNCTIONS)) (A0445 (QUOTE DEFINED-BY)) (A0447 (CL:ADJOIN (QUOTE DEFMACRO) (GET A0444 A0445)))) (PUTPROP A0444 A0445 A0447)) 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* ((A0449 XCL::*DEFINITION-PROTOTYPES*) (A0451 (QUOTE (QUOTE FUNCTIONS))) (A0450 (CL:GETF A0449 A0451)) (A0454 (QUOTE DEFMACRO)) (A0453 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST* (QUOTE DEFMACRO) CL::NAME (QUOTE ((CL::ARG-LIST) "Body")))))))) (COND ((NULL A0450) (LET* (( A0449 XCL::*DEFINITION-PROTOTYPES*) (A0451 (QUOTE (QUOTE FUNCTIONS))) (A0450 (LIST A0454 A0453))) ( COND ((NULL A0449) (LET* ((A0449 (LIST A0451 A0450))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A0449)) A0450) (T (LISTPUT A0449 A0451 A0450)))) A0453) (T (LISTPUT A0450 A0454 A0453)))) (LET* ((A0459 (QUOTE CL:DEFVAR)) (A0460 (QUOTE DEFINER-FOR)) (A0462 (QUOTE VARIABLES))) (PUTPROP A0459 A0460 A0462)) (LET* ((A0463 (QUOTE VARIABLES)) (A0464 (QUOTE DEFINED-BY)) (A0466 (CL:ADJOIN (QUOTE CL:DEFVAR) (GET A0463 A0464)))) (PUTPROP A0463 A0464 A0466)) 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* ((A0469 XCL::*DEFINITION-PROTOTYPES*) (A0471 (QUOTE (QUOTE VARIABLES))) (A0470 (CL:GETF A0469 A0471)) (A0474 (QUOTE CL:DEFVAR)) (A0473 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST (QUOTE CL:DEFVAR) CL::NAME)))))) (COND ((NULL A0470) (LET* ((A0469 XCL::*DEFINITION-PROTOTYPES* ) (A0471 (QUOTE (QUOTE VARIABLES))) (A0470 (LIST A0474 A0473))) (COND ((NULL A0469) (LET* ((A0469 ( LIST A0471 A0470))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A0469)) A0470) (T (LISTPUT A0469 A0471 A0470 )))) A0473) (T (LISTPUT A0470 A0474 A0473)))) (LET* ((A0480 (QUOTE CL:DEFPARAMETER)) (A0481 (QUOTE DEFINER-FOR)) (A0483 (QUOTE VARIABLES))) (PUTPROP A0480 A0481 A0483)) (LET* ((A0484 (QUOTE VARIABLES)) (A0485 (QUOTE DEFINED-BY)) (A0487 (CL:ADJOIN (QUOTE CL:DEFPARAMETER) (GET A0484 A0485)))) (PUTPROP A0484 A0485 A0487)) 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* ((A0489 XCL::*DEFINITION-PROTOTYPES*) (A0491 (QUOTE (QUOTE VARIABLES))) (A0490 (CL:GETF A0489 A0491)) (A0494 (QUOTE CL:DEFPARAMETER)) (A0493 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST* (QUOTE CL:DEFPARAMETER) CL::NAME (QUOTE ("Value" "Documentation string")))))))) (COND ((NULL A0490) (LET* ((A0489 XCL::*DEFINITION-PROTOTYPES*) (A0491 (QUOTE (QUOTE VARIABLES))) (A0490 ( LIST A0494 A0493))) (COND ((NULL A0489) (LET* ((A0489 (LIST A0491 A0490))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A0489)) A0490) (T (LISTPUT A0489 A0491 A0490)))) A0493) (T (LISTPUT A0490 A0494 A0493)))) (LET* ((A0500 (QUOTE CL:DEFCONSTANT)) (A0501 (QUOTE DEFINER-FOR)) (A0503 (QUOTE VARIABLES))) (PUTPROP A0500 A0501 A0503)) (LET* ((A0504 (QUOTE VARIABLES)) (A0505 (QUOTE DEFINED-BY)) (A0507 (CL:ADJOIN (QUOTE CL:DEFCONSTANT) ( GET A0504 A0505)))) (PUTPROP A0504 A0505 A0507)) 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* ((A0509 XCL::*DEFINITION-PROTOTYPES*) (A0511 (QUOTE (QUOTE VARIABLES))) (A0510 (CL:GETF A0509 A0511)) (A0514 (QUOTE CL:DEFCONSTANT)) (A0513 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST* (QUOTE CL:DEFCONSTANT) CL::NAME (QUOTE ("Value" "Documentation string")))))))) (COND ((NULL A0510) (LET* ((A0509 XCL::*DEFINITION-PROTOTYPES*) (A0511 (QUOTE (QUOTE VARIABLES))) (A0510 ( LIST A0514 A0513))) (COND ((NULL A0509) (LET* ((A0509 (LIST A0511 A0510))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A0509)) A0510) (T (LISTPUT A0509 A0511 A0510)))) A0513) (T (LISTPUT A0510 A0514 A0513)))) (LET* ((A0519 (QUOTE DEFGLOBALVAR)) (A0520 (QUOTE DEFINER-FOR)) (A0522 (QUOTE VARIABLES))) (PUTPROP A0519 A0520 A0522)) (LET* ((A0523 (QUOTE VARIABLES)) (A0524 (QUOTE DEFINED-BY)) (A0526 (CL:ADJOIN (QUOTE DEFGLOBALVAR) ( GET A0523 A0524)))) (PUTPROP A0523 A0524 A0526)) |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* ((A0528 XCL::*DEFINITION-PROTOTYPES*) (A0530 (QUOTE (QUOTE VARIABLES))) (A0529 (CL:GETF A0528 A0530)) (A0533 (QUOTE DEFGLOBALVAR)) (A0532 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME ) (LIST (QUOTE DEFGLOBALVAR) CL::NAME)))))) (COND ((NULL A0529) (LET* ((A0528 XCL::*DEFINITION-PROTOTYPES*) (A0530 (QUOTE (QUOTE VARIABLES))) (A0529 (LIST A0533 A0532))) (COND (( NULL A0528) (LET* ((A0528 (LIST A0530 A0529))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A0528)) A0529) (T (LISTPUT A0528 A0530 A0529)))) A0532) (T (LISTPUT A0529 A0533 A0532)))) (LET* ((A0539 (QUOTE DEFGLOBALPARAMETER)) (A0540 (QUOTE DEFINER-FOR)) (A0542 (QUOTE VARIABLES))) ( PUTPROP A0539 A0540 A0542)) (LET* ((A0543 (QUOTE VARIABLES)) (A0544 (QUOTE DEFINED-BY)) (A0546 (CL:ADJOIN (QUOTE DEFGLOBALPARAMETER) (GET A0543 A0544)))) (PUTPROP A0543 A0544 A0546)) |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* ((A0548 XCL::*DEFINITION-PROTOTYPES*) (A0550 (QUOTE (QUOTE VARIABLES))) (A0549 (CL:GETF A0548 A0550)) (A0553 (QUOTE DEFGLOBALPARAMETER)) (A0552 (CL:FUNCTION (CL:LAMBDA (CL::NAME) (AND (CL:SYMBOLP CL::NAME) (LIST* (QUOTE DEFGLOBALPARAMETER) CL::NAME (QUOTE ("Value" "Documentation string")))))))) ( COND ((NULL A0549) (LET* ((A0548 XCL::*DEFINITION-PROTOTYPES*) (A0550 (QUOTE (QUOTE VARIABLES))) ( A0549 (LIST A0553 A0552))) (COND ((NULL A0548) (LET* ((A0548 (LIST A0550 A0549))) (CL:SETQ XCL::*DEFINITION-PROTOTYPES* A0548)) A0549) (T (LISTPUT A0548 A0550 A0549)))) A0552) (T (LISTPUT A0549 A0553 A0552)))) (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