(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (il:filecreated "30-Oct-86 10:01:47" ("compiled on " il:{eris}sources>cmlpackage.\;28) "29-Oct-86 01:03:58" "COMPILE-FILEd" il:|in| "Xerox Lisp 29-Oct-86 ..." il:|dated| "29-Oct-86 01:55:52") (il:filecreated "30-Oct-86 10:00:24" il:{eris}sources>cmlpackage.\;28 26390 il:|changes| il:|to:| (il:functions il:package-hashtable-inspect-fetchfn il:symbol-inspect-fetchfn il:resolve-reader-conflict) il:|previous| il:|date:| "28-Oct-86 11:51:48" il:{eris}sources>cmlpackage.\;24) (il:rpaqq il:cmlpackagecoms ((il:* il:|;;;| "This is the second part of the package system, the first is in LLPACKAGE, which is loaded during the init" ) (il:advise il:comp.userfn) (il:setfs symbol-package) (il:functions il:dwim-symbol-package) ( il:declare\: il:donteval@load il:docopy (il:addvars (il:dwimuserforms (il:dwim-symbol-package)))) ( il:vars (il:* il:\; "As soon as defcondition works again this becomes the conflicting symbol condition.") il:nucondition) (il:variables il:*preferred-reading-symbols*) (il:functions il:resolve-reader-conflict) (il:* il:|;;| "User friendly symbol error resolving functions") (il:functions il:resolve-missing-external-symbol il:resolve-use-package-conflict il:resolve-export-conflict il:resolve-export-missing il:resolve-import-conflict il:resolve-unintern-conflict) (il:* il:|;;| "Symbol inspector") (il:functions il:symbol-inspect-fetchfn il:symbol-inspect-storefn) (il:p (let ((il:form (quote ((il:function symbolp) (il:name il:value il:plist package) il:symbol-inspect-fetchfn il:symbol-inspect-storefn nil nil nil "Symbol inspector")))) (cond ((not (il:member il:form il:inspectmacros)) (il:|push| il:inspectmacros il:form))))) (il:* il:|;;| "Package inspector") (il:functions il:package-inspect-fetchfn il:package-inspect-storefn) (il:p (let ((il:form (quote ((il:function packagep) (il:name il:nicknames il:use-list il:internal-symbols il:external-symbols il:shadowing-symbols ) il:package-inspect-fetchfn il:package-inspect-storefn nil nil nil "Package inspector")))) (cond (( not (il:member il:form il:inspectmacros)) (il:|push| il:inspectmacros il:form))))) (il:* il:|;;| "Package-hashtable inspector") (il:functions il:package-hashtable-inspect-fetchfn il:package-hashtable-inspect-storefn) (il:p (let ((il:form (quote ((il:function package-hashtable-p) ( il:size il:free il:deleted il:contents) il:package-hashtable-inspect-fetchfn il:package-hashtable-inspect-storefn)))) (cond ((not (il:member il:form il:inspectmacros)) (il:|push| il:inspectmacros il:form))))) (il:prop (il:filetype il:makefile-environment) il:cmlpackage) ( il:declare\: il:donteval@load il:doeval@compile il:dontcopy il:compilervars (il:addvars (il:nlama) ( il:nlaml) (il:lama))))) (il:putprops il:comp.userfn il:readvice (nil (il:before nil (cond ((keywordp il:x) (return (list ( quote quote) il:x))) ((and (eq (car (il:listp (car (il:listp il:x)))) (quote lambda)) (cond (( il:intersection (cadr (car il:x)) lambda-list-keywords) (il:error "Can't cope with lambda keywords in internal LAMBDA lists")) (t (return (il:bquote ((il:lambda (il:\\\,@ (cdar il:x))) (il:\\\,@ (cdr il:x))))))))))))) (il:readvise il:comp.userfn) (remprop (quote symbol-package) (quote il:setf-method-expander)) (il:putprops symbol-package il:setf-inverse il:setf-symbol-package) il:dwim-symbol-package il:d1 (il:f 9 il:faultx il:f 10 il:faultapplyflg) WW1HlvH YkIALMYd]ZAh_H-O &WlWO O O_N Oh^L\O&HKhiIg WKK J(138 il:/rplaca 126 il:fixspell1 83 fboundp 77 boundp 60 keywordp 24 find-all-symbols 21 symbol-name) (122 il:mustapprove) () (il:addtovar il:dwimuserforms (il:dwim-symbol-package)) (il:rpaqq il:nucondition (il:define-condition il:symbol-conflict il:simple-error :report (il:format nil "Symbols named ~s exists in packages ~s" (il:symbol-conflict-name il:condition) ( il:symbol-conflict-packages il:condition)) :handle (il:handle-symbol-conflict il:condition) il:name il:packages)) (proclaim (quote (special il:*preferred-reading-symbols*))) (or (boundp (quote il:*preferred-reading-symbols*)) (il:setq il:*preferred-reading-symbols* nil)) (let* ((il:a1875 (quote il:*preferred-reading-symbols*)) (il:a1876 (quote il:variable)) (il:a1877 "List of symbols whose lookup is preferred by the litatom to symbol converter.")) (il:set-documentation il:a1875 il:a1876 il:a1877)) il:resolve-reader-conflicta0001a0002 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Return LISP symbol, make it preferred") il:resolve-reader-conflicta0001a0003 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Just return LISP symbol") il:resolve-reader-conflicta0001a0004 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Return INTERLISP symbol, make it preferred") il:resolve-reader-conflicta0001a0005 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Just return INTERLISP symbol") il:resolve-reader-conflicta0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1903 il:f 2 il:*proceed-cases* il:f 3 il:ilsym) ggggQgjgggg gggQgkgggg gggQglgggg gggQglgggg RoS (146 il:\\mvlist 143 error 140 symbol-name 124 il:make-proceed-case 93 il:make-proceed-case 62 il:make-proceed-case 32 il:make-proceed-case) (120 il:resolve-reader-conflicta0001a0005 117 :report 114 il:true 111 :test 106 :selector 102 :tag 99 il:return-ilsym-proceed 96 :name 89 il:resolve-reader-conflicta0001a0004 86 :report 83 il:true 80 :test 75 :selector 71 :tag 68 il:prefer-ilsym-proceed 65 :name 58 il:resolve-reader-conflicta0001a0003 55 :report 52 il:true 49 :test 45 :selector 41 :tag 38 il:return-clsym-proceed 35 :name 28 il:resolve-reader-conflicta0001a0002 25 :report 22 il:true 19 :test 15 :selector 11 :tag 8 il:prefer-clsym-proceed 5 :name 2 :normal) ( 136 "Symbols named ~s exist in LISP and INTERLISP") il:resolve-reader-conflicta0006 il:d1 (il:l (0 il:condition) il:f 0 il:*preferred-reading-symbols* il:f 1 il:clsym il:f 2 il:ilsym) RPgg cQPcQ(13 remove 10 symbol-function) (7 eq 4 :test) () il:resolve-reader-conflicta0007 il:d1 (il:l (0 il:condition) il:f 0 il:clsym) Pnil nil () il:resolve-reader-conflicta0008 il:d1 (il:l (0 il:condition) il:f 0 il:*preferred-reading-symbols* il:f 1 il:ilsym il:f 2 il:clsym) RPgg cQPcQ(13 remove 10 symbol-function) (7 eq 4 :test) () il:resolve-reader-conflicta0009 il:d1 (il:l (0 il:condition) il:f 0 il:ilsym) Pnil nil () il:resolve-reader-conflict il:d1 (il:l (2 il:clsymwhere) il:p 7 il:proceed-case1903 il:i 1 il:clsym il:i 0 il:ilsym il:f 8 il:*preferred-reading-symbols*) @oYh@H IIBg@WAWRHI@IHAhhOg ZJKdgL j:gKdk:gl:gKl:gjLdNk^nhl4 NM(155 il:\\lisperror 93 values-list 74 il:\\catch-funcall 21 string=) (130 il:resolve-reader-conflicta0009 120 il:resolve-reader-conflicta0008 111 il:resolve-reader-conflicta0007 100 il:resolve-reader-conflicta0006 86 :normal 71 il:resolve-reader-conflicta0001 33 :external) ( 7 ("*" "APPEND" "APPLY" "APROPOS" "ARRAY" "ARRAYP" "ASSERT" "ASSOC" "ATAN" "ATOM" "BLOCK" "BREAK" "CHARACTER" "COMPILE" "COS" "COUNT" "DELETE" "DIRECTORY" "DO" "ELT" "EQUAL" "ERROR" "EVAL" "EVALHOOK" "EVERY" "EXPT" "FIND" "FIRST" "FLOATP" "FLOOR" "FUNCTION" "GCD" "GENSYM" "GETHASH" "IF" "INTERSECTION" "LAMBDA" "LDIFF" "LENGTH" "LISTP" "LOAD" "LOG" "MAP" "MAPC" "MAPCAR" "MAPCON" "MAPHASH" "MAPLIST" "MEMBER" "MERGE" "MOD" "NOTANY" "NOTEVERY" "NTH" "NUMBERP" "POP" "POSITION" "PRIN1" "PRINT" "PUSH" "PUSHNEW" "PUTHASH" "READ" "REMOVE" "REPLACE" "REVERSE" "SETQ" "SIN" "SOME" "SORT" "SQRT" "STRINGP" "SUBLIS" "SUBST" "TAN" "TERPRI" "TRACE" "UNION" "UNLESS" "WHEN" "ZEROP")) (let* ((il:a1878 (quote il:resolve-reader-conflict)) (il:a1879 (quote function)) (il:a1880 "Reader finds unqualified symbol that exists in both InterLisp and Lisp. Checks *PREFERRED-READING-SYMBOLS* list against names." )) (il:set-documentation il:a1878 il:a1879 il:a1880)) il:resolve-missing-external-symbol il:d1 (il:l (1 package 0 il:name)) oo@A @A A (24 export 20 intern 15 cerror 12 %package-name) nil ( 7 "External symbol ~s not found in package ~s." 3 "Create the symbol ~s externally in package ~s.") (let* ((il:a1881 (quote il:resolve-missing-external-symbol)) (il:a1882 (quote function)) (il:a1883 "Handle missing external symbols in a package during read.")) (il:set-documentation il:a1881 il:a1882 il:a1883)) il:resolve-use-package-conflicta0001a0002 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 0 package) ioP (11 format 8 %package-name) nil ( 4 "Unintern conflicting symbols from ~A (VERY DANGEROUS)") il:resolve-use-package-conflicta0001a0003 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 0 il:pkg) ioP (11 format 8 %package-name) nil ( 4 "Unintern conflicting symbols from ~A (VERY DANGEROUS)") il:resolve-use-package-conflicta0001a0004 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 0 package) ioP (11 format 8 %package-name) nil ( 4 "Let symbols in package ~s shadow all others (pushdown order)") il:resolve-use-package-conflicta0001a0005 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 0 il:pkg) ioP (11 format 8 %package-name) nil ( 4 "Abort using package ~s") il:resolve-use-package-conflicta0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1907 il:f 2 il:*proceed-cases* il:f 3 package il:f 4 il:pkg il:f 5 il:cset) ggggQgjgggg gggQgkgggg gggQglgggg gggQglgggg RoT US (151 il:\\mvlist 148 error 145 %package-name 140 %package-name 124 il:make-proceed-case 93 il:make-proceed-case 62 il:make-proceed-case 32 il:make-proceed-case) (120 il:resolve-use-package-conflicta0001a0005 117 :report 114 il:true 111 :test 106 :selector 102 :tag 99 il:abort-use-package-proceed 96 :name 89 il:resolve-use-package-conflicta0001a0004 86 :report 83 il:true 80 :test 75 :selector 71 :tag 68 il:allow-shadow-proceed 65 :name 58 il:resolve-use-package-conflicta0001a0003 55 :report 52 il:true 49 :test 45 :selector 41 :tag 38 il:unintern-usee-proceed 35 :name 28 il:resolve-use-package-conflicta0001a0002 25 :report 22 il:true 19 :test 15 :selector 11 :tag 8 il:unintern-user-proceed 5 :name 2 :normal) ( 136 "Use'ing package ~A results in name conflicts for symbols:~% ~{~S ~}~%") il:resolve-use-package-conflicta0006 il:d1 (il:l (0 il:condition) il:f 1 il:cset il:f 2 package) QHdR HX(12 il:moby-unintern) nil () il:resolve-use-package-conflicta0007 il:d1 (il:l (0 il:condition) il:f 1 il:pkg il:f 2 il:cset) RHd Q Q HX(19 il:moby-unintern 15 find-symbol 11 symbol-name) nil () il:resolve-use-package-conflicta0008 il:d1 (il:l (0 il:condition)) hnil nil () il:resolve-use-package-conflicta0009 il:d1 (il:l (0 il:condition)) g (5 il:retfrom) (2 use-package) () il:resolve-use-package-conflict il:d1 (il:p 0 il:proceed-case1907 il:i 2 package il:i 1 il:cset il:i 0 il:pkg) rAg bhhHg AIIJdgK j:gJdk:gl:gJl:gjKdMk]nhl4 ML(105 il:\\lisperror 43 values-list 21 il:\\catch-funcall 6 sort) (80 il:resolve-use-package-conflicta0009 70 il:resolve-use-package-conflicta0008 61 il:resolve-use-package-conflicta0007 50 il:resolve-use-package-conflicta0006 36 :normal 18 il:resolve-use-package-conflicta0001 3 string<) () (let* ((il:a1884 (quote il:resolve-use-package-conflict)) (il:a1885 (quote function)) (il:a1886 "Handle a conflict from use-package.")) (il:set-documentation il:a1884 il:a1885 il:a1886)) il:resolve-export-conflicta0001 il:d1 (il:l (1 il:b 0 il:a)) @ A (10 string< 7 %package-name 3 %package-name) nil () il:resolve-export-conflicta0002a0003 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Unintern conflicting symbols in package(s)~*~*~{~S ~}~%(VERY DANGEROUS)") il:resolve-export-conflicta0002a0004 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 0 package) ioP (11 format 8 %package-name) nil ( 4 "Abort exporting the symbols from package ~s") il:resolve-export-conflicta0002 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1917 il:f 2 il:*proceed-cases* il:f 3 il:cpackages il:f 4 package il:f 5 il:cset) _ggggQgjgggg gggQgkgggg RoT UgS (90 il:\\mvlist 87 error 84 mapcar 76 %package-name 62 il:make-proceed-case 32 il:make-proceed-case) (80 %package-name 58 il:resolve-export-conflicta0002a0004 55 :report 52 il:true 49 :test 45 :selector 41 :tag 38 il:abort-export-proceed 35 :name 28 il:resolve-export-conflicta0002a0003 25 :report 22 il:true 19 :test 15 :selector 11 :tag 8 il:unintern-proceed 5 :name 2 :normal) ( 72 "Exporting these symbols from the ~A package:~%~{~S ~}~% results in name conflicts with package(s):~%~{~A ~}~%") il:resolve-export-conflicta0005 il:d1 (il:l (0 il:condition) il:f 3 il:cset il:f 4 il:cpackages il:f 5 il:syms) $T!H US SZHXI J(29 il:moby-unintern 12 nset-difference) nil () il:resolve-export-conflicta0006 il:d1 (il:l (0 il:condition)) g (5 il:retfrom) (2 export) () il:resolve-export-conflict il:d1 (il:p 0 il:proceed-case1917 il:i 3 il:syms il:i 2 il:cpackages il:i 1 il:cset il:i 0 package) fAg bBg bhhHg AIIJdgK j:gJk:gjKdMk]nhl4 ML(93 il:\\lisperror 52 values-list 30 il:\\catch-funcall 15 sort 6 sort) (68 il:resolve-export-conflicta0006 59 il:resolve-export-conflicta0005 45 :normal 27 il:resolve-export-conflicta0002 12 il:resolve-export-conflicta0001 3 string<) () (let* ((il:a1887 (quote il:resolve-export-conflict)) (il:a1888 (quote function)) (il:a1889 "Handle a conflict raised by export.")) (il:set-documentation il:a1887 il:a1888 il:a1889)) il:resolve-export-missinga0001a0002 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Import these symbols") il:resolve-export-missinga0001a0003 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 0 package) ioP (11 format 8 %package-name) nil ( 4 "Abort export to package ~s") il:resolve-export-missinga0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1928 il:f 2 il:*proceed-cases* il:f 3 package il:f 4 il:missing) XggggQgjgggg gggQgkgggg RoS T (83 il:\\mvlist 80 error 76 %package-name 62 il:make-proceed-case 32 il:make-proceed-case) (58 il:resolve-export-missinga0001a0003 55 :report 52 il:true 49 :test 45 :selector 41 :tag 38 il:abort-export-proceed 35 :name 28 il:resolve-export-missinga0001a0002 25 :report 22 il:true 19 :test 15 :selector 11 :tag 8 il:import-proceed 5 :name 2 :normal) ( 72 "These symbols are not available in the ~A package:~%~{~S ~}~%") il:resolve-export-missinga0004 il:d1 (il:l (0 il:condition) il:f 0 il:missing il:f 1 package) PQ (4 import) nil () il:resolve-export-missinga0005 il:d1 (il:l (0 il:condition)) g (5 il:retfrom) (2 import) () il:resolve-export-missing il:d1 (il:p 0 il:proceed-case1928 il:i 1 il:missing il:i 0 package) ]Ag bhhHg AIIJdgK j:gJk:gjKdMk]nhl4 ML(84 il:\\lisperror 43 values-list 21 il:\\catch-funcall 6 sort) (59 il:resolve-export-missinga0005 50 il:resolve-export-missinga0004 36 :normal 18 il:resolve-export-missinga0001 3 string<) () (let* ((il:a1890 (quote il:resolve-export-missing)) (il:a1891 (quote function)) (il:a1892 "Handle missing symbols needed to export.")) (il:set-documentation il:a1890 il:a1891 il:a1892)) il:resolve-import-conflicta0001a0002 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Import symbols with shadowing-import") il:resolve-import-conflicta0001a0003 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 0 package) ioP (11 format 8 %package-name) nil ( 4 "Abort import into package ~s") il:resolve-import-conflicta0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1932 il:f 2 il:*proceed-cases* il:f 3 package il:f 4 il:cset) XggggQgjgggg gggQgkgggg RoS T (83 il:\\mvlist 80 error 76 %package-name 62 il:make-proceed-case 32 il:make-proceed-case) (58 il:resolve-import-conflicta0001a0003 55 :report 52 il:true 49 :test 45 :selector 41 :tag 38 il:abort-import-proceed 35 :name 28 il:resolve-import-conflicta0001a0002 25 :report 22 il:true 19 :test 15 :selector 11 :tag 8 il:shadowing-import-proceed 5 :name 2 :normal) ( 72 "Importing these symbols into the ~A package causes a name conflict:~%~{~S ~}~%") il:resolve-import-conflicta0004 il:d1 (il:l (0 il:condition)) hnil nil () il:resolve-import-conflicta0005 il:d1 (il:l (0 il:condition)) g (5 il:retfrom) (2 import) () il:resolve-import-conflict il:d1 (il:p 0 il:proceed-case1932 il:i 1 il:cset il:i 0 package) ]Ag bhhHg AIIJdgK j:gJk:gjKdMk]nhl4 ML(84 il:\\lisperror 43 values-list 21 il:\\catch-funcall 6 sort) (59 il:resolve-import-conflicta0005 50 il:resolve-import-conflicta0004 36 :normal 18 il:resolve-import-conflicta0001 3 string<) () (let* ((il:a1893 (quote il:resolve-import-conflict)) (il:a1894 (quote function)) (il:a1895 "Handle conflict signalled by import. Returning from here does shadowing import.")) ( il:set-documentation il:a1893 il:a1894 il:a1895)) il:resolve-unintern-conflicta0001a0002 il:d1 (il:l (1 stream 0 il:datum)) oA (7 write-string) nil ( 3 "Shadowing import a symbol") il:resolve-unintern-conflicta0001a0003 il:d1 (il:l (0 il:proceed-case) il:i 1 *standard-output* il:f 0 symbol il:f 1 package) ioPQ (12 format 9 %package-name) nil ( 4 "Abort unintern of symbol ~s from package ~s") il:resolve-unintern-conflicta0001 il:d1 (il:p 0 il:*proceed-cases* il:f 1 il:proceed-case1936 il:f 2 il:*proceed-cases* il:f 3 symbol il:f 4 il:cset) UggggQgjgggg gggQgkgggg RoST (80 il:\\mvlist 77 error 62 il:make-proceed-case 32 il:make-proceed-case) (58 il:resolve-unintern-conflicta0001a0003 55 :report 52 il:true 49 :test 45 :selector 41 :tag 38 il:abort-unintern-proceed 35 :name 28 il:resolve-unintern-conflicta0001a0002 25 :report 22 il:true 19 :test 15 :selector 11 :tag 8 il:shadowing-import-proceed 5 :name 2 :normal) ( 72 "Uninterning symbol ~S causes name conflict among these symbols:~%~{~S ~}~%") il:resolve-unintern-conflicta0004 il:d1 (il:l (0 il:condition) il:f 2 il:cset il:f 3 package) U`dodRdi dg dgjdndhHdI  HRHS gi (79 il:retfrom 71 shadowing-import 59 il:menu) (75 unintern 32 il:defaultmenuheldfn 25 il:clrprompt 2 il:|MENUTYPE#|) ( 8 "Choose symbol to shadowing-import") il:resolve-unintern-conflicta0012 il:d1 (il:l (0 il:condition)) g (5 il:retfrom) (2 unintern) () il:resolve-unintern-conflict il:d1 (il:p 0 il:proceed-case1936 il:i 2 package il:i 1 il:cset il:i 0 symbol) ]Ag bhhHg AIIJdgK j:gJk:gjKdMk]nhl4 ML(84 il:\\lisperror 43 values-list 21 il:\\catch-funcall 6 sort) (59 il:resolve-unintern-conflicta0012 50 il:resolve-unintern-conflicta0004 36 :normal 18 il:resolve-unintern-conflicta0001 3 string<) () (let* ((il:a1896 (quote il:resolve-unintern-conflict)) (il:a1897 (quote function)) (il:a1898 "Handle a conflict noted by unintern.")) (il:set-documentation il:a1896 il:a1897 il:a1898)) il:symbol-inspect-fetchfn il:d1 (il:l (1 il:property 0 il:object)) :Adg@ g@ @ gAdg@g@ (55 symbol-package 26 symbol-value 21 boundp 11 symbol-name) (48 package 36 il:plist 30 il:nobind 15 il:value 4 il:name) () il:symbol-inspect-storefn il:d1 (il:l (2 il:value 1 il:property 0 il:object)) 8Adgo g@B Adg@BBg@B (53 il:setf-symbol-package 25 set 14 il:promptprint) (45 package 31 il:plist 18 il:value 4 il:name) ( 11 "Can't set symbol name") (let ((il:form (quote ((il:function symbolp) (il:name il:value il:plist package) il:symbol-inspect-fetchfn il:symbol-inspect-storefn nil nil nil "Symbol inspector")))) (cond ((not ( il:member il:form il:inspectmacros)) (il:setq il:inspectmacros (cons il:form il:inspectmacros))))) il:package-inspect-fetchfn il:d1 (il:l (1 il:property 0 il:object)) GAdg@ g@ Adg@ g@ Adg@ g@ (68 %package-shadowing-symbols 57 %package-external-symbols 44 %package-internal-symbols 34 %package-use-list 21 %package-nicknames 11 %package-name) (61 il:shadowing-symbols 50 il:external-symbols 38 il:internal-symbols 27 il:use-list 15 il:nicknames 4 il:name) () il:package-inspect-storefn il:d1 (il:l (2 il:value 1 il:property 0 il:object)) o (6 il:promptprint) nil ( 3 "Can't set the fields of a package") (let ((il:form (quote ((il:function packagep) (il:name il:nicknames il:use-list il:internal-symbols il:external-symbols il:shadowing-symbols) il:package-inspect-fetchfn il:package-inspect-storefn nil nil nil "Package inspector")))) (cond ((not (il:member il:form il:inspectmacros)) (il:setq il:inspectmacros (cons il:form il:inspectmacros))))) il:package-hashtable-inspect-fetchfn il:d1 (il:l (1 il:property 0 il:object)) 0Adg@ g@ Adg@ g@ (45 package-hashtable-table 34 package-hashtable-deleted 21 package-hashtable-free 11 package-hashtable-size) (38 il:contents 27 il:deleted 15 il:free 4 il:size) () il:package-hashtable-inspect-storefn il:d1 (il:l (2 il:value 1 il:property 0 il:object)) o (6 il:promptprint) nil ( 3 "Can't set the fields of a package-hashtable") (let ((il:form (quote ((il:function package-hashtable-p) (il:size il:free il:deleted il:contents) il:package-hashtable-inspect-fetchfn il:package-hashtable-inspect-storefn)))) (cond ((not (il:member il:form il:inspectmacros)) (il:setq il:inspectmacros (cons il:form il:inspectmacros))))) (il:putprops il:cmlpackage il:filetype compile-file) (il:putprops il:cmlpackage il:makefile-environment (:readtable "XCL" :package "LISP")) (il:putprops il:cmlpackage il:copyright ("Xerox Corporation" 1986)) nil