$B0lIt$+$iJ86g$N=P$F$$$?(JPackage$B$r!"(JCommon Lisp$B$N;EMM$K1h$&$h$&(J
$B:n$jBX$($^$7$?!#Bg$-$J0c$$$O!"30It%7%s%\%k$HFbIt%7%s%\%k$N(J
$B6hJL$,$G$-$?$3$H$G$9!#:#$^$G$O!"$9$Y$F$N%7%s%\%k$r30It%7%s%\%k(J
$B$9$J$o$A(Jexport$B$5$l$?%7%s%\%k$H$7$F07$$!"$J$*$+$D(Jpackage $B$r(J
use$B$7$?;~E@$G$N%7%s%\%k$N>WFM$r5$$K$7$J$$$G$$$^$7$?$,!"$3$l$+$i$O(J
$B873J$J8!::$,9T$J$o$l$^$9!#(J

read$B$K$h$C$F:G=i$KFI$_9~$^$l$?%7%s%\%k$O!"FbIt%7%s%\%k$H$7$F(J
package$B$K(Jintern$B$5$l$^$9!#$3$l$r30It%7%s%\%k$K$9$k$K$O!"$=$N(J
$B%Q%C%1!<%8$+$i(Jexport$B$7$^$9!#(J

$B%f!<%6$O!"$$$D$N;~E@$G$b!"$I$l$+0l$D$N%Q%C%1!<%8$NCf$K$$$^$9!#(J
$B%G%U%)%k%H$O(J"USER" package$B$G$9!#(JLisp$B$N4X?t$O(J"LISP"$B%Q%C%1!<%8$K!"(J
$B4v2?4X?t$O(J"GEOMETRY"$B$K!"(J"UNIX","SYSTEM"$B%Q%C%1!<%8$K$O%7%9%F%`(J
$B4IM}$N4X?t$,F~$C$F$$$^$9!#(Jcurrent package$B$O!"(J*package*$BJQ?t$K(J
$B5-O?$5$l$F$$$^$9!#(JCurrent package$B$NCf$N%7%s%\%k$O!"2?$b5$$K$;$:(J
$B$K;H$($^$9!#(JETALisp$B$J$I$N%Q%C%1!<%8$,$J$$%7%9%F%`$HF1$8$G$9!#(J

$B$"$k%Q%C%1!<%8$O!"B>$N%Q%C%1!<%8$r(Juse$B$G$-$^$9!#(Juse$B$9$k$H!"(J
$B$=$N%Q%C%1!<%8$NCf$N!"30It%7%s%\%k$,!"$"$?$+$b<+J,$N%Q%C%1!<%8$N(J
$BCf$K$"$k$+$N$h$&$KMxMQ$G$-$^$9!#(JUSER$B%Q%C%1!<%8$O!"(JLISP, GEOMETRY
$B$r(Juse$B$7$F$$$k$N$G!"$3$l$i$N4X?t$,4JC1$K;H$($k$o$1$G$9!#(J

use$B$,!"%Q%C%1!<%8$N30It%7%s%\%k$r$=$C$/$j<h$j9~$`$N$KBP$7!"8D!9$N(J
$B%7%s%\%k$r<h$j9~$`$N$,(Jimport$B$G$9!#(Jimport$B$,<h$j9~$`%7%s%\%k$O!"(J
export$B$5$l$F$$$kI,MW$O$"$j$^$;$s!#(Jexport$B$5$l$F$$$k$+$I$&$+$H(J
$B$$$&$N$O!"%Q%C%1!<%8B&$K5-O?$5$l$kB0@-$G$"$C$F!"%7%s%\%k$N(J
$BB0@-$G$O$"$j$^$;$s!#$?$@$7!"%7%s%\%k$K$O!"(Jhome-package$B$H$$$&(J
$BB0@-$,$"$j$^$9!#$3$l$O!"%7%s%\%k$,:G=i$KDj5A$5$l$?%Q%C%1!<%8$G$9!#(J
$B$?$H$($P!"%Q%C%1!<%8(JA$B$K(Jexport$B$5$l$F$$$J$$%7%s%\%k(JS$B$,$"$k$H$7$^$9!#(J
$B%Q%C%1!<%8(JB$B$G$3$l$r(Jimport$B$7!"$5$i$K(Jexport$B$9$k$3$H$,$G$-$^$9!#(J
$B$3$l$r%Q%C%1!<%8(JC$B$G8+$k$H!"F10l$N%7%s%\%k$,!"(JA::S, B:S$B$H$7$F(J
$B8+$($k$3$H$K$J$j$^$9!#(J

$B$3$N$h$&$K!"(Juse, import$B$,$"$k$N$O!"%W%m%0%i%`$NI=5-$r4JC1$K$7!"(J
$B%Q%C%1!<%8$r;H$o$J$$5lMh$N%W%m%0%i%`$H$N8_49@-$rJ]$D$?$a$G$9!#(J

$B%Q%C%1!<%8(Jppp$B$N%7%s%\%k(Jsss$B$O!"$b$7$=$l$,(Jexport$B$5$l$F$$$l$P!"(Jppp:sss
export$B$5$l$F$$$J$1$l$P!"(Jppp::sss$B$H$7$F;2>H$G$-$^$9!#$3$l$O!"%+%l%s%H$J(J
$B%Q%C%1!<%8$,2?$G$"$k$+$K4X78$7$^$;$s!#0lJ}!"%+%l%s%H$J%Q%C%1!<%8$,(J
ppp$B$G$"$l$P!"$3$N(Jppp: $B$*$h$S(Jppp:: $B$O>JN,$9$k$3$H$,$G$-$^$9!#(J
$B$5$i$K!"(Jimport$B$5$l$?%7%s%\%k!"(Juse$B$5$l$?%Q%C%1!<%8$N30It%7%s%\%k$O(J
$B$3$l$i$N(Jprefix$B$r>JN,$9$k$3$H$,$G$-$^$9!#(J

CommonLisp$B$,(Jpackage$B$r@_$1$?L\E*$O!"Bg5,LO$J%=%U%H%&%'%"$rB??M?t$G(J
$B3+H/$9$k$h$&$J>l9g$K!"L>A0$N6u4V$rJ#?tMQ0U$9$k$3$H$G!"4X?tL>!"JQ?tL>(J
$B$,>WFM$9$k$3$H$rHr$1$k$?$a$G$7$?!#$7$?$,$C$F!"%Q%C%1!<%8$r(Juse$B$7$?$j(J
$B%7%s%\%k$r(Jimport, export$B$9$k>l9g$O!"L>A0$N>WFM$,$J$$$3$H$r8!::$9$k(J
$BI,MW$,$"$j$^$9!#(J




