(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE "LISP")
(il:filecreated "30-Oct-86 10:01:47" ("compiled on " il:{eris}<lispcore>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}<lispcore>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}<lispcore>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) �‘	��W
µW1Hlð´vH	��	��Y´kIALµMYd²]ZµAh
_Hð³-O	��³&Wlð˜W¥O	��„O	��O_¿Nµ
Oh^½L\°¼O&¾°÷
»HKhiI´g��
��›WµKK
��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)) �
���o���A
���(7 write-string)
nil
( 3 "Return LISP symbol, make it preferred")
il:resolve-reader-conflicta0001a0003 il:d1
(il:l (1 stream 0 il:datum)) �
���o���A
���(7 write-string)
nil
( 3 "Just return LISP symbol")
il:resolve-reader-conflicta0001a0004 il:d1
(il:l (1 stream 0 il:datum)) �
���o���A
���(7 write-string)
nil
( 3 "Return INTERLISP symbol, make it preferred")
il:resolve-reader-conflicta0001a0005 il:d1
(il:l (1 stream 0 il:datum)) �
���o���A
���(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) �—
��g��g��g��g��Qg��jg��g��g��g��
��g��g��g��Qg��kg��g��g��g��
��g��g��g��Qg��lg��g��g��g��
��g��g��g��Qg��lg��g��g��g��
��R
�o���S	��
��	���(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) ���
RPg��g��	����c�QPc�Q�(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) ��
�
P�nil
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) ���
RPg��g��	����c�QPc�Q�(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) ��
�
P�nil
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*) �¤
�@
o���Yµhž@
H
��’I°õI°ìBg��ð²ì@WAWRH“I¤@I´H¡Ahh
Og��
��Z
»J¼Kdg��ð•¿L	��j:”g��°Kdk:•¿g��°l:“g��ˆKl:´g��j¾½L°d
ýNkØ^n�ñ–hl4
��¿µì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)) ����o���o���@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) ��
�io���P	�����(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) ��
�io���P	�����(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) ��
�io���P	�����(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) ��
�io���P	�����(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) �œ
��g��g��g��g��Qg��jg��g��g��g��
��g��g��g��Qg��kg��g��g��g��
��g��g��g��Qg��lg��g��g��g��
��g��g��g��Qg��lg��g��g��g��
��R
�o���T	��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) �
�
Q
�Hd 
R
��¿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) �
�
R
�Hd 
	��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)) ����
h�nil
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) �r��Ag��
��bhh
�Hg��
��AI
ºI»Jdg��ð•¿K	��j:”g��°Jdk:•¿g��°l:“g��ˆJl:´g��j½¼K°d
ýMkØ]n�ñ–hl4
��¿µì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)) �
���o���A
���(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) ��
�io���P	�����(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) �_
��g��g��g��g��Qg��jg��g��g��g��
��g��g��g��Qg��kg��g��g��g��
��R
�o���T	��Ug��S
����	���(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
��
¹SZµHX°î
I
��¿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) �f��Ag��
��bBg��
��bhh
�Hg��
��AI
ºI»Jdg��ð•¿K	��j:“g��‡Jk:´g��j½¼K°d
ýMkØ]n�ñ–hl4
��¿µì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)) �
���o���A
���(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) ��
�io���P	�����(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) �X
��g��g��g��g��Qg��jg��g��g��g��
��g��g��g��Qg��kg��g��g��g��
��R
�o���S	��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��
��bhh
�Hg��
��AI
ºI»Jdg��ð•¿K	��j:“g��‡Jk:´g��j½¼K°d
ýMkØ]n�ñ–hl4
��¿µì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)) �
���o���A
���(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) ��
�io���P	�����(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) �X
��g��g��g��g��Qg��jg��g��g��g��
��g��g��g��Qg��kg��g��g��g��
��R
�o���S	��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)) ����
h�nil
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��
��bhh
�Hg��
��AI
ºI»Jdg��ð•¿K	��j:“g��‡Jk:´g��j½¼K°d
ýMkØ]n�ñ–hl4
��¿µì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)) �
���o���A
���(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) ���io���PQ	�����(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) �U
��g��g��g��g��Qg��jg��g��g��g��
��g��g��g��Qg��kg��g��g��g��
��R
�o���ST��	���(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�
`��do���¿dR¿di¿dg�� ¿dg��¿jdnÿdh
HdI
¿	��
�HRHS
��¿g��i
��¿°®�(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��
��bhh
�Hg��
��AI
ºI»Jdg��ð•¿K	��j:“g��‡Jk:´g��j½¼K°d
ýMkØ]n�ñ–hl4
��¿µì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��ð@	��”@	��g��Adg��ð–¿@ÁÉ�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)) �8���Adg��ð˜¿o���	��g��ð•@B
��Adg��ð˜¿@ÁB�Bg��ð´@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)) �G���Adg��ð•¿@	��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)) �0���Adg��ð•¿@	��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