🚀 go-pugleaf

$B8M3a!wIY;NDL$G$9!#(B

$BCf@n!!42<#(B $B$5$s!"(Bwrote:
> $B8M3a$5$s(B, mke-node.el $B$N@hF,$K(B
> (require 'mke-lisp)
> $B$r=q$$$?J}$,NI$$$H;W$$$^$9!#(B
> mke-node.el $B$N%m!<%I$K(B defun-naive, for $B$,I,MW$G$9$7!";HMQ$K(B
> make-dimensional-combiner $B$,I,MW$G$9$N$G!#(B

$B$&!A$s!"(Bmke-node.el $B$O:G=*E*$K$O!"(Bmke-lisp.el $B$KE}9g$7$h$&$+$H(B
$B;W$C$F$$$?$s$G$9$,!#$G$b!"%=!<%9$,8=>u$GJ,$+$l$F$$$k$s$G$9$+$i!"(B
$B$3$&$$$&G[N8$,I,MW$G$7$?$M!#(Bm(_ _)m

$B$h$/9M$($?$i!"(Bmke-node.el $B$_$?$$$J%l%Y%k$N4X?t72$,$^$?$G$-$F$/(B
$B$k$h$&$J5$$,$7$^$9$N$G!"(Bmke-lisp.el $B$O8=>u(B("mke-lisp.el,v 1.37")
$B$N;EMM$G%U%#%C%/%9$7$F$*$$$F!"B>$N(B Mick-Lisp $B4X?t72$O!"$=$N;EMM(B
($B4X?t(B/$B%^%/%m(B)$B$K0MB8$9$k$H$$$&J}$,ET9g$,NI$$$+$b$7$l$^$;$s!#(B

$B$H$$$&$3$H$G!"Cf@n$5$s$N8f;XE&$NDL$j!"0J9_$NHG$G$O!"(B
(require 'mke-lisp) $B$rF~$l$FG[I[$9$k$h$&$K$5$;$F$$$?$@$-$^$9!#(B

-- 
/**********************************************************************
 * Akio TOKAJI (tokaji@db.nm.fujitsu.co.jp) / Fujitsu Limited
 *
 *       "Imagination is more important than knowledge"
 *                  (fortune cookie's message)
 **********************************************************************/