🚀 go-pugleaf

$BNS$H$$$$$^$9!#(B
$B$3$3$K$O=i$a$FEj9F$7$^$9!#(B
Macintosh Common Lisp 3.0p2$B!J(BMCL$B!K$GJQ$J$H$3$m$,$"$j$^$9!#(B
$BC1$J$k%P%0$@$H;W$$$^$9$,!"$3$N5!2q$K!"(BMCL$B$K>\$7$$?M$NOC$7$,!JF|K\8l$G!KJ9(B
$B$1$?$i$$$$$J$H;W$C$FEj9F$7$^$7$?!#(B

$B$^$:2<$N%W%m%0%i%`$rI>2A$7$F$/$@$5$$!#(B
1.
(gomi1)$B$rI>2A$5$;$^$9!#6I=jJQ?t(Ba$B$NCM$,(Bprint$B$5$l$F!"%@%$%"%m%0$,=P$F$-$^$9!#(B
incf$B$H$$$&%\%?%s$r2?2s$+2!$7$F!"6I=jJQ?t(Ba$B$NCM$r>e$2$^$9!#(B
$B:F$S(B(gomi1)$B$rI>2A$5$;$k$H!"(Bprint$B$5$l$k(Ba$B$NCM$,>e$,$C$F$$$^$9!#(B
$B$3$l$O!"(Bgomi1$B$r(Bgomi2$B$N$h$&$KJQ$($k$HD>$k$N$GC1$J$k%P%0$@$H;W$$$^$9!#(B
$BJQ99E@$O!"(B'(0 0)$B$r(B(list 0 0)$B$H$7$?$H$3$m$@$1$G$9!#(B
2.
(gomi3)$B$rI>2A$5$;$^$9!#(Bincf$B$H$$$&%\%?%s$r2!$9$H(Ba$B$NCM$r(B1$B>e$2$F(B*a*$B$r(Bprint$B$7(B
$B$^$9!#2?2s$+2!$7$F$b(B*a*$B$NCM$OJQ$o$j$^$;$s!#(B
$B$7$+$7!"#1EY(Bsetf$B$H$$$&%\%?%s$r2!$7$F(Ba$B$NCM$r(B*a*$B$KF~$l$k$H$=$N$"$H(Bincf$B$H$$$&(B
$B%\%?%s$r2!$9$4$H$K(B*a*$B$,(B1$B$E$D>e$,$C$F$$$C$F$7$^$$$^$9!#(B
$B$3$l$b%P%0$@$H;W$&$N$G$9$,!"$b$7$+$7$?$i=i?4<T$K$O8+$($J$$NO$,F/$$$F$$$k$N(B
$B$+$b$7$l$^$;$s!#(B
$B$I$&$$$&;EAH$G$3$s$J$3$H$,5/$3$k$N$+J,$+$k?M$,$$$?$i65$($F$/$@$5$$!#(B

$B$[$+$K<ALd$b$"$j$^$9!#(B
1.
$BKM$O(BCW$B$b$b$C$F$$$k$N$G$9$,A4A3$d$C$F$$$^$;$s!#(B
$B%W%m%0%i%`$r=q$/$H$-$K!"!J@dBP!K(BMCL$B$G$d$k$Y$-$G$J$$$3$H$J$I$O$"$k$G$7$g$&$+!)(B
2.
$BKM$O=i?4<T$J$N$G!"%j%9%W$N%W%m%0%i%`$N%9%?%$%k$K<+?.$,$J$/!"NI$/G:$_$^$9!#(B
$BBg0hJQ?t$r>/$J$/$9$k$H$$$&$3$H$r$I$3$+$GFI$s$G!"$=$l$,%j%9%W$N%W%m%0%i%_%s(B
$B%0$N$D$i$$$H$3$m$K;W$&$[$I?@7P<A$K$J$C$F$7$^$C$F$$$^$9!#(B
$BBg0hJQ?t$r$J$/$9$?$a$K8+$K$/$$%W%m%0%i%`$K$7$F$7$^$&$3$H$bB?$$$N$G$9$,!"Bg(B
$B0hJQ?t$r8:$i$9$3$H$O$I$l$/$i$$$N8zN(%"%C%W$K$J$k$N$G$7$g$&$+!)(B

$B<ALd$P$+$j$7$F$7$^$$$^$7$?$,!"C1$J$kJY6/ITB-$G$7$?$i$9$_$^$;$s!#(B


$B5~ETBg3XM}3XIt#42s@8(B
$BAm9g?M4V3XIt]/@n8&5f<<(B
$BNS(B $BNI@8!!!!!!(Byoshio@i.h.kyoto-u.ac.jp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun gomi1 ()
  (let ((a '(0 0)))
    (print a)
    (make-instance 'dialog
      :view-subviews
      (list (make-dialog-item 'button-dialog-item
              #@(100 100) #@(64 18) "incf"
              #'(lambda (item)
                  (incf (first a))))))))

(defun gomi2 ()
  (let ((a (list 0 0)))
    (print a)
    (make-instance 'dialog
      :view-subviews
      (list (make-dialog-item 'button-dialog-item
              #@(100 100) #@(64 18) "incf"
              #'(lambda (item)
                  (incf (first a))))))))

(defvar *a* '(0 0))
(defun gomi3 ()
  (let ((a (copy-list *a*)))
    (make-instance 'dialog
      :view-subviews
      (list (make-dialog-item 'button-dialog-item
              #@(100 100) #@(64 18) "incf"
              #'(lambda (item)
                  (incf (first a))
                  (print *a*)))
            (make-dialog-item 'button-dialog-item
              #@(100 75) #@(64 18) "setf"
              #'(lambda (item)
                  (setf *a* a)))))))