(DEFINE-FILE-INFO PACKAGE "LISP" READTABLE "XCL" BASE 10) (IL:FILECREATED "24-Oct-2021 10:20:32" ("compiled on " IL:|{DSK}larry>medley>sources>LLPACKAGE.;4| ) "23-Oct-2021 14:55:09" "COMPILE-FILEd" IL:|in| "FULL 22-Oct-2021 ..." IL:|dated| "22-Oct-2021 22:15:17") (IL:FILECREATED "24-Oct-2021 10:20:31" IL:|{DSK}larry>medley>sources>LLPACKAGE.;4| 82444 IL:|changes| IL:|to:| (IL:FUNCTIONS IL:FIND-EXTERNAL-SYMBOL IL:FIND-SYMBOL*) IL:|previous| IL:|date:| "22-Sep-92 11:47:31" IL:|{DSK}larry>medley>sources>LLPACKAGE.;1|) (IL:RPAQQ IL:LLPACKAGECOMS ((IL:* IL:|;;| "The Xerox Lisp package system, based on CMU's Spice Lisp") (IL:* IL:|;;| "Internal macros and definitions") (IL:DECLARE\: IL:EVAL@COMPILE IL:DONTCOPY (IL:FUNCTIONS IL:PACKAGE-LISTIFY IL:\\SIMPLE-STRINGIFY IL:SYMBOL-LISTIFY IL:COPY-STRING IL:\\SYMBOL-EQUALBASE)) ( IL:FUNCTIONS IL:\\FATCHARSEENP IL:\\PACKAGIFY IL:\\STRING-EQUALBASE IL:NUMERIC-UPCASE IL:\\UPCASEBASE IL:APROPOS-SEARCH) (IL:STRUCTURES PACKAGE-HASHTABLE PACKAGE) (IL:FUNCTIONS PACKAGE-NAME PACKAGE-NICKNAMES PACKAGE-SHADOWING-SYMBOLS PACKAGE-USE-LIST PACKAGE-USED-BY-LIST) (IL:FUNCTIONS IL:MAKE-PACKAGE-HASHTABLE PRINT-PACKAGE PRINT-PACKAGE-HASHTABLE) (IL:VARIABLES *PACKAGE* XCL::*UNSAFE-TO-DELETE-PACKAGE-NAMES* IL:*LISP-PACKAGE* IL:*KEYWORD-PACKAGE* IL:*INTERLISP-PACKAGE* IL:HASHTABLE-SIZE-LIMIT IL:PACKAGE-REHASH-THRESHOLD) (IL:VARIABLES IL:PRIME-HASHTABLE-SIZES) (IL:* IL:|;;| "The package system's version of symbol creation") (IL:FUNCTIONS MAKE-SYMBOL) (IL:* IL:|;;| "Packages are currently implemented using a free byte in the litatom pnamecell. The byte is used as an index into a table." ) (IL:VARIABLES IL:*PACKAGE-FROM-NAME* IL:*PACKAGE-FROM-INDEX* XCL:*TOTAL-PACKAGES-LIMIT* IL:*UNINTERNED-PACKAGE-INDEX*) (IL:FUNCTIONS IL:\\PKG-FIND-FREE-PACKAGE-INDEX) (IL:* IL:|;;| "Symbol package cell handlers.") (IL:FUNCTIONS IL:SETF-SYMBOL-PACKAGE SYMBOL-PACKAGE) (IL:* IL:|;;| "Symbol hashing") (IL:FUNCTIONS IL:SYMBOL-HASH IL:REHASH-FACTOR IL:SYMBOL-HASH-REPROBE IL:ENTRY-HASH) (IL:* IL:|;;| "Constructing packages") (IL:FUNCTIONS IL:COUNT-PACKAGE-HASHTABLE IL:INTERNAL-SYMBOL-COUNT IL:EXTERNAL-SYMBOL-COUNT) (IL:FUNCTIONS IL:ENTER-NEW-NICKNAMES IL:MAKE-PRIME-HASHTABLE-SIZE) ( IL:FUNCTIONS MAKE-PACKAGE) (IL:FNS XCL:DEFPACKAGE) (IL:* IL:|;;| "Package manipulations") (IL:FUNCTIONS FIND-PACKAGE USE-PACKAGE IN-PACKAGE XCL:PKG-GOTO RENAME-PACKAGE XCL:DELETE-PACKAGE EXPORT UNEXPORT IMPORT SHADOWING-IMPORT SHADOW UNUSE-PACKAGE) (IL:* IL:|;;| "Knowing about the package name space") ( IL:FUNCTIONS LIST-ALL-PACKAGES) (IL:* IL:|;;| "Putting symbols into packages") (IL:FUNCTIONS IL:ADD-SYMBOL IL:WITH-SYMBOL) (IL:FUNCTIONS IL:INTERN* IL:FIND-SYMBOL*) (IL:FUNCTIONS INTERN FIND-SYMBOL) (IL:* IL:|;;| "Removing symbols from packages") (IL:FUNCTIONS IL:NUKE-SYMBOL) (IL:FUNCTIONS UNINTERN IL:MOBY-UNINTERN) (IL:* IL:|;;| "Iterations over package symbols") (IL:FUNCTIONS IL:\\INDEXATOMPNAME) (IL:* IL:\; "Defined in EXPORTS.ALL and used by the DO-SYMBOLS macro") ( IL:DECLARE\: IL:EVAL@COMPILE (IL:* IL:\; "These are used in expanding the DO-SYMBOLS macro, which is used in this file.") (IL:FUNCTIONS IL:MAKE-DO-SYMBOLS-VARS IL:MAKE-DO-SYMBOLS-CODE)) (IL:FUNCTIONS DO-EXTERNAL-SYMBOLS XCL:DO-LOCAL-SYMBOLS XCL:DO-INTERNAL-SYMBOLS DO-SYMBOLS DO-ALL-SYMBOLS) (IL:* IL:|;;| "Finding symbols in a package or packages") (IL:FUNCTIONS FIND-ALL-SYMBOLS) (IL:FUNCTIONS IL:BRIEFLY-DESCRIBE-SYMBOL APROPOS APROPOS-LIST) (IL:* IL:|;;| "Reader and printer's interface to packages (plus *PACKAGE-FROM-INDEX* above)") (IL:FUNCTIONS IL:FIND-EXTERNAL-SYMBOL) (IL:FUNCTIONS IL:FIND-EXACT-SYMBOL IL:PACKAGE-NAME-AS-SYMBOL IL:\\FIND.PACKAGE.INTERNAL) (IL:* IL:|;;| "Proper compiler, readtable and package environment") (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:LLPACKAGE) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA XCL:DEFPACKAGE) (IL:NLAML) (IL:LAMA))))) IL:|expand-\\FATCHARSEENP| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @aH¹HZ»J\½L¾gNgggggKgggKMhhgggIoohhhhNIL (92 IL:\\GETBASEFAT 87 IL:IGREATERP 82 IL:SUCHTHAT 68 IL:IPLUS 63 IL:SUB1 58 IL:TO 52 IL:FROM 47 IL:I 42 IL:FOR 37 NULL 32 NOT 26 AND) ( 105 (IL:\\MAXTHINCHAR) 98 (IL:I)) (IL:SETF-MACRO-FUNCTION (QUOTE IL:\\FATCHARSEENP) (QUOTE IL:|expand-\\FATCHARSEENP|)) IL:|expand-\\PACKAGIFY| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhhoNIL (15 IL:|obj| 10 LET) ( 26 ((OR (COND ((PACKAGEP IL:|obj|) IL:|obj|) ((STRINGP IL:|obj|) (FIND-PACKAGE IL:|obj|)) ((SYMBOLP IL:|obj|) (FIND-PACKAGE (SYMBOL-NAME IL:|obj|))) (T NIL)) (IL:ERROR "Not an existing package, string or symbol " IL:|obj|)))) (IL:SETF-MACRO-FUNCTION (QUOTE IL:\\PACKAGIFY) (QUOTE IL:|expand-\\PACKAGIFY|)) (IL:SET-DOCUMENTATION (QUOTE IL:\\PACKAGIFY) (QUOTE FUNCTION) "If OBJ isn't already a package, turn the symbol or string into the package of that name.") IL:|expand-\\STRING-EQUALBASE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ï @H¹HZ»J\½L^_¿N_¿ggOgoIhhgoggoIhhggoIhhggoIhhhggOhogggogOKgMohhhohhNIL (200 IL:IPLUS 192 IL:\\GETBASECHAR 182 EQL 177 NOT 172 IF 155 IL:I 150 EQL 127 IL:|ffetch| 122 IL:STRING-FATP 104 IL:|ffetch| 99 IL:STRING-OFFSET 81 IL:|ffetch| 76 IL:STRING-BASE 66 DO 47 IL:|ffetch| 40 EQL 35 AND) ( 225 ((RETURN NIL)) 206 (IL:I) 187 (IL:\\GETBASECHAR IL:STRING-FATP IL:STRING-BASE (IL:IPLUS IL:STRING-OFFSET IL:I)) 166 (T) 132 (IL:STRINGP IL:FATSTRINGP) 109 (IL:STRINGP IL:OFFST) 86 (IL:STRINGP IL:BASE) 71 (IL:I 0 (IL:ADD1 IL:I)) 52 (IL:STRINGP IL:LENGTH)) (IL:SETF-MACRO-FUNCTION (QUOTE IL:\\STRING-EQUALBASE) (QUOTE IL:|expand-\\STRING-EQUALBASE|)) (IL:SET-DOCUMENTATION (QUOTE IL:\\STRING-EQUALBASE) (QUOTE FUNCTION) "Compare a string to another string, with the second given in base offset length form.") IL:|expand-NUMERIC-UPCASE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhhoNIL (15 IL:N 10 LET) ( 26 ((IF (AND (IL:IGEQ IL:N (IL:CHARCODE "a")) (IL:ILEQ IL:N (IL:CHARCODE "z"))) (IL:IDIFFERENCE IL:N 32) IL:N))) (IL:SETF-MACRO-FUNCTION (QUOTE IL:NUMERIC-UPCASE) (QUOTE IL:|expand-NUMERIC-UPCASE|)) IL:\\UPCASEBASE :D8 (IL:L (3 IL:FATP 2 IL:LENGTH 1 IL:OFFSET 0 IL:BASE)) DABØAIHó‘hC@IC•@IÐÈ‚@IÂºlaJñ©Jdlzñ¤l Ù€JK–LMÐNÍƒLMNÇIkÔY°ÇNIL NIL () IL:APROPOS-SEARCH :D8 (IL:L (4 IL:FATP 3 IL:LENGTH 2 IL:OFFSET 1 IL:BASE 0 SYMBOL)) vj@ÁÉ@ÁÊ jðhð@ÁÉÊCÙHKñ‘hBHCBØMO:’i°0D•AMÐÈ‚AMÂJ—INkØÐÈ„INkØÂ¼laLñ©Ldlzñ¤l Ù€L:¤h›iMkØNkØ¾]°¿HkØX°«NIL NIL () (IL:SET-DOCUMENTATION (QUOTE IL:APROPOS-SEARCH) (QUOTE FUNCTION) "The symbol to substring comparison macro for APROPOS and APROPOS-LIST. The string is assumed to already be uppercase." ) (SET-PARSED-STRUCTURE (QUOTE PACKAGE-HASHTABLE) T (QUOTE (PS PACKAGE-HASHTABLE %MAKE-PACKAGE-HASHTABLE (TABLE HASH SIZE FREE DELETED) DATATYPE NIL NIL "PACKAGE-HASHTABLE-" (%MAKE-PACKAGE-HASHTABLE) PACKAGE-HASHTABLE-P PRINT-PACKAGE-HASHTABLE NIL NIL 0 NIL ((TABLE NIL T NIL (PACKAGE-HASHTABLE 0 IL:POINTER) PACKAGE-HASHTABLE-TABLE) (HASH NIL T NIL (PACKAGE-HASHTABLE 2 IL:POINTER) PACKAGE-HASHTABLE-HASH) (SIZE NIL T NIL (PACKAGE-HASHTABLE 4 IL:POINTER) PACKAGE-HASHTABLE-SIZE) (FREE NIL T NIL (PACKAGE-HASHTABLE 6 IL:POINTER) PACKAGE-HASHTABLE-FREE) (DELETED NIL T NIL ( PACKAGE-HASHTABLE 8 IL:POINTER) PACKAGE-HASHTABLE-DELETED)) NIL "Packages are implemented using a special kind of hashtable (this one). It is an open hashtable with a parallel 8-bit I-vector of hash-codes. The primary purpose of the hash for each entry is to reduce paging by allowing collisions and misses to be detected without paging in the symbol and pname for an entry. If the hash for an entry doesn't match that for the symbol that we are looking for, then we can go on without touching the symbol, pname, or even hastable vector. It turns out that, contrary to my expectations, paging is a very important consideration the design of the package representation. Using a similar scheme without the entry hash, the fasloader was spending more than half its time paging in INTERN. The hash code also indicates the status of an entry. If it zero, the the entry is unused. If it is one, then it is deleted. Double-hashing is used for collision resolution." (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE PACKAGE-HASHTABLE) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((PACKAGE-HASHTABLE 0 IL:POINTER) (PACKAGE-HASHTABLE 2 IL:POINTER) ( PACKAGE-HASHTABLE 4 IL:POINTER) (PACKAGE-HASHTABLE 6 IL:POINTER) (PACKAGE-HASHTABLE 8 IL:POINTER))) 10 (QUOTE STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE PACKAGE-HASHTABLE) (QUOTE :TYPE-EXPANDER) (QUOTE TYPE-EXPAND-STRUCTURE)) PACKAGE-HASHTABLE-P :D8 (IL:L (0 OBJECT)) @ÃNIL (5 PACKAGE-HASHTABLE) () (ESTABLISH-PREDICATE (QUOTE PACKAGE-HASHTABLE)) PACKAGE-HASHTABLE-TABLE :D8 (IL:L (0 PACKAGE-HASHTABLE)) @ÉNIL (5 PACKAGE-HASHTABLE) () PACKAGE-HASHTABLE-HASH :D8 (IL:L (0 PACKAGE-HASHTABLE)) @ÉNIL (5 PACKAGE-HASHTABLE) () PACKAGE-HASHTABLE-SIZE :D8 (IL:L (0 PACKAGE-HASHTABLE)) @ÉNIL (5 PACKAGE-HASHTABLE) () PACKAGE-HASHTABLE-FREE :D8 (IL:L (0 PACKAGE-HASHTABLE)) @ÉNIL (5 PACKAGE-HASHTABLE) () PACKAGE-HASHTABLE-DELETED :D8 (IL:L (0 PACKAGE-HASHTABLE)) @ÉNIL (5 PACKAGE-HASHTABLE) () (ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE PACKAGE-HASHTABLE)) %MAKE-PACKAGE-HASHTABLE :D8 (IL:L (0 IL:|-args-|)) AeiñPHk»ºKJó¢±®hY¼i½Hk_¿¾OdNó¢±±¿h]_¿i_¿Hk_¿_¿OdOó¢±¯¿h__¿i_¿Hk_¿_¿OdOó¢±¬¿h__ ¿i_"¿Hk_&¿_$¿O&dO$ó¢±©¿h_"_(¿`_*¿I•O*L¿M–O*O¿O–O*O¿O–O*O ¿O"•O*O(O*Kdagð¦lÔ[±ÿAkØa±ÿCagð—OkØa±ÿHOlÔ_±ÿ4agð—OkØa±ÿKOlÔ_±ÿ5agð—OkØa±ÿNOlÔ_±ÿ8agð—O&kØa±ÿQO&lÔ_&±ÿ;NIL (299 :DELETED 273 :FREE 247 :SIZE 221 :HASH 200 :TABLE 139 |PACKAGE-HASHTABLETYPE#|) () (IL:SET-DOCUMENTATION (QUOTE PACKAGE-HASHTABLE) (QUOTE STRUCTURE) "Packages are implemented using a special kind of hashtable (this one). It is an open hashtable with a parallel 8-bit I-vector of hash-codes. The primary purpose of the hash for each entry is to reduce paging by allowing collisions and misses to be detected without paging in the symbol and pname for an entry. If the hash for an entry doesn't match that for the symbol that we are looking for, then we can go on without touching the symbol, pname, or even hastable vector. It turns out that, contrary to my expectations, paging is a very important consideration the design of the package representation. Using a similar scheme without the entry hash, the fasloader was spending more than half its time paging in INTERN. The hash code also indicates the status of an entry. If it zero, the the entry is unused. If it is one, then it is deleted. Double-hashing is used for collision resolution." ) (SET-PARSED-STRUCTURE (QUOTE PACKAGE) T (QUOTE (PS PACKAGE %MAKE-PACKAGE (INDEX TABLES NAME NAMESYMBOL NICKNAMES USE-LIST USED-BY-LIST EXTERNAL-ONLY INTERNAL-SYMBOLS EXTERNAL-SYMBOLS SHADOWING-SYMBOLS) DATATYPE NIL NIL %PACKAGE- (%MAKE-PACKAGE) PACKAGEP PRINT-PACKAGE COPY-PACKAGE NIL 0 NIL ((INDEX NIL T NIL (PACKAGE 0 IL:POINTER) %PACKAGE-INDEX) (TABLES (LIST NIL) T NIL (PACKAGE 2 IL:POINTER) %PACKAGE-TABLES) (NAME NIL T NIL (PACKAGE 4 IL:POINTER) %PACKAGE-NAME) (NAMESYMBOL NIL T NIL (PACKAGE 6 IL:POINTER) %PACKAGE-NAMESYMBOL) (NICKNAMES NIL T NIL (PACKAGE 8 IL:POINTER) %PACKAGE-NICKNAMES) ( USE-LIST NIL T NIL (PACKAGE 10 IL:POINTER) %PACKAGE-USE-LIST) (USED-BY-LIST NIL T NIL (PACKAGE 12 IL:POINTER) %PACKAGE-USED-BY-LIST) (EXTERNAL-ONLY NIL T NIL (PACKAGE 14 IL:POINTER) %PACKAGE-EXTERNAL-ONLY) (INTERNAL-SYMBOLS NIL T NIL (PACKAGE 16 IL:POINTER) %PACKAGE-INTERNAL-SYMBOLS) (EXTERNAL-SYMBOLS NIL T NIL (PACKAGE 18 IL:POINTER) %PACKAGE-EXTERNAL-SYMBOLS) (SHADOWING-SYMBOLS NIL T NIL (PACKAGE 20 IL:POINTER) %PACKAGE-SHADOWING-SYMBOLS)) NIL NIL (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER) NIL ( :ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE PACKAGE) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((PACKAGE 0 IL:POINTER) (PACKAGE 2 IL:POINTER) (PACKAGE 4 IL:POINTER) (PACKAGE 6 IL:POINTER) (PACKAGE 8 IL:POINTER ) (PACKAGE 10 IL:POINTER) (PACKAGE 12 IL:POINTER) (PACKAGE 14 IL:POINTER) (PACKAGE 16 IL:POINTER) ( PACKAGE 18 IL:POINTER) (PACKAGE 20 IL:POINTER))) 22 (QUOTE STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE PACKAGE) (QUOTE :TYPE-EXPANDER) (QUOTE TYPE-EXPAND-STRUCTURE)) PACKAGEP :D8 (IL:L (0 OBJECT)) @ÃNIL (5 PACKAGE) () (ESTABLISH-PREDICATE (QUOTE PACKAGE)) %PACKAGE-INDEX :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () %PACKAGE-TABLES :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () %PACKAGE-NAME :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () %PACKAGE-NAMESYMBOL :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () %PACKAGE-NICKNAMES :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () %PACKAGE-USE-LIST :D8 (IL:L (0 PACKAGE)) @É NIL (5 PACKAGE) () %PACKAGE-USED-BY-LIST :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () %PACKAGE-EXTERNAL-ONLY :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () %PACKAGE-INTERNAL-SYMBOLS :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () %PACKAGE-EXTERNAL-SYMBOLS :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () %PACKAGE-SHADOWING-SYMBOLS :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () (ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE PACKAGE)) %MAKE-PACKAGE :D8 (IL:L (0 IL:|-args-|)) À-eiñðÐ,Hk»ºKJó¢±‘hY¼Hk¾½NdMó¢±™¿hd_¿i_¿Hk_¿_¿OdOó¢±“¿h__¿i_¿Hk_¿_¿OdOó¢±¿h__¿i_ ¿Hk_$¿_"¿O$dO"ó¢±¿h_ _&¿i_(¿Hk_,¿_*¿O,dO*ó¢±Š¿h_(_.¿i_0¿Hk_4¿_2¿O4dO2ó¢±‡¿h_0_6¿i_8¿Hk_<¿_:¿O¿i_@¿Hk_D¿_B¿ODdOBó¢±¿h_@_F¿i_H¿Hk_L¿_J¿OLdOJó¢±~¿h_H_N¿i_P¿Hk_T¿_R¿OTdORó¢±{¿h_P_V¿`_X¿I•OXL¿OXOO–OXO¿O–OXO¿O –OXO&¿O(–OXO. ¿O0–OXO6¿O8–OXO>¿O@–OXOF¿OH–OXON¿OP•OXOVOXKdagð¦lÔ[±þ^kØa±þ`agð–NkØa±þbNlÔ^±þOagð—OkØa±þgOlÔ_±þQagð—OkØa±þjOlÔ_±þTagð—O$kØa±þmO$lÔ_$±þWagð—O,kØa±þpO,lÔ_,±þZagð—O4kØa±þsO4lÔ_4±þ]agð—O" 4 "#" 54 ", Deleted = " 29 ", Free = " 4 "#d3 ²d”¿jO>‡ããO>nÿÿåÑ_6¿O:²O6 O< O6ð²EO6 Oh _D_B¿OD²&OBO6ð³O6Oj³O6On_@¿dO@“¿O@‚O@_n¿O4kÔ_4±ÿf_P¿p>OPÉÉ_|¿OPÉÉ_z¿j_r¿O|O|_|¿_t¿OzOz_z¿_v¿Ot _x¿OrOx:šO|³ÒON±ýÎOvOr¶kñ²nOtOr¶_Fd3 ²d”¿jOF‡ããOFnÿÿåÑ_p Oh _L_J¿OL²1OJOpð³*Op J Oj³OpOn_H¿dOH“¿OH‚OH_n¿OrkÔ_r±ÿvpEOhÉÉ_Š¿OhÉÉ_ˆ¿j_€¿OŠOŠ_Š¿_‚¿OˆOˆ_ˆ¿_„¿O‚ _†¿O€O†:²{OŠ³ÑOnšOhOnJ¿J_\¿OhO\É _Z¿O\OZ ¿JÉ_`¿OhÉO`_^¿O`O^¿Oh_d¿JOdÉ_b¿OdOb¿Of±û,O„O€¶kñ²bO‚O€¶_Rd3 ²d”¿jOR‡ããORnÿÿåÑ_~ J _X_V¿OX²&OVO~ð³OVOj³OVOn_T¿dOT“¿OT‚OT_n¿O€kÔ_€±ÿ(1514 IL:\\MVLIST 1509 FIND-SYMBOL 1503 SYMBOL-NAME 1354 IL:RESOLVE-USE-PACKAGE-CONFLICT 1326 ARRAY-TOTAL-SIZE 1214 INTERN 1208 SYMBOL-NAME 1182 IL:\\MVLIST 1177 IL:FIND-EXTERNAL-SYMBOL 1170 SYMBOL-NAME 1104 ARRAY-TOTAL-SIZE 967 IL:\\MVLIST 962 IL:FIND-EXTERNAL-SYMBOL 955 SYMBOL-NAME 943 FIND-SYMBOL 936 SYMBOL-NAME 862 ARRAY-TOTAL-SIZE 743 IL:\\MVLIST 738 IL:FIND-EXTERNAL-SYMBOL 731 SYMBOL-NAME 628 IL:\\MVLIST 623 IL:FIND-EXTERNAL-SYMBOL 616 SYMBOL-NAME 531 ARRAY-TOTAL-SIZE 446 ARRAY-TOTAL-SIZE 367 IL:EXTERNAL-SYMBOL-COUNT 296 IL:EXTERNAL-SYMBOL-COUNT 271 IL:EXTERNAL-SYMBOL-COUNT 265 IL:INTERNAL-SYMBOL-COUNT 216 IL:ERROR 202 FIND-PACKAGE 197 SYMBOL-NAME 179 STRINGP 153 IL:ERROR 140 FIND-PACKAGE 135 SYMBOL-NAME 120 STRINGP 78 IL:ERROR 65 FIND-PACKAGE 60 SYMBOL-NAME 45 STRINGP) (1446 PACKAGE 1433 PACKAGE 1405 PACKAGE 1393 PACKAGE 1382 PACKAGE 1369 PACKAGE 1286 PACKAGE-HASHTABLE 1279 PACKAGE 1267 PACKAGE-HASHTABLE 1260 PACKAGE 1064 PACKAGE-HASHTABLE 1057 PACKAGE 1045 PACKAGE-HASHTABLE 1038 PACKAGE 822 PACKAGE-HASHTABLE 810 PACKAGE-HASHTABLE 491 PACKAGE-HASHTABLE 484 PACKAGE 473 PACKAGE-HASHTABLE 466 PACKAGE 406 PACKAGE-HASHTABLE 399 PACKAGE 388 PACKAGE-HASHTABLE 381 PACKAGE 347 PACKAGE 322 PACKAGE 310 PACKAGE 254 PACKAGE 246 PACKAGE 233 PACKAGE 168 PACKAGE 110 PACKAGE 35 PACKAGE) ( 209 "Not an existing package, string or symbol " 147 "Not an existing package, string or symbol " 72 "Not an existing package, string or symbol ") (IL:SET-DOCUMENTATION (QUOTE USE-PACKAGE) (QUOTE FUNCTION) "Make a package use (inherit) symbols from others. Checks for name-conflicts.") IN-PACKAGE :D8 (IL:L (0 IL:|-args-|) IL:F 15 *PACKAGE*) ¶eka Hl»ºKJó²Ih¼Hl¾½NdMó²Q¿h_¿Hl2OdOó²S¿O_¿I _²cOO OL OcKdagð¥lÔ[°§kØa°§agð•NkØa°§NlÔ^°™a_¿OµOh__¿OkÔ_°’O&_¿°ògIOc(177 APPLY 84 IL:ENTER-NEW-NICKNAMES 76 USE-PACKAGE 63 FIND-PACKAGE) (169 MAKE-PACKAGE 116 :USE 97 :NICKNAMES) () (IL:SET-DOCUMENTATION (QUOTE IN-PACKAGE) (QUOTE FUNCTION) "Like Make-Package, but also makes the created package current.") XCL:PKG-GOTO :D8 (IL:L (0 IL:|-args-|)) z eka1Hl2 NMó²+OºI Ã¬oI ´Igk¼»IJ°8Na_¿OµOh__¿NkÔ^°½O&_¿°ôdýnLkØ\ñ¨hl4 ¿µêLK(113 IL:\\LISPERROR 46 Y-OR-N-P 29 FIND-PACKAGE) (53 IN-PACKAGE 34 PACKAGE) ( 40 "Create new package ~a?") (IL:SET-DOCUMENTATION (QUOTE XCL:PKG-GOTO) (QUOTE FUNCTION) "Like in-package, but confirms creation of new packages.") RENAME-PACKAGE :D8 (IL:L (3 IL:PREFIX-NAME 2 IL:NICKNAMES 1 IL:NAME 0 PACKAGE)) ó@HdÃ“¿H°d ’¿HŠd3@ðœH µ oH bAHd “¿H° ¥Hd3@ð–H ŠoH bCµd bA µS@É` @A@CA@`@ÉHµ'@h@B @@ð³oA ¿°Ÿ` ¿HX°Ê(235 REMHASH 221 ERROR 204 IL:ENTER-NEW-NICKNAMES 173 IL:PUTHASH 143 REMHASH 123 FIND-PACKAGE 115 MAKE-SYMBOL 103 IL:ERROR 91 IL:MKSTRING 78 STRINGP 68 IL:STRINGP 54 IL:ERROR 41 FIND-PACKAGE 36 SYMBOL-NAME 21 STRINGP) (230 IL:*PACKAGE-FROM-NAME* 194 PACKAGE 179 PACKAGE 168 IL:*PACKAGE-FROM-NAME* 158 PACKAGE 149 PACKAGE 138 IL:*PACKAGE-FROM-NAME* 131 PACKAGE 10 PACKAGE) ( 215 "A package named ~S already exists." 97 "Not a string or symbol " 48 "Not an existing package, string or symbol ") (IL:SET-DOCUMENTATION (QUOTE RENAME-PACKAGE) (QUOTE FUNCTION) "Change the name if we can, blast any old nicknames and then add in any new ones.") XCL:DELETE-PACKAGE :D8 (IL:L (0 PACKAGE) IL:F 9 *PACKAGE* IL:F 10 XCL::*UNSAFE-TO-DELETE-PACKAGE-NAMES*) @HdÃ“¿H°d ’¿HŠd3@ðœH µ oH bddWð¿o ´1@ÉWgg²o@É ¡h@ÉHµ#@É Hµ#@dÉ²!¿°b¹@I ¿HX°Ð@ ¿HX°ÒÉÉ»@ÉÉ¼j_¿KK»_¿LL¼¾O ½OM:¢±‰K³Ý@ÉÉ»@ÉÉ¼j_¿KK»_¿LL¼¾O ½OM:¢±K³Ýh@É` @ÉHµ‚±•`@É¹hHI·iNO¶kñ².OO¶Yd3 Ÿd“¿jI†ããInÿÿåÑ¸@H ð—H@ ¿OkÔ_±ÿ:NO¶kñ².OO¶Zd3 Ÿd“¿jJ†ããJnÿÿåÑ¸@H ð—H@ ¿OkÔ_±ÿB` ¿HX±ÿY(531 REMHASH 510 UNINTERN 501 SYMBOL-PACKAGE 449 UNINTERN 440 SYMBOL-PACKAGE 356 REMHASH 324 ARRAY-TOTAL-SIZE 255 ARRAY-TOTAL-SIZE 193 UNUSE-PACKAGE 180 UNUSE-PACKAGE 121 YES-OR-NO-P 101 MEMBER 74 YES-OR-NO-P 54 IL:ERROR 41 FIND-PACKAGE 36 SYMBOL-NAME 21 STRINGP) (526 IL:*PACKAGE-FROM-NAME* 389 PACKAGE 380 IL:*PACKAGE-FROM-INDEX* 362 PACKAGE 351 IL:*PACKAGE-FROM-NAME* 344 PACKAGE 296 PACKAGE-HASHTABLE 289 PACKAGE 280 PACKAGE-HASHTABLE 273 PACKAGE 227 PACKAGE-HASHTABLE 220 PACKAGE 211 PACKAGE-HASHTABLE 204 PACKAGE 164 PACKAGE 145 PACKAGE 130 PACKAGE 114 PACKAGE 96 STRING= 91 :TEST 82 PACKAGE 10 PACKAGE) ( 108 "About to delete the ~a package; this is dangerous, are you sure?" 69 "About to delete the current package; this is dangerous, are you sure?" 48 "Not an existing package, string or symbol ") EXPORT :D8 (IL:L (0 IL:|-args-|) IL:F 33 *PACKAGE*) #!ekañÐlHñ’WB‚la[dÃ“¿K° ‘K‹Kd3@ðœK µ oK Zh¼I_dd3@ð–¿Oh°3²$Oh¾]µO°%^d3@ð«oN ¿M°äoO h_¿_µwJÉ! Lh_$¿_"µ‚±†O@›JO@O>L¼h_0_2¿Lh_.¿_,µ‚±âO0˜JO0 ¿O2µ#JÉJÉ_:¿_8¿L_4µ‚±úiJ ¿°Ø_ J ©OL¤OL¼O±ÿd_$ _ ¿O_¿dO“¿O‚O_>¿O°”_. J _*_(¿O*_&•O(O.ð©O.O0_0¿°O&gð—O.O2_2¿O,±þÕ_6¿JÉ®O8O6 ¿O:O6 ¿O4±þØ(538 IL:ADD-SYMBOL 528 IL:NUKE-SYMBOL 523 SYMBOL-NAME 449 IL:\\MVLIST 444 FIND-SYMBOL 438 SYMBOL-NAME 348 IL:\\MVLIST 343 FIND-SYMBOL 311 SYMBOL-NAME 284 IL:\\MVLIST 279 IL:FIND-EXTERNAL-SYMBOL 273 SYMBOL-NAME 262 IMPORT 218 IL:RESOLVE-EXPORT-MISSING 186 IL:RESOLVE-EXPORT-CONFLICT 140 IL:ERROR 123 IL:ERROR 72 IL:ERROR 59 FIND-PACKAGE 54 SYMBOL-NAME 39 STRINGP) (511 PACKAGE 485 :INHERITED 376 PACKAGE 237 PACKAGE 229 PACKAGE 154 PACKAGE 29 PACKAGE) ( 133 "Neither a symbol nor a list of symbols." 117 "Not a symbol." 66 "Not an existing package, string or symbol ") (IL:SET-DOCUMENTATION (QUOTE EXPORT) (QUOTE FUNCTION) "Make the symbols external in the package.") UNEXPORT :D8 (IL:L (0 IL:|-args-|) IL:F 18 *PACKAGE*) QekañlHñ’W$‚la[dÃ“¿K° ‘K‹Kd3@ðœK µ oK ZdÉ´oIoJ ¿h¼I_dd3@ð–¿Oh°3²$Oh¾]µO°%^d3@ð«oN ¿M°äoO _µJÉJÉ_"¿_ ¿L_µbi_ J __¿O_–OOð³oOJ °Ogð²OL_¿dO“¿O‚O\¿O°ƒ_¿O O ¿O"O ¿O±ÿ|(328 IL:NUKE-SYMBOL 323 SYMBOL-NAME 313 IL:ADD-SYMBOL 263 ERROR 258 SYMBOL-NAME 225 IL:\\MVLIST 220 FIND-SYMBOL 214 SYMBOL-NAME 173 IL:ERROR 156 IL:ERROR 105 IL:ERROR 100 IL:CONCAT 72 IL:ERROR 59 FIND-PACKAGE 54 SYMBOL-NAME 39 STRINGP) (272 :EXTERNAL 191 PACKAGE 183 PACKAGE 79 PACKAGE 29 PACKAGE) ( 250 "~S is not available in the ~A package." 166 "Neither a symbol nor a list of symbols." 150 "Not a symbol." 94 " from an external-only package " 88 "Can't unexport symbols " 66 "Not an existing package, string or symbol ") (IL:SET-DOCUMENTATION (QUOTE UNEXPORT) (QUOTE FUNCTION) "Check that all symbols are available, then move from external to internal.") IMPORT :D8 (IL:L (0 IL:|-args-|) IL:F 17 *PACKAGE*) [ekañlHñ’W"‚la[dÃ“¿K° ‘K‹Kd3@ðœK µ oK Zh\½I_dd3@ð–¿Oh°7²(Oh_¿^µO°'_d3@ð¬oO ¿N°âoO h_¿_µ"M—JM ¿JdÉ²q¿JÉ°m_ J __¿O_³%OLggµ°$Oð³#OM½°OOð¥OM½Ogð”OL¼O±ÿ{É_ ¿L_µMµiJ _¿O O ¿O ¨OJ ¿O°Î(339 IL:SETF-SYMBOL-PACKAGE 330 SYMBOL-PACKAGE 322 IL:ADD-SYMBOL 308 SHADOWING-IMPORT 233 MEMBER 201 IL:\\MVLIST 196 FIND-SYMBOL 190 SYMBOL-NAME 159 IL:RESOLVE-IMPORT-CONFLICT 142 IL:ERROR 125 IL:ERROR 69 IL:ERROR 56 FIND-PACKAGE 51 SYMBOL-NAME 36 STRINGP) (287 PACKAGE 269 :INHERITED 228 IL:STREQUAL 223 :TEST 178 PACKAGE 167 PACKAGE 26 PACKAGE) ( 135 "Neither a symbol nor a list of symbols." 118 "Not a symbol." 63 "Not an existing package, string or symbol ") (IL:SET-DOCUMENTATION (QUOTE IMPORT) (QUOTE FUNCTION) "Make the symbol internal in the package, noting name conflicts.") SHADOWING-IMPORT :D8 (IL:L (0 IL:|-args-|) IL:F 16 *PACKAGE*) AekaálHñ’W ‚la[dÃ“¿K° ‘K‹Kd3@ðœK µ oK ZddÉ™¿JÉ†É_¿I^dd3@ð•¿Nh°0²"Nh½\µN°$]d3@ð«oM ¿L°åoN _µi_ J __¿O_´OOð³@Ogð©Ogð²#JOJÉ ¿OJ ¿OO ¿J_¿OOÉ_¿dO“¿O‚O_¿OO¿O±ÿd(267 IL:ADD-SYMBOL 257 UNINTERN 246 DELETE 185 IL:\\MVLIST 180 FIND-SYMBOL 174 SYMBOL-NAME 160 IL:ERROR 144 IL:ERROR 69 IL:ERROR 56 FIND-PACKAGE 51 SYMBOL-NAME 36 STRINGP) (308 PACKAGE 281 PACKAGE 239 PACKAGE 231 PACKAGE 222 :EXTERNAL 213 :INTERNAL 95 PACKAGE 87 PACKAGE 77 PACKAGE 26 PACKAGE) ( 154 "Neither a symbol nor a list of symbols." 138 "Not a symbol." 63 "Not an existing package, string or symbol ") (IL:SET-DOCUMENTATION (QUOTE SHADOWING-IMPORT) (QUOTE FUNCTION) "If a conflicting symbol is present, unintern it, otherwise just stick the symbol in.") SHADOW :D8 (IL:L (0 IL:|-args-|) IL:F 15 *PACKAGE*) ekaÑlHñ’W‚la[dÃ“¿K° ‘K‹Kd3@ðœK µ oK ZddÉ™¿JÉ†É_¿I^dd3@ð•¿Nh°0²"Nh½\µN°$]d3@ð«oM ¿L°åoN _µi _J _gð³SOgð³IO _J ¿OO ¿J_¿OOÉ_¿dO“¿O‚O_¿OO¿O°‡(232 IL:ADD-SYMBOL 222 IL:SETF-SYMBOL-PACKAGE 214 MAKE-SYMBOL 185 IL:\\MVLIST 180 FIND-SYMBOL 172 SYMBOL-NAME 160 IL:ERROR 144 IL:ERROR 69 IL:ERROR 56 FIND-PACKAGE 51 SYMBOL-NAME 36 STRINGP) (273 PACKAGE 246 PACKAGE 204 :EXTERNAL 194 :INTERNAL 95 PACKAGE 87 PACKAGE 77 PACKAGE 26 PACKAGE) ( 154 "Neither a symbol nor a list of symbols." 138 "Not a symbol." 63 "Not an existing package, string or symbol ") (IL:SET-DOCUMENTATION (QUOTE SHADOW) (QUOTE FUNCTION) "Hide the existing symbols with new ones in the package.") UNUSE-PACKAGE :D8 (IL:L (0 IL:|-args-|) IL:F 11 *PACKAGE*) 2eka‘ lHñ’W‚la[dÃ“¿K° ‘K‹Kd3@ðœK µ oK ZI_d¢±†d²G¿h¾O]µN°v\dÃ“¿L° ‘L‹Ld3@ðœL µ oL N¾M°Â_dÃ”¿O° ’OOd3@ðO µoO h_µi_¿JOJÉ ¿JOÉJÉ ¿OJOÉ ¿O°£(296 IL:REMOVE 271 IL:REMOVE 240 IL:REMOVE 207 IL:ERROR 193 FIND-PACKAGE 188 SYMBOL-NAME 170 STRINGP 144 IL:ERROR 131 FIND-PACKAGE 126 SYMBOL-NAME 111 STRINGP 69 IL:ERROR 56 FIND-PACKAGE 51 SYMBOL-NAME 36 STRINGP) (289 PACKAGE 281 PACKAGE 264 PACKAGE 256 PACKAGE 249 PACKAGE 233 PACKAGE 225 PACKAGE 159 PACKAGE 101 PACKAGE 26 PACKAGE) ( 200 "Not an existing package, string or symbol " 138 "Not an existing package, string or symbol " 63 "Not an existing package, string or symbol ") (IL:SET-DOCUMENTATION (QUOTE UNUSE-PACKAGE) (QUOTE FUNCTION) "Remove some packages from the use (inherit) list of another package.") LIST-ALL-PACKAGESA0001 :D8 (IL:L (1 IL:V 0 IL:K) IL:F 2 IL:RES) ARHdI’¿IIcNIL NIL () LIST-ALL-PACKAGES :D8 (IL:P 0 IL:RES) g` H(17 MAPHASH) (12 IL:*PACKAGE-FROM-NAME* 7 LIST-ALL-PACKAGESA0001) () (IL:SET-DOCUMENTATION (QUOTE LIST-ALL-PACKAGES) (QUOTE FUNCTION) "Return a list of the names of all existing packages.") IL:ADD-SYMBOL :D8 (IL:L (1 SYMBOL 0 IL:TABLE) IL:F 29 IL:PACKAGE-REHASH-THRESHOLD) 3@Éñ @É_¿H _¿@É_¿AÁÉ_¿AÁÉÊ_¿AÁÊ jðhð¾Ojð’j°!kOØ»N—OÈlÿåƒOkÂáºkdØ¹KIñ³sJ]OlÙÜkØ¼@ÉOââó’±ënÿñOó³xHOgoh OOgoh @@ÉW:êjØ±ÿ JdnÿåààÐÓdlÿåáÐÓN™OIÐÈlÿåƒOIÂÐÓºIk±ÿb@ÉHOO4lÚ@ @A Oj_¿_¿OOó¡hO8O¶kñ²'@O6O¶_d3 ²d”¿jO‡ããOnÿÿåÑ ¿OkÔ_¿°ÃO H _ ¿_¿MOÜ_"¿lOO"¶ñ¢±OO"¶jð²@_&ÉkÕ_$¿O&O$°@_*ÉkÕ_(¿O*O(¿O _.¿O"_,¿Adlð‘Ó‹lð‘A„O.O,·¿O_0¿O"_2¿OMdãMããMããâââæææælþÜlØO0O2·O"LØ±ÿ](508 IL:SHOULDNT 387 IL:FLAST 380 IL:FLAST 363 IL:ADD-SYMBOL 301 IL:ADD-SYMBOL 294 IL:MAKE-PACKAGE-HASHTABLE 200 IL:\\NCONC2 193 MAKE-ARRAY 174 IL:\\NCONC2 167 MAKE-ARRAY 31 ARRAY-TOTAL-SIZE) (472 PACKAGE-HASHTABLE 458 PACKAGE-HASHTABLE 444 PACKAGE-HASHTABLE 430 PACKAGE-HASHTABLE 273 PACKAGE-HASHTABLE 212 PACKAGE-HASHTABLE 206 PACKAGE-HASHTABLE 183 :ELEMENT-TYPE 157 :ELEMENT-TYPE 130 PACKAGE-HASHTABLE 40 PACKAGE-HASHTABLE 19 PACKAGE-HASHTABLE 5 PACKAGE-HASHTABLE) ( 188 (UNSIGNED-BYTE 8) 162 (UNSIGNED-BYTE 32)) (IL:SET-DOCUMENTATION (QUOTE IL:ADD-SYMBOL) (QUOTE FUNCTION) "Add a symbol to a package hashtable. The symbol is assumed not to be present.") IL:|expand-WITH-SYMBOL| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ¹@ñpHYºI[¼K]¾M__¿O__¿O__¿O__¿O__ ¿O_"_$¿O"_&_(¿O&_*¿H_,¿O(µO*µgO8gNhhO:gNhhO2ggO8hhhO4gO O2hhO.O0O_¿LO __¿O²OO¾dN’¿NN_¿O±ÿYJÉL I Jð–Ih i(307 IL:SETF-SYMBOL-PACKAGE 297 SYMBOL-PACKAGE 291 IL:NUKE-SYMBOL 242 IL:\\MVLIST 237 IL:FIND-EXTERNAL-SYMBOL 168 IL:\\MVLIST 163 FIND-SYMBOL 153 DELETE 148 SYMBOL-FUNCTION 124 IL:RESOLVE-UNINTERN-CONFLICT 76 SYMBOL-NAME 69 IL:ERROR 56 FIND-PACKAGE 51 SYMBOL-NAME 36 STRINGP) (283 PACKAGE 221 PACKAGE 212 :INTERNAL 202 :EXTERNAL 195 :INTERNAL 143 EQ 138 :TEST 131 PACKAGE 101 PACKAGE 83 PACKAGE 26 PACKAGE) ( 63 "Not an existing package, string or symbol ") (IL:SET-DOCUMENTATION (QUOTE UNINTERN) (QUOTE FUNCTION) "Remove a symbol from a package. If uninterning a shadowing symbol, then a name conflict can result, otherwise just nuke the symbol." ) IL:MOBY-UNINTERN :D8 (IL:L (1 PACKAGE 0 SYMBOL)) l@AÉ³5@A µ-@ !HA gð´AÉ YµhºHJ ²@J ¿gi ¿I°Ó(101 IL:RETFROM 89 UNINTERN 78 IL:\\MVLIST 73 IL:FIND-EXTERNAL-SYMBOL 41 IL:\\MVLIST 36 FIND-SYMBOL 26 SYMBOL-NAME 18 UNINTERN) (95 IL:MOBY-UNINTERN 57 PACKAGE 48 :INHERITED 6 PACKAGE) () (IL:SET-DOCUMENTATION (QUOTE IL:MOBY-UNINTERN) (QUOTE FUNCTION) "Like Unintern, but if symbol is inherited chases down the package it is inherited from and uninterns it there. Used for name-conflict resolution. Shadowing symbols are not uninterned since they do not cause conflicts." ) IL:\\INDEXATOMPNAME :D8 (IL:L (0 IL:X)) @d3 ²d”¿j@Ñãã@nÿÿåÑNIL NIL () IL:MAKE-DO-SYMBOLS-VARS :D8 NIL 'h(29 IL:GENSYM 24 IL:GENSYM 19 IL:GENSYM 14 IL:GENSYM 9 IL:GENSYM 4 IL:GENSYM) NIL () IL:MAKE-DO-SYMBOLS-CODE :D8 (IL:L (4 IL:FORMS 3 IL:EXIT-FORM 2 HASH-TABLE 1 IL:VAR 0 IL:VARS)) C@@@@@@gMgBhhgLgBhhOgHogIgMhhgJgLhhgKggoIhhhNggHKhggMhCgOhhhggggoJhHhogAggIHhhhDgHhgNhh(36 IL:GENSYM 31 IL:GENSYM) (303 GO 294 INCF 272 AREF 267 IL:\\INDEXATOMPNAME 261 IL:SETQ 234 THE 229 AREF 224 IL:IGREATERP 219 WHEN 200 GO 190 NULL 185 IF 174 EQL 169 IF 146 THE 141 ARRAY-TOTAL-SIZE 135 IL:SETQ 122 IL:POP 116 IL:SETQ 103 IL:POP 97 IL:SETQ 84 IL:SETQ 69 PACKAGE-HASHTABLE-HASH 63 IL:SETQ 50 PACKAGE-HASHTABLE-TABLE 44 IL:SETQ) ( 254 (1) 239 (SIMPLE-ARRAY (UNSIGNED-BYTE 8)) 151 (SIMPLE-ARRAY (UNSIGNED-BYTE 32)) 90 (0)) |expand-DO-EXTERNAL-SYMBOLS| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ˆ @‘ HYºI[µwg¼K´K½HAh ^_¿N_¿_¿gJOOOJgLhgggJoMhhO °(128 APPEND 123 IL:MAKE-DO-SYMBOLS-CODE 58 IL:MAKE-DO-SYMBOLS-VARS 42 IL:\\MVLIST 37 XCL:PARSE-BODY) (99 IL:SETQ 94 PROGN 89 RETURN 80 %PACKAGE-EXTERNAL-SYMBOLS 66 PROG 19 *PACKAGE*) ( 105 (NIL)) (IL:SETF-MACRO-FUNCTION (QUOTE DO-EXTERNAL-SYMBOLS) (QUOTE |expand-DO-EXTERNAL-SYMBOLS|)) (IL:SET-DOCUMENTATION (QUOTE DO-EXTERNAL-SYMBOLS) (QUOTE FUNCTION) "Do-External-Symbols (Var [Package [Result-Form]]) {Declaration}* {Tag | Statement}* Executes the Forms once for each external symbol in the given Package with Var bound to the current symbol." ) XCL::|expand-DO-LOCAL-SYMBOLS| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) û @ÁHYºI[µ‚±æg¼K´K½HAh ^_¿N_¿_¿_¿_¿_¿gOLhJOOggLhgOhhOJgLhgOhO OOJgLhgOhO OgJogMhh ±ÿ!(242 APPEND 236 APPEND 230 APPEND 197 IL:MAKE-DO-SYMBOLS-CODE 165 IL:MAKE-DO-SYMBOLS-CODE 86 IL:GENSYM 78 IL:MAKE-DO-SYMBOLS-VARS 70 IL:GENSYM 62 IL:GENSYM 46 IL:\\MVLIST 41 XCL:PARSE-BODY) (217 RETURN 204 IL:SETQ 184 GO 175 %PACKAGE-EXTERNAL-SYMBOLS 152 GO 143 %PACKAGE-INTERNAL-SYMBOLS 126 GO 117 %PACKAGE-EXTERNAL-ONLY 112 WHEN 94 PROG* 23 *PACKAGE*) ( 210 (NIL)) (IL:SETF-MACRO-FUNCTION (QUOTE XCL:DO-LOCAL-SYMBOLS) (QUOTE XCL::|expand-DO-LOCAL-SYMBOLS|)) (IL:SET-DOCUMENTATION (QUOTE XCL:DO-LOCAL-SYMBOLS) (QUOTE FUNCTION) "Do-Local-Symbols (Var [Package [Result-Form]]) {Declaration}* {Tag | Statement}* Executes the Forms at least once for each symbol actually in the given Package with Var bound to the current symbol." ) XCL::|expand-DO-INTERNAL-SYMBOLS| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) Í@±HYºI[µ‚±¸g¼K´K½HAh ^_¿N_¿_¿_¿_¿gOLhJOOggLhgOhhOJgLhgOhO OgJogMhh ±ÿO(196 APPEND 190 APPEND 157 IL:MAKE-DO-SYMBOLS-CODE 78 IL:GENSYM 70 IL:MAKE-DO-SYMBOLS-VARS 62 IL:GENSYM 46 IL:\\MVLIST 41 XCL:PARSE-BODY) (177 RETURN 164 IL:SETQ 144 GO 135 %PACKAGE-INTERNAL-SYMBOLS 118 GO 109 %PACKAGE-EXTERNAL-ONLY 104 WHEN 86 PROG* 23 *PACKAGE*) ( 170 (NIL)) (IL:SETF-MACRO-FUNCTION (QUOTE XCL:DO-INTERNAL-SYMBOLS) (QUOTE XCL::|expand-DO-INTERNAL-SYMBOLS|)) (IL:SET-DOCUMENTATION (QUOTE XCL:DO-INTERNAL-SYMBOLS) (QUOTE FUNCTION) "Do-Internal-Symbols (Var [Package [Result-Form]]) {Declaration}* {Tag | Statement}* Executes the Forms at least once for each symbol actually in the given Package and not exported with Var bound to the current symbol." ) |expand-DO-SYMBOLS| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) é@ñHYºI[µ‚±Ñg¼K´K½HAh ^_¿N_¿_¿_¿_¿_¿_¿_¿_¿_ ¿gOLhOgOhhOggOhhhJOO h OggLhgOhhOJgLhgOhO OOJgLhgOhO OOggOhgJogMhhgO gOhhOJO ggOgOhhgOhhgggOhgggJhOhJhhOh ±þ6(480 APPEND 474 APPEND 468 APPEND 459 IL:MAKE-DO-SYMBOLS-CODE 281 IL:MAKE-DO-SYMBOLS-CODE 249 IL:MAKE-DO-SYMBOLS-CODE 185 APPEND 121 IL:GENSYM 113 IL:GENSYM 105 IL:GENSYM 97 IL:GENSYM 89 IL:MAKE-DO-SYMBOLS-VARS 81 IL:GENSYM 73 IL:GENSYM 65 IL:GENSYM 49 IL:\\MVLIST 44 XCL:PARSE-BODY) (428 SYMBOL-NAME 423 FIND-SYMBOL 418 EQ 408 NOT 403 OR 398 WHEN 384 GO 370 CDR 363 IL:SETQ 358 PROGN 339 CAR 332 IL:SETQ 318 RETURN 305 IL:SETQ 295 NULL 290 WHEN 268 GO 259 %PACKAGE-EXTERNAL-SYMBOLS 236 GO 227 %PACKAGE-INTERNAL-SYMBOLS 210 GO 201 %PACKAGE-EXTERNAL-ONLY 196 WHEN 162 %PACKAGE-TABLES 157 CDR 142 %PACKAGE-SHADOWING-SYMBOLS 129 PROG* 26 *PACKAGE*) ( 311 (NIL)) (IL:SETF-MACRO-FUNCTION (QUOTE DO-SYMBOLS) (QUOTE |expand-DO-SYMBOLS|)) (IL:SET-DOCUMENTATION (QUOTE DO-SYMBOLS) (QUOTE FUNCTION) "Do-Symbols (Var [Package [Result-Form]]) {Declaration}* {Tag | Statement}* Executes the Forms at least once for each symbol accessible in the given Package with Var bound to the current symbol." ) |expand-DO-ALL-SYMBOLS| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 7 @ÁHYºId»HAh \½L¾_¿_¿_¿_JggOhhgOhM _¿OJggOhhggOgOhhgOhhM _¿gOJONgOoOggOhgJogKhhgggOhhgOhhOOO (306 APPEND 297 APPEND 174 IL:MAKE-DO-SYMBOLS-CODE 103 IL:MAKE-DO-SYMBOLS-CODE 65 IL:MAKE-DO-SYMBOLS-VARS 57 IL:GENSYM 49 IL:GENSYM 41 IL:GENSYM 29 IL:\\MVLIST 24 XCL:PARSE-BODY) (276 GO 263 CAR 258 %PACKAGE-EXTERNAL-ONLY 253 WHEN 239 RETURN 226 IL:SETQ 216 NULL 211 WHEN 195 IL:SETQ 182 PROG 158 GO 144 CDR 137 IL:SETQ 132 PROGN 119 CAR 114 %PACKAGE-EXTERNAL-SYMBOLS 91 GO 78 CAR 73 %PACKAGE-INTERNAL-SYMBOLS) ( 232 (NIL) 202 ((LIST-ALL-PACKAGES))) (IL:SETF-MACRO-FUNCTION (QUOTE DO-ALL-SYMBOLS) (QUOTE |expand-DO-ALL-SYMBOLS|)) (IL:SET-DOCUMENTATION (QUOTE DO-ALL-SYMBOLS) (QUOTE FUNCTION) "Do-All-Symbols (Var [Package [Result-Form]]) {Declaration}* {Tag | Statement}* Executes the Forms once for each symbol in each package with Var bound to the current symbol." ) FIND-ALL-SYMBOLSA0001 :D8 (IL:L (1 IL:V 0 IL:K) IL:F 3 IL:RES IL:F 4 STRING) 'TA !H¹H´ISºdJ’¿JJc(11 IL:\\MVLIST 6 FIND-SYMBOL) NIL () FIND-ALL-SYMBOLS :D8 (IL:L (0 IL:STRING-OR-SYMBOL) IL:P 1 IL:RES IL:P 0 STRING) @ g` I(23 MAPHASH 5 IL:MKSTRING) (18 IL:*PACKAGE-FROM-NAME* 13 FIND-ALL-SYMBOLSA0001) () (IL:SET-DOCUMENTATION (QUOTE FIND-ALL-SYMBOLS) (QUOTE FUNCTION) "Find every symbol in all packages with the given name.") IL:BRIEFLY-DESCRIBE-SYMBOL :D8 (IL:L (0 SYMBOL)) @@ @d ²¿o ¿@ ¿@ ´o (61 WRITE-STRING 49 FBOUNDP 42 PRIN1 37 SYMBOL-VALUE 30 WRITE-STRING 17 BOUNDP 10 PRIN1 4 FRESH-LINE) NIL ( 56 " (defined)" 25 ", value: ") (IL:SET-DOCUMENTATION (QUOTE IL:BRIEFLY-DESCRIBE-SYMBOL) (QUOTE FUNCTION) "Short form description of a symbol.") APROPOS :D8 (IL:L (2 IL:EXTERNAL-ONLY 1 PACKAGE 0 STRING)) å&@Hd “¿H°"d §¿Hd3@ð–H ŠoH bddÊjð§¿d É@dÊjð¥ È@l @dÊjð¥ ‚Ê‡lDðô@HIJK¿Aµ‚±W€_.µ± É³[O.ÉÉ_<¿O.ÉÉ_:¿j_2¿OHIJK —O> ¿O@kÔ_@°²O,_(É_&¿O(É_$¿h_"____¿O,dÉ’¿°WÉÉ_¿O,ÉÉ_¿j_ ¿OO_¿_¿OO_¿_¿O _¿O O:²iO³ÑO,ÉÉ_¿O,ÉÉ_¿j_ ¿OO_¿_¿OO_¿_¿O _¿O O:²WO³ÑO$’±“$OO ¶kñ²5OO ¶_d3 ²d”¿jO‡ããOnÿÿåÑ_"HIJK —O" ¿O kÔ_ ±ÿROO ¶kñ²5OO ¶_d3 ²d”¿jO‡ããOnÿÿåÑ_"HIJK —O" ¿O kÔ_ ±ÿdO$_É_¿OÉ_¿j_ ¿OO_¿_¿OO_¿_¿O _¿O O:›O³ÒO$_$±ÿOO ¶kñ²OOO ¶_*d3 ²d”¿jO*‡ããO*nÿÿåÑ_"¿O&²O" O( O"ð²O"HIJK —O" ¿O kÔ_ °”(1242 IL:BRIEFLY-DESCRIBE-SYMBOL 1234 IL:APROPOS-SEARCH 1217 FIND-SYMBOL 1210 SYMBOL-NAME 1136 ARRAY-TOTAL-SIZE 1064 IL:BRIEFLY-DESCRIBE-SYMBOL 1056 IL:APROPOS-SEARCH 995 IL:BRIEFLY-DESCRIBE-SYMBOL 987 IL:APROPOS-SEARCH 910 ARRAY-TOTAL-SIZE 823 ARRAY-TOTAL-SIZE 690 IL:BRIEFLY-DESCRIBE-SYMBOL 682 IL:APROPOS-SEARCH 614 ARRAY-TOTAL-SIZE 530 IL:ERROR 517 FIND-PACKAGE 512 SYMBOL-NAME 497 STRINGP 470 IL:BRIEFLY-DESCRIBE-SYMBOL 462 IL:APROPOS-SEARCH 405 IL:BRIEFLY-DESCRIBE-SYMBOL 397 IL:APROPOS-SEARCH 330 ARRAY-TOTAL-SIZE 241 ARRAY-TOTAL-SIZE 148 LIST-ALL-PACKAGES 132 IL:\\UPCASEBASE 110 IL:%ARRAY-TYPE-NUMBER 97 IL:\\GETBASEFIXP 86 IL:%ARRAY-OFFSET 70 IL:%ARRAY-BASE 53 IL:CONCAT 47 IL:ERROR 35 IL:MKSTRING 21 STRINGP 10 IL:STRINGP) (1096 PACKAGE-HASHTABLE 1084 PACKAGE-HASHTABLE 870 PACKAGE-HASHTABLE 863 PACKAGE 851 PACKAGE-HASHTABLE 844 PACKAGE 783 PACKAGE-HASHTABLE 776 PACKAGE 764 PACKAGE-HASHTABLE 757 PACKAGE 746 PACKAGE 720 PACKAGE 708 PACKAGE 574 PACKAGE-HASHTABLE 567 PACKAGE 555 PACKAGE-HASHTABLE 548 PACKAGE 487 PACKAGE 290 PACKAGE-HASHTABLE 283 PACKAGE 270 PACKAGE-HASHTABLE 263 PACKAGE 201 PACKAGE-HASHTABLE 194 PACKAGE 181 PACKAGE-HASHTABLE 174 PACKAGE 162 PACKAGE) ( 524 "Not an existing package, string or symbol " 41 "Not a string or symbol ") (IL:SET-DOCUMENTATION (QUOTE APROPOS) (QUOTE FUNCTION) "Find all symbols matching the string pattern in the given (or current) package. The search can be limited to external symbols only. Prints a short description of each found symbols." ) APROPOS-LIST :D8 (IL:L (2 IL:EXTERNAL-ONLY 1 PACKAGE 0 STRING)) ç(@ Hd “¿H°"d §¿Hd3@ð–H ŠoH ñPHdÊjð¥ ÉHdÊjð¥ ÈHl HdÊjð¥ ‚Ê‡lDðO*O,O.O0¿Aµ‚±Y€ _2µ±É³[O2ÉÉ_@¿O2ÉÉ_>¿j_6¿O@O@_@¿_8¿O>O>_>¿_:¿O8 _<¿O6O<:²eO@³ÑO2ÉÉ_@¿O2ÉÉ_>¿j_6¿O@O@_@¿_8¿O>O>_>¿_:¿O8 _<¿O6O<:²NO@³ÑO2±ÿ9O:O6¶kñ²2O8O6¶Zd3 Ÿd“¿jJ†ããJnÿÿåÑ_4O*O,O.O0 ”O4I¹O6kÔ_6±ÿYO:O6¶kñ²2O8O6¶[d3 Ÿd“¿jK†ããKnÿÿåÑ_4O*O,O.O0 ”O4I¹O6kÔ_6±ÿp\dÃ“¿L° ‘L‹Ld3@ðœL µ oL _(¿B¢±¡p'O(ÉÉ_N¿O(ÉÉ_L¿j_D¿ONON_N¿_F¿OLOL_L¿_H¿OF _J¿ODOJ:—ON³Ò±+OHOD¶kñ²2OFOD¶]d3 Ÿd“¿jM†ããMnÿÿåÑ_BO*O,O.O0 ”OBI¹ODkÔ_D°µO(_$É_"¿O$É_ ¿h_____¿O(dÉ’¿°WÉÉ_¿O(ÉÉ_¿j_¿OO_¿_¿OO_¿_¿O _¿OO:²eO³ÑO(ÉÉ_¿O(ÉÉ_¿j_¿OO_¿_¿OO_¿_¿O _¿OO:²PO³ÑO ’±IOO¶kñ²2OO¶^d3 Ÿd“¿jN†ããNnÿÿåÑ_O*O,O.O0 ”OI¹OkÔ_±ÿYOO¶kñ²6OO¶_d3 ²d”¿jO‡ããOnÿÿåÑ_O*O,O.O0 ”OI¹OkÔ_±ÿjO _É_¿OÉ_¿j_¿OO_¿_¿OO_¿_¿O _¿OO:›O³ÒO _ ±ÿ"OO¶kñ²POO¶_&d3 ²d”¿jO&‡ããO&nÿÿåÑ_¿O"²O O$ Oð²OO*O,O.O0 ”OI¹OkÔ_°“(1239 IL:APROPOS-SEARCH 1218 FIND-SYMBOL 1211 SYMBOL-NAME 1137 ARRAY-TOTAL-SIZE 1060 IL:APROPOS-SEARCH 990 IL:APROPOS-SEARCH 917 ARRAY-TOTAL-SIZE 830 ARRAY-TOTAL-SIZE 692 IL:APROPOS-SEARCH 624 ARRAY-TOTAL-SIZE 540 IL:ERROR 527 FIND-PACKAGE 522 SYMBOL-NAME 507 STRINGP 475 IL:APROPOS-SEARCH 409 IL:APROPOS-SEARCH 338 ARRAY-TOTAL-SIZE 249 ARRAY-TOTAL-SIZE 156 LIST-ALL-PACKAGES 140 IL:\\UPCASEBASE 117 IL:%ARRAY-TYPE-NUMBER 104 IL:\\GETBASEFIXP 93 IL:%ARRAY-OFFSET 77 IL:%ARRAY-BASE 58 IL:CONCAT 52 IL:ERROR 40 IL:MKSTRING 26 STRINGP 15 IL:STRINGP 5 IL:MKSTRING) (1097 PACKAGE-HASHTABLE 1085 PACKAGE-HASHTABLE 877 PACKAGE-HASHTABLE 870 PACKAGE 858 PACKAGE-HASHTABLE 851 PACKAGE 790 PACKAGE-HASHTABLE 783 PACKAGE 771 PACKAGE-HASHTABLE 764 PACKAGE 753 PACKAGE 727 PACKAGE 715 PACKAGE 584 PACKAGE-HASHTABLE 577 PACKAGE 565 PACKAGE-HASHTABLE 558 PACKAGE 497 PACKAGE 298 PACKAGE-HASHTABLE 291 PACKAGE 278 PACKAGE-HASHTABLE 271 PACKAGE 209 PACKAGE-HASHTABLE 202 PACKAGE 189 PACKAGE-HASHTABLE 182 PACKAGE 170 PACKAGE) ( 534 "Not an existing package, string or symbol " 46 "Not a string or symbol ") (IL:SET-DOCUMENTATION (QUOTE APROPOS-LIST) (QUOTE FUNCTION) "Find all symbols matching the string pattern in the given (or current) package. The search can be limited to external symbols only. Returns a list of the matching symbols." ) IL:FIND-EXTERNAL-SYMBOL :D8 (IL:L (1 PACKAGE 0 STRING)) Þ @ bddÊjð§¿d É@dÊjð¥ È¹@l º@dÊjð¥ ‚Ê‡lDð»Jjð’j° IJØ¾K˜HIÐÈlÿå‚HIÂá½IkØ¼NLñ³JM_¿JOdãOããOããâââæææælþÜlØ¿l _¿HIJKAÉO}‘dOmÿÙjðhð$MdnÿåààÐÓdlÿåáÐÓK˜HLÐÈlÿå‚HLÂÐÓ½L°(149 IL:\\CREATECELL 67 IL:%ARRAY-TYPE-NUMBER 53 IL:\\GETBASEFIXP 41 IL:%ARRAY-OFFSET 22 IL:%ARRAY-BASE 5 IL:MKSTRING) (162 PACKAGE) () IL:FIND-EXACT-SYMBOL :D8 (IL:L (1 PACKAGE 0 SYMBOL)) 4@ÁÉk@ÁÉÊ@ÁÊ jðhðA H¹H´I@ð(35 IL:\\MVLIST 30 IL:FIND-SYMBOL*) NIL () (IL:SET-DOCUMENTATION (QUOTE IL:FIND-EXACT-SYMBOL) (QUOTE FUNCTION) "True if name of SYMBOL when looked up in PACKAGE is found and is exactly SYMBOL") IL:PACKAGE-NAME-AS-SYMBOL :D8 (IL:L (0 PACKAGE)) @ÉNIL (5 PACKAGE) () IL:\\FIND.PACKAGE.INTERNAL :D8 (IL:L (3 IL:FATP 2 IL:LEN 1 IL:OFFSET 0 IL:BASE)) @ABC (13 FIND-PACKAGE 8 IL:\\GETBASESTRING) NIL () (IL:PUTPROPS IL:LLPACKAGE IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:LLPACKAGE IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) (IL:PUTPROPS IL:LLPACKAGE IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991 1992)) NIL