🚀 go-pugleaf

$@?tM}%7%9%F%`$N9uED(J$@$H$$$$$^$9!#(J
$@:G6a$h$&$d$/#C#L#O#S$r;H$C$F%"%W%j%1!<%7%g%s$r=q$$$F$$$^$9!#(J

$@#G#U#I$r4pK\$H$7$?%f!<%6%$(J$@%s%?!<%U%'!<%9Ey$+$iF0E*$K%*%V%8%'%/%H$,(J
$@@8@.$5$l$F$$$/$h$&$J%"%W%j%1!<%7%g%s$r=q$/>l9g!"(Jsmalltalk $@$N(J$@$h$&$J(J
class/inheritance $@7?$N(J OOP interface $@$h$j$b(J
prototype/delegation $@<0$N$b$N$N$[$&$,%W%m%0%i%`$,=q(J$@$-0W$$$N$G$O(J
$@$J$$$+$H:G6a$+$s$,$($k$h$&$K$J$j$^$7$?!#(J

$@9,$$!"#C#L#O#S$K$O(J change-class $@$H$$$&%a%=%C%I(J$@$,MQ0U$5$l$F$$$k$N$G!"(J
$@$3$l$r;H$C$F(J

(defmethod make-delegation ((instance standard-object) new-class
			    &rest args)
  (apply #'initialize-instance (change-class instance new-class) args)))

$@$N$h$&$J(J$@%a%=%C%I$rDj5A$7$F$_$?$N$G$9$,!"(J
$@$3$l$@$H;R6!$r;:$s$@=V4V<+J,<+?H$O;`$s$G$7$^$&$H$$$&(J $@%7%c%1(J $@$N$h$&$K(J
$@$O$+$J$$(J make-delegation $@$K$7$+$J$j$^$;$s!#$=$3$G!"(J

(defmethod make-delegation ((instance standard-object) new-class
			    &rest args)
  (apply #'initialize-instance (change-class (copy-instance instance) new-class) args)))

$@$N$h$&$K$7$?$$$N$G$9$,!"$3$3$N(J copy-instance $@$rNO$^$+$;$K=q$/0J30$K(J
$@$I$&=q$$(J$@$?$i$$$$$N$+$o$+$j$^$;$s!#(J
$@F1$8$h$&$J$3$H$r$d$C$F$$$i$C$7$c$kJ}$,$$$^$7$?$iJ}K!$r$*$-$+$;4j$($^$;(J
$@$s$+(J$@!)(J

$@<ALd$D$$$G$K!"(J
$@;d$NJ9$$$?HO0O$G$O(J Garnet $@$,(J prototype/delegation $@$N(J OOP interface
$@$r(J $@#C#L#O#S$H$O(J$@FHN)$K(J Common Lisp $@>e$K<B8=$7$F$$$k$N$H!"(J
Lisp-Stat(Luke Tierney) $@$b!"$3$l$K6a$$$b$N$G$"$k$HM}2r$7$F$$(J$@$^$9$,!"(J
$@B>$K$I$s$J1~MQNc$,$"$k$+8fB8CN$N$+$?$*$i$l$^$7$?$i!"65$($F$$$?$@$1$k$H(J
$@=u$+$j$^$9!#FC$K#C#L#O(J$@#S$rMQ$$$?$b$N$G$"$l$P$J$*$N$3$H7k9=$G$9!#(J

--
Mathematical Systems Institute Inc.			Hisao Kuroda
6F AM BLDG. 2-5-3 Shinjuku, Shinjuku-Ku			301, 1-22-2 Kyonan-cho
Tokyo, Japan 160					Musashino-shi,
E-mail : kuroda@msi.co.jp (Kuroda,Hisao)		Tokyo, Japan 180

	# Everybody's got something to hide except me and my //GS. #