foreign-string$B$O$I$&$d$C$F;H$&$N$+$H$$$&<ALd$,Mh$F$$$^$9!#(J
$B4JC1$G$9!#(Jmake-foreign-string$B$H$$$&4X?t$,$"$j$^$9!#(J1$B$D$a$N(J
$B0z?t$,JQ?t$N%"%I%l%9!"(J2$B$D$a$N0z?t$,%9%H%j%s%0$N%P%$%H?t$G$9!#(J

(setq fs (make-foreign-string #x2000 32))

$B$3$l$O$J$s$G$7$g$&!#(Jfs$B$O!"(J#x2000$BHVCO$+$i$N(J32$B%P%$%H$NJ8;zNs(J
$B$rI=8=$7$^$9!#$3$l$O(Jsun$B$G$O(Ja.out$B%X%C%@$NNN0h$KAjEv$7$^$9!#(J
(dump-string fs)
$B$J$I$H$9$k$H!"%^%8%C%/%J%s%P$d$i%F%-%9%H%;%0%a%s%H$NBg$-$5(J
$B$d$i$,$o$+$j$^$9!#(J

foreign-string$B$O!"MWAG7?$,(Jforeign$B$G$"$k$h$&$J%Y%/%?$H$7$F?6Iq(J
$B$$$^$9!#4qL/$J$3$H$K%9%H%j%s%0$G$O$"$j$^$;$s!#%9%H%j%s%0$OMWAG$N(J
$B7?$,%P%$%H$G$"$k$h$&$J%Y%/%?$@$+$i$G$9!#%P%$%HC10L$G$NFI$_=q$-$O!"(J
aref,setf$B$J$I$G9T$J$$$^$9!#(J
(aref fs 1)  
(setf (aref fs  1) 128)
$B$H$3$m$,!"$3$l$O(Jcore-dump$B$7$^$9!#(Ja.out$B$N%X%C%@$O%F%-%9%H$N@hF,(J
$B$K$"$C$F=q$-9~$_6X;_$@$+$i$G$9!#(J

$B%7%g!<%H%o!<%I!"%m%s%0%o!<%IC10L$G$NFI$_=q$-$K$O!"(Jpeek,poke$B$r(J
$B;H$$$^$9!#(J
(sys:peek string offset [:byte | :short | :long])
(sys:poke value string offset  [:byte | :short | :long])

$B$3$3$G$b!"(Jsun3$B$O$$$$$G$9$,!"(Jsparc$B$O4q?tHVCO$+$i%o!<%I$N%"%/%;%9(J
$B$r$9$k$H(Jsegmentation-fault$B$r5/$3$7$^$9$+$iCm0U$7$F2<$5$$!#(J

foreign-string$B$O!"<g$K!"(Jmalloc,valloc,mmap$B$J$I$HAH$_9g$o$;$F;H(J
$B$$$^$9!#$b$&$R$H$D!"(Jshmget($B6&M-%a%b%j(J)$B$HAH$_9g$o$;$kJ}K!$,$"$j(J
$B$^$9$,!"$3$N5!G=$O(Jsystem5$B5/8;$G$"$j!"$"$^$j;H$o$l$J$$$h$&$J$N$G(J
$B%$%s%W%j$7$F$"$j$^$;$s!#(JSunOS4.0$B$N(Jmmap$B$r;H$($P4JC1$K6&M-%a%b%j(J
$B$,:n$l$k$h$&$G$9!#(J

