🚀 go-pugleaf

$B86ED!w5~Bg$G$9(B. $BCY$$%U%)%m!<$G$9$,(B... $BAaLn!wL>9)Bg$5$s$K$O%a!<%k$GJV;v$r(B
$B$@$7$^$7$?$,(B, $B$=$N$"$HH=$C$?$3$H$b$"$j$^$9$N$G(B, $B$^$H$a$H$7$FEj9F$7$^$9(B.

In article <K_ERA.92Mar24153040@pluto510.pluto.ai.kyutech.ac.jp> k_era@pluto.ai.kyutech.ac.jp writes:
>
>$B;d$b(B, PCL $B$r(B SUN3, DEC3100 $B>e$G(B make $B$7$h$&$H$7$F$$$F(B, $BAaLn$5$s$+$i(B 
>patch $BEy0l<0$$$?$@$$$F(B, SUN3 $B>e$N(B AKCL 1.609 $B$G(B compile $B$7$?$H$3$m(B, 
>vector.lisp $B$N$H$3$m$G(B, 
>
>Error: PROCLAIM-DEFMETHOD is invalid as a function.
>Fast links are on: do (use-fast-links nil) for debugging
>Error signalled by DEFMETHOD.
>Backtrace: compiler::t1expr > funcall > funcall > DEFMETHOD
>; (DEFMETHOD RAW-INSTANCE-ALLOCATOR ...) is being compiled.
>;;; The macro form (DEFMETHOD ...) was not expanded successfully.
>No FASL generated.
>
>$B$r(B 3 $B2s7+$jJV$7$F%3%1$^$9(B. proclaim-defmethod $B$rA\$7$?$N$G$9$,(B, $B$_$D$+(B
>$B$j$^$;$s(B. $B$A$J$_$K(B proclaim-defmethod $B$O(B boot.lisp $BFb$G(B, kcl $B$K$H$-$@(B
>$B$1<B9T$5$l$k$b$N$N$h$&$G$9(B. $B$G$b(B, describe $B$G$O=P$F$3$J$$$7!&!&!&(B(;_;)

$B$O$C$-$j$$$&$H(B :-O $B$3$l$O%P%0$G$9(B. kcl-low.lisp$B$N$J$+$G(B proclaim-method $B$H(B, 
$B$D$E$j$,4V0c$C$F$^$9(B.
                    
$B$=$l$+$i(B, sys-proclaim.lisp $B$b8E$$$b$N$,F~$C$F$$$kMM$G$9(B. $B$3$l$O(B KCL $B$G(B
$B%3%s%Q%$%k$N:GE,2=$N$?$a$K4X?t$N7?$r@k8@$7$F$$$k%U%!%$%k$G(B, $B<+F0@8@.(B
$B$5$l$F$$$^$9(B. $B@8@.$7D>$9$K$O(B, $BBgBN0J2<$NMM$J<j=g$rF'$a$P$G$-$^$9(B.

(0)
$B$H$j$"$($:(B0$B%P%$%H$N(Bsys-proclaims.lisp$B$rMQ0U$9$k(B.

(1)
${AKCLDIR}/cmpnew/collectfn.o $B$r%m!<%I$7(B, (compiler::emit-fn t) $B$H$7$?$"$H$G(B
(pcl::compile-pcl)$B$r9T$&$H(B *.fn $B$H$$$&L>A0$G(B proclaim $B$N>pJs$r=8$a$?%U%!%$(B
$B%k$,$G$-$k(B. $B$G$-$?%*%V%8%'%/%H%U%!%$%k$O0lC6>C$9(B.

(2)
${AKCLDIR}/cmpnew/collectfn.o $B$*$h$S(B ${AKCLDIR}/lsp/sys-proclaim.lisp $B$r(B
$B%m!<%I$7$?$"$H$G(B, (compiler::make-all-proclaims "*.fn") $B$r<B9T$9$k$H(B, 
sys-proclaim.lisp $B$,%+%l%s%H%G%#%l%/%H%j$K:n@.$5$l$^$9(B.

(3)
$BF1$84X?t$,J#?t2sDj5A$5$l$F$$$?$j$9$k$H$-(B, $B$=$N$h$&$J4X?t$K(Bproclaim$B$r$+$1$k(B
$B$H%3%s%Q%$%i$,%P%0$k$3$H$,$"$k(B. $B$=$&$$$C$?$b$N$O(B sys-proclaim.lisp $B$+$i(B
$B:o=|$9$k(B. $B$3$N$h$&$J4X?t$NCf$K$O(B, $B%3%s%Q%$%i$,0l;~E*$K:n@.$7$?(BCMP-ANON
(anonymous$B$N0UL#$@$H;W$&$,(B...)$B$J$I$b4^$^$l$F$$$k$N$G(B, $BMWCm0U(B.

(4)
$B$"$?$i$7$$(Bsys-proclaims.lisp $B$r$D$+$C$F(B (compile-pcl)$B$r$d$j$J$*$9(B.
$B$G$-$"$,$j(B.

$B$h$/$o$+$i$J$+$C$?$i(B, $AKCLDIR/makefile $B$H$+(B $AKCLDIR/cmpnew/collectfn.lsp
$B$rD/$a$F2<$5$$(B. $B$=$l$G$b$o$+$i$J$+$C$?$i(B, 0$B%P%$%H$N(B sys-proclaim.lisp $B$G(B
$BBeMQ$7$F$b(B, $B<B9T8zN($,Mn$A$k$N$r2fK}$9$l$P0l1~F0:n$7$^$9(B($B$@$$$?$$(B, $B0JA0$N(B
$B%P!<%8%g%s$G$O4X?t$N7?$N@k8@$H$+$O$5$\$C$F$F$d$C$F$J$+$C$?$7(B)

$B!c$5$F(B, $BM>CL!d(B
$B:G6a$N(Bcomp.lang.clos (.lisp.clos ?)$B$K$h$k$H(B, $B?7$7$$%P!<%8%g%s$N(BPCL$B$,(B
$B&B%j%j!<%9$5$l$F$$$^$9(B. $B$3$N?7%P!<%8%g%s$K$*$$$F$b(B, $B$J$<$+>e5-$N(B
$B%P%0(B(kcl-low.lisp, sys-proclaim.lisp) $B$,;D$C$?$^$^$G$9$N$G$4Cm0U2<$5$$(B.

$B?7%P!<%8%g%s$K$*$$$F$O(B, $B>e5-$N<j=g$G:n@.$7$?(Bsys-proclaim.lisp$B$+$i$O(B,
PCL::MAKE-CLASS-PREDICATE, CMP-ANON $B$NFs$D$N@k8@$r:o=|$9$l$PF0:n$7(B
$B$^$9(B. 

-- 
Michiaki Harada

Dept.of Information Science, Kyoto University
E-MAIL:   harada@kuis.kyoto-u.ac.jp