を使用してすべてのパッケージを一覧表示できますLIST-ALL-PACKAGES
。
ソフトウェアをロードする前後にそれらを保持する場合、それらを比較することができます。
CL-USER 14 > (setf *print-length* 10)
10
CL-USER 15 > (list-all-packages)
(#<The SQL-COMMON package, 0/4 internal, 28/32 external> #<The QL-LISPWORKS package, 0/16 internal, 5/16 external> #<The QL-SETUP package, 25/32 internal, 3/16 external> #<The QL-ALLEGRO package, 0/16 internal, 6/16 external> #<The QL-DIST package, 110/256 internal, 81/256 external> #<The COMM package, 1053/4096 internal, 949/1024 external> #<The MP package, 921/1024 internal, 209/256 external> #<The REG package, 41/64 internal, 0/4 external> #<The LOOP package, 247/256 internal, 3/4 external> #<The QL-DIST-USER package, 0/16 internal, 0/16 external> ...)
CL-USER 16 > (defpackage "FOO")
#<The FOO package, 0/16 internal, 0/16 external>
CL-USER 17 > (list-all-packages)
(#<The SQL-COMMON package, 0/4 internal, 28/32 external> #<The QL-LISPWORKS package, 0/16 internal, 5/16 external> #<The QL-SETUP package, 25/32 internal, 3/16 external> #<The QL-ALLEGRO package, 0/16 internal, 6/16 external> #<The QL-DIST package, 110/256 internal, 81/256 external> #<The COMM package, 1053/4096 internal, 949/1024 external> #<The MP package, 921/1024 internal, 209/256 external> #<The REG package, 41/64 internal, 0/4 external> #<The LOOP package, 247/256 internal, 3/4 external> #<The QL-DIST-USER package, 0/16 internal, 0/16 external> ...)
CL-USER 18 > (set-difference * ***)
(#<The FOO package, 0/16 internal, 0/16 external>)
FOO
したがって、2つのパッケージリストの間に、パッケージが導入されていることがわかりました。
USE-PACKAGE
また、それは必ずしも有用なことではないことに注意してください。USE-PACKAGE
エクスポートされたシンボルを現在のパッケージにインポートします。これは機能する場合と機能しない場合があります。任意のシンボル名の衝突につながる可能性があります。