Newsgroups: fj.lang.lisp,fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!infoweb-news!news.tokyo.infoweb.or.jp!fgwnews!fdmnews!flabnews!regain!asimov!kastner!suguta
From: suguta@soft.flab.fujitsu.co.jp (Shigeki Suguta)
Subject: Re: Combination of multiple lists
In-Reply-To: tokaji@db.nm.fujitsu.co.jp's message of 27 Feb 1996 08:57:42 GMT
Message-ID: <SUGUTA.96Feb29095158@gardner.soft.flab.Fujitsu.CO.JP>
Sender: news@soft.flab.fujitsu.co.jp (network news maintainer)
Nntp-Posting-Host: gardner
Organization: Software Lab. Fujitsu Laboratories Ltd., Kawasaki, Japan.
References: <TOKAJI.96Feb24163434@zaurus.db.nm.fujitsu.co.jp>
	<TOKAJI.96Feb27175742@zaurus.db.nm.fujitsu.co.jp>
Distribution: fj
Date: Thu, 29 Feb 1996 00:51:58 GMT
Lines: 40
Xref: galaxy.trc.rwcp.or.jp fj.lang.lisp:909 fj.editor.emacs:6045
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=6045&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


  $BD>ED!wIY;NDL8&$H?=$7$^$9(B. Lisp$B9%$-$N$?$V$sJQ?M$G$9(B. (^.^)

$B8M3a$5$s!'(B
>   $B!tB>$K$"$l$P!"$b$C$HFM$$$F$/$@$5$$!#(Bm(_ _)m

$B$H$$$&$3$H$J$s$G(B, $B:Y$+$$J86g$r$D$1$5$;$FD:$-$^$9(B. (^.^)

>   Emacs $B$N(B Common Lisp $B%Q%C%1!<%8$r;H$C$F=q$-$J$*$7$F$_$^$7$?!#(B

 GNU Emacs Lisp $B$O(B Common Lisp$B$G$O$"$j$^$;$s!*!*(B $B$H$b$K(BMacLisp$B7O$J$N$G(B
$B;w$F$$$k$H$3$m$OBt;3$"$j$^$9$,(B, $B0l=o$K$7$J$$$G2<$5$$(B. 

>   Emacs $B$N!V$/$;!W$G!"0J2<$N$h$&$KJQ99$7$J$1$l$P$J$j$^$;$s!#(B
>
>     `x $B"*(B (` x)
>     ,x $B"*(B (, x)
>     ,@x $B"*(B (,@ x)

  $B$3$NJJ$O;d$b7y$$$G$7$?$,(B, Emacs 19.29$B0J9_$G$O2r>C$5$l$?$h$&$G$9(B. 

>   (progn
>     (require 'cl)

  Common Lisp $B%Q%C%1!<%8$rFI$_9~$s$G$$$k$o$1$G$9$M(B. GNU Emacs Lisp$B$G$O(B
gensym$B$KAjEv$9$k(B make-symbol $B$H$$$&4X?t$r;H$($P(B, $B$=$&$$$&$3$H$r$7$J$/(B
$B$F$b$h$/$J$k$O$:$G$9(B.

  $B$H$b$+$/(B, GNU Emacs Lisp$B%j%U%!%l%s%9%^%K%e%"%k$N%^%/%m$N$H$3$m$rFI(B
$B$s$G$_$F2<$5$$(B. $BLdBj$K$J$C$?%^%/%mFb$N0l;~JQ?t$N>WFM$N2sHrJ}K!$b$A$c$s(B
$B$H=q$$$F$"$j$^$9(B.

$B!t;d$N;}$C$F$$$k$N$O!V(BGNU Emacs Lips$B%j%U%!%l%s%9%^%K%e%"%k!W(B(^.^) 
                                  ^^
$B!t$G$b(BStallman$B$N%5%$%sIU$-(B
--

                                    $BIY;NDL8&5f=j(B $B%=%U%H%&%'%"8&5fIt(B 
                                    $BD>ED(B  $BHK<y(B  (suguta@flab.fujitsu.co.jp)
                                    NIFTY: RHD02114
