Re: [bep] learning lisp

[tomo@kanji.zinbun.kyoto-u.ac.jp ($B]

>>>>> In [bep : No.] 
>>>>>	"n$B9b66$5$s(B" = TAKAHASHI Naoto <ntakahas@...> wrote:

n$B9b66$5$s(B> n$B9b66$G$9!#<1$G$9!#(BEmacs
n$B9b66$5$s(B> Lisp $B$G$O0lHL$K%7%s%\%k$H8F$s$G$$$^$9!#(B

$B;d$N5-21$G$O!"%"%H%`$O35G0E*$K$O(B cons $BBP!J%j%9%H!K$N$h$&$KMWAG$H$7$F(B S
$B<0$r4^$^$J$$!"4pK\$H$J$k7?$N$3$H$@$H;W$$$^$9!#%7%s%\%k$O%"%H%`$N0l$D$G(B
$B$9$,$3$NB>$K$b@0?t$H$+J8;z$J$I$5$^$6$^$J$b$N$,$"$j$^$9!#(B

;; $B$A$J$_$K!"(BEmacs Lisp $B$d(B Common Lisp $B$G$O(B cons $BBP0J30$O$_$s$J%"%H%`(B
;; $B$_$?$$$G$9$M!#(B


$B$A$J$_$K(B S $B<0$O(B

	$B!V%"%H%`!W$O!V(BS $B<0!W$G$"$k!#(B
	cons $BBP!V(B($B!V(BS $B<0!W(B . $B!V(BS $B<0!W(B) $B!W$O!V(BS $B<0!W$G$"$k!#(B
		     :

$B$N$h$&$K:F5"E*$KDj5A$G$-$^$9!#$G$b$C$F>e5-$r(B

(defun $BI>2A(B (S$B<0(B)
  (if (consp S$B<0(B)
      (cons$B$rI>2A(B S$B<0(B)
    (atom$B$rI>2A(B S$B<0(B)))

(defun cons$B$rI>2A(B (S$B<0(B)
  (if (eq (car S$B<0(B) 'quote)
      S$B<0(B
    (apply (car S$B<0(B)(cdr S$B<0(B))))

(defun atom$B$rI>2A(B (S$B<0(B)
  S$B<0(B)

$B$N$h$&$K(B Lisp $B$G=q$-I=$;$P(B Lisp $B%W%m%0%i%`$r2r2A!W$,=q$1(B
$B$^$9!#$3$l$,4X?t(B eval $B$G$9!#$G!"(B

(defun $BBPOC7?I>2A4o(B ()
  (while t
    (print ($BI>2A(B (read)))))

$B$N$h$&$J!VBPOC7?I>2A4o!W$,(B Lisp $B%$%s%?!<%W%j%?!<$G$9!#(B:-)

$B2A!W$N$H$3$m$,7?$N?t(B
$B$@$1>r7oJ,4t$9$k$J$I$b$C$HJ#;($K$J$C$F$$$^$9$,4pK\86M}$O0l=o$G$9!#(B

$B0J>e8=