Lisp@UNIX版

**名無しさん＠お腹いっぱい。** · NG

なんだかんだ言って，ホントはみんなLispが好きなんだろ?(藁)
というわけで，語ろうや．

プログラム技術板のLisp Schemeスレ
http://pc.2ch.net/test/read.cgi/tech/1016211619/

**名無しさん＠ＸＥｍａｃｓ** · NG

>>50は勉強し始めの厨房か?
大昔に、大型計算機上で自分で仮想記憶していたLisp処理系もあったんだけどね。
HLISPつーんだっけな…

**名無しさん＠お腹いっぱい。** · NG

emacsをバリバリ設定変更するようにできるには
どのくらいかかりますか？

ちなみにM-x customizeしろとか言わないでね。

**名無しさん＠お腹いっぱい。** · NG

>>57
人それぞれ。

**名無しさん＠お腹いっぱい。** · NG

>>57
プロの人なら4,5日それだけをやれば出来ます。

**名無しさん＠お腹いっぱい。** · NG

>>57 emacs-lisp-intro を半分読み終えた頃．まずは読め．

**名無しさん＠お腹いっぱい。** · NG

>>56
私は勉強し始めの厨房かもしれないけど、50ではないです。
50の言うことに賛同しているわけでもないけど、でも、HLISPなんてしりません。
ていうか、ナニソレ？

**名無しさん＠お腹いっぱい。** · NG

clispさいこー

**名無しさん＠お腹いっぱい。** · NG

もう HLISP も忘れられてるようですね。後藤先生。

61 · NG

すみません。はぎゃ先生のエッセイ、以前に読んだことあったのを思い出しました。
ttp://nicosia.is.s.u-tokyo.ac.jp/pub/essay/hagiya/essay/omoide

(UTLISPの方の名前は覚えてたんだけど、HLISPというシンボルは私の中でGCされてました)

**名無しさん＠お腹いっぱい。** · NG

突然ブレイクしたりしないかな　→　lisp

**名無しさん＠お腹いっぱい。** · NG

証明支援系やモデル検証系のアプリはCommonLispやScheme使って
書かれることがおおいみたいだね。

**名無しさん＠お腹いっぱい。** · NG

今回のLinuxMagazineに
Rubyのまつもと氏がLispについてコラム書いてる。

**名無しさん＠お腹いっぱい。** · NG

言語製作者って、他の言語のいいところはただ乗りして、
悪いところはこき下ろす癖があるけど、まつもとさんは
Lispに対してはどんなスタンスなの？オープンスタンス？

**名無しさん＠お腹いっぱい。** · NG

>>68
究極の奥義とかって書いてた。

**名無しさん＠お腹いっぱい。** · NG

>>68
>言語製作者って、他の言語のいいところはただ乗りして、
>悪いところはこき下ろす癖
ただ乗りしないでどう乗ればいいのだ？
そもそもどういう癖なんだそれ？癖か？言語製作者一般？
わけわかんないよ。あまり一般化するなよ。

**名無しさん＠お腹いっぱい。** · NG

>>70 「最新の素晴しい理論を取り入れて、古いものは改良したくなる癖」
の言い換えってことで勘弁してあげましょう。

**名無しさん＠お腹いっぱい。** · NG

それがなきゃ「より良いもの」は出てこないだろ

たまに「良いとカンチガイされたもの」が出てくるけど

**名無しさん＠お腹いっぱい。** · NG

> たまに「良いとカンチガイされたもの」が出てくるけど

Rubyとかな。

**名無しさん＠お腹いっぱい。** · NG

>>73
荒れるからやめれ。つーか確信犯だろ

**名無しさん＠お腹いっぱい。** · NG

■［確信犯］の大辞林第二版からの検索結果　
かくしん-はん【確信犯】

道徳的・宗教的・政治的な信念に基づき、自らの行為を正しいと信じてなされ
る犯罪。思想犯・政治犯・国事犯など。

**名無しさん＠お腹いっぱい。** · NG

>>75 本当にすまん！間違った意味の確信犯の同意語を教えてくれ！もう間違えたくないんだ！

**名無しさん＠お腹いっぱい。** · NG

>75
ｶﾞｲｼｭﾂ

**名無しさん＠お腹いっぱい。** · NG

UNIXとLispの接点って実はemacsだけ？

**名無しさん＠お腹いっぱい。** · NG

>>78
コメント記号の違いによる永遠の衝突も一つの接点。

**名無しさん＠お腹いっぱい。** · NG

>>69 「究極の」とは書いてなかったような。「知る人ぞ知る」じゃなかった？

>>76 「愉快犯」とか？

>>78
GNU Emacs の作者は、結局UNIX互換のGNUシステムを作るぜっていう方針選んだけど、
もともとはLISP好き好きな人なので、LISPマシン的なものを作るってのも選択肢の一つ
だった、とかいう話だそうです。

UIの側からの話だけど、emacsとかlispとかって、一旦入ったらそのなかで
何でもやるって感じの、「環境」だよね。パイプでつないで小さなプログラムで
複雑なことをするUNIX流の「環境」とは、だからちょっと色がちがうかなとおもう。

**名無しさん＠お腹いっぱい。** · NG

Ruby 開発日記時代はLispに追いついたか

Lisp というプログラミング言語があります。1958年以来、Lisp は
プログラミング言語の独立峰としてそびえているのです。それが
色あせないのは、数学をベースにしているからだと思われます。
Lisp は広く使われることはありませんでしたが、そこで生まれた概念は
「知る人ぞ知る」奥義としてコンピュータサイエンスの世界で受け継がれて
いたのです。ここ40年ほどの間。

■みんな Lisp から教わった
-スタティックスコープ
-再帰
-多重継承
-ガベージコレクション
-例外
-動的な型

■世の中は Lisp に進むのか

Linux Magazine October 2002, p168

**名無しさん＠お腹いっぱい。** · NG

| ■世の中は Lisp に進むのか

この問に対するまつもと氏の答えはNO。理由を二つあげてました。
ひとつは、とにかく括弧が煩雑だから。もうひとつは、マクロは
頭のいい人じゃないと使いこなせない。言語は普通のひとのためにある、
...ってなことが書いてあったと思う。（立ち読みなんで...すみません。）

**名無しさん＠お腹いっぱい。** · NG

某所にXMLでsetqとかletとかのタグを付けて
プログラムを書くシステムがあるんですが，
lisp屋の各位はどう思われますか？

**名無しさん＠お腹いっぱい。** · NG

< や > が多すぎて読みづらそう
ってのはどう？

**名無しさん＠お腹いっぱい。** · NG

>>84 名前に使いたい文字だよね。

**名無しさん＠ＸＥｍａｃｓ** · NG

>>80
MIT AI Lab.のLisp屋さんが(Stallmanの表現では)、
AI Lab.の成果を持ち逃げする形で、
Symbolics社やLMI社を設立し、proprietaryなLisp machineを作り始めた。
http://kogs-www.informatik.uni-hamburg.de/~moeller/symbolics-info/symbolics.html

怒ったStallmanは、Symbolics社ZetaLisp等の機能を全て、
リバースエンジニアリングし、MacLisp上にポートし始めた。

この運動がGNU projectの元になっている。
(GNU版)UNIX上でLispを動かすのがopenなarchitectureだと考えたみたい。

**名無しさん＠お腹いっぱい。** · NG

あれ、RMSが協力してた会社ってなかった？

**名無しさん＠お腹いっぱい。** · NG

おい http://emacslisp.org/ が大変だ！！

**名無しさん＠お腹いっぱい。** · NG

>>86
LMIは 87さんが言う、協力してた会社だったと思う。Symbolicsが提供してる
機能をかたっぱしから自力でLMIのマシンにポートしてたとか。(GNU以前の話です。)
ちなみにSymbolicsについてGNU emacs の作者は、"My Enemy"というシンプルな形容をします。

>>88 写真の人、みんな幸せそうだよ。。

**名無しさん＠お腹いっぱい。** · NG

藁た　→　>>88

**名無しさん＠お腹いっぱい。** · NG

卒業研究で CMU Common Lisp (on Sun4)使ってプログラム作りました。
私がやっていたのは resolution principle って奴です。
なつかすぃ ...

**名無しさん＠お腹いっぱい。** · NG

驚くほど lisp が好きになるような catch と throw の例を教えて。

**名無しさん＠お腹いっぱい。** · NG

　　　　　　　ｒｰ､
　　　　｣´￣｀ｌｰ) ＼
　　　　Ｔ¨Ｌ　|_/⌒/　← throw
　　　　｀レ￣｀ヽ〈
　　　　 |　　i＿_1
　　　　　_ゝ_／ノ
　　　　Ｌ__jイ´_　）
　　　　　　　 |　　ｲ
　　　　　　 |　　ﾉ--､　　　　　ｒ'⌒ヽ_
　　　　　　　ゝ､_＿_ﾉ二７　　／´￣l､＿,/}:＼
　　　　　　　 |ｰi |　　 l_/　／__ｨ::.　ゝ~_ィ´:;　,ゝ
　　　　　　　 __〉 {　　　　 (Ｔ´ |1:::.　　＼_>､};;_｣
　　　　　　　'ー‐┘ 　　　 !　｀￣''ｧ一､＼　ヽ｝　← catch
　　　　　　　　　　　　　　　〈｀￣￣＾｀￢ﾉ .::〔￣´
　　　　　　　　　　　　　 1　ヽ　 .:::レ　　ヽ、
　　　　　　　　　　　　　　　　|＿ｲｰ-､_;;j|_:.　　　ゝ、
　　　　　　　　 __,,,... -- |. ｛―――‐ﾌゝ、　〉 -- ...,,,__
　　　　　 _,, -‐　´ 　　　 ,ｒ|__ﾄ,　　　　1ﾆﾉー'´　　　　　　｀　‐- ,,_
　　　 , ‐ ´　　　　　　　　　└―'´　　　　　　　　　　　　　　　　　　　　｀

**名無しさん＠お腹いっぱい。** · NG

お前ら、かっこつけすぎです。（藁

**名無しさん＠お腹いっぱい。** · NG

　　　　　　　ｒｰ､
　　　　｣´￣｀ｌｰ) ＼
　　　　Ｔ¨Ｌ　|_/⌒/　← Java
　　　　｀レ￣｀ヽ〈
　　　　 |　　i＿_1
　　　　　_ゝ_／ノ
　　　　Ｌ__jイ´_　）
　　　　　　　 |　　ｲ
　　　　　　 |　　ﾉ--､　　　　　ｒ'⌒ヽ_
　　　　　　　ゝ､_＿_ﾉ二７　　／´￣l､＿,/}:＼
　　　　　　　 |ｰi |　　 l_/　／__ｨ::.　ゝ~_ィ´:;　,ゝ
　　　　　　　 __〉 {　　　　 (Ｔ´ |1:::.　　＼_>､};;_｣
　　　　　　　'ー‐┘ 　　　 !　｀￣''ｧ一､＼　ヽ｝　← Lisp
　　　　　　　　　　　　　　　〈｀￣￣＾｀￢ﾉ .::〔￣´
　　　　　　　　　　　　　 1　ヽ　 .:::レ　　ヽ、
　　　　　　　　　　　　　　　　|＿ｲｰ-､_;;j|_:.　　　ゝ、
　　　　　　　　 __,,,... -- |. ｛―――‐ﾌゝ、　〉 -- ...,,,__
　　　　　 _,, -‐　´ 　　　 ,ｒ|__ﾄ,　　　　1ﾆﾉー'´　　　　　　｀　‐- ,,_
　　　 , ‐ ´　　　　　　　　　└―'´　　　　　　　　　　　　　　　　　　　　｀

87 · NG

>>89
やっと前に見たページ見つけたよ。
http://www.sipeb.aoyama.ac.jp/~ida/books/gnu_rms.html

**名無しさん＠お腹いっぱい。** · NG

>>96
Richardが、かって泣かんばかりになげいたことがあります。「私の人生って
なんだったんだろう。」

私が感じるのは、技術の進歩はそれだけで独立しているものではないというこ
とです。それなのに彼は、あまりに自分の仕事に熱中していてまわりのことを
気にしていませんでした。それにときどき自分で気がついてなげくことがある
のです。同時に私生活についても同じことが言えます。ある時、いつものよう
に満員の小田急線の中で、若いアメリカ人女性３人がそばにいて、一生懸命彼
が話しかけていたことがあります。あきらかに話がかみ合わないのですが、そ
れでもめげずに必死に話しかけます。３人は先に降ります。すると、彼は
「チェッ、また逃しちゃった。いつもそうなんだ。」

RMSアニキに萌え……

**名無しさん＠お腹いっぱい。** · NG

でも rms は年齢!=彼女いない暦 (ex. Alix)
なのだから、この板にいるやからの 2/3 より偉い。
漏れよりモナー

92 · NG

>>93 チェッ。。。ネタじゃないのに。

じゃあ、痺れるような continuation の使い方を見せて。

**名無しさん＠お腹いっぱい。** · NG

((call/cc call/cc) (call/cc call/cc))

92 · NG

>>100 ネタはもうお腹いっぱい。

continuation は、いくつかの関数がやりとりしながら進行するようなときに使うらしい。
でも、これは scheme の強力な部分ではないのですか？どう使えばいいのよ？

**名無しさん＠お腹いっぱい。** · NG

http://www.ccs.neu.edu/home/dorai/t-y-scheme/t-y-scheme-Z-H-15.html#%_sec_13.4.1

**名無しさん＠お腹いっぱい。** · NG

scwmやgwmを使ってる奴少ないな。

**名無しさん＠お腹いっぱい。** · NG

gwmはlisp類じゃないような。見た目はlispっぽいけど。
Cとc-shellぐらい違う。

**名無しさん＠お腹いっぱい。** · NG

scwmは半年前に使ってみたけど、不安定だったなー

**名無しさん＠お腹いっぱい。** · NG

>>101
(let ()
(call/cc(lambda(break)
～なんかの処理～
停止したいときにbreakに括弧を付けて呼びだすと、
)) ; lambda call/cc
ここにジャンプする
) ; let

このbreakの値(=継続)を保存しておくと、任意の位置で中断と再開ができたりする。
応用は、デバッガ、強調型マルチタスク、コルーチン、任意の処理のハンドル化、など。

**名無しさん＠お腹いっぱい。** · NG

あ～そろそろACL更新しなきゃ

**名無しさん＠お腹いっぱい。** · NG

trial 版て Composer 使えないんだもん。つまんない。< ACL

**名無しさん＠お腹いっぱい。** · NG

cmuclでそこそこ幸せなんですけど、
ACLってそんなに(･∀･)ｲｲ!!ですか？

**名無しさん＠お腹いっぱい。** · NG

>>109
なんだか動作が速い気がする。

**名無しさん＠お腹いっぱい。** · NG

cmuclのwindows版は無いんですか？（かなり探したけど見つからなかった）

**名無しさん＠お腹いっぱい。** · NG

>>111
ありません。clispで我慢汁。

**名無しさん＠お腹いっぱい。** · NG

そうですか。残念。
cmulispとclispの違いって何ですか？

**名無しさん＠お腹いっぱい。** · NG

ACLの最適化はメチャすごくて、
ほとんどC++で書いたのと変わらない速度になるそうだ。

**名無しさん＠お腹いっぱい。** · NG

>>114
この辺の話ですか？
http://www.graco.c.u-tokyo.ac.jp/~kamina/lisp/bench.html

取り上げている問題が、再帰関数と、リスト処理
だから、このページの ACL と C++ との比較は
ちょっと当てにならない気がする。

**名無しさん＠お腹いっぱい。** · NG

どっかに物凄い種類の言語のベンチ比較したサイトなかった？

**名無しさん＠お腹いっぱい。** · NG

>116
これのことかえ？
http://www.bagley.org/~doug/shootout/craps.shtml

**166** · NG

そうそうこれこれ。ありがとさん。

**116** · NG

s/16/11/

**名無しさん＠お腹いっぱい。** · NG

Javaやスクリプトなんかは比較にならないくらい速いねえ。

**名無しさん＠お腹いっぱい。** · NG

>>120
何処みてるの？

**名無しさん＠お腹いっぱい。** · NG

age

**名無しさん＠お腹いっぱい。** · NG

おいおい、そろそろ保守しないとﾔｳﾞｧｲンじゃない？

**名無しさん＠お腹いっぱい。** · NG

変数に型が無いからな。

**名無しさん＠お腹いっぱい。** · NG

(age Lisp@UNIX版)

**名無しさん＠お腹いっぱい。** · NG

(defun age (thread)
(case thread
((http://pc3.2ch.net/test/read.cgi/tech/1031560687/l50) 'age)
((http://pc.2ch.net/test/read.cgi/unix/1019926525/l50) 'sage)
((http://pc.2ch.net/test/read.cgi/prog/1031179059/l50) 'hage)))

**名無しさん＠お腹いっぱい。** · NG

cmuclのgcについて質問してもいいですか？

**名無しさん＠お腹いっぱい。** · NG

>>127
だめって行ったらどうすんのさ、
そんなこと聞かずに、普通に質問したら？

**名無しさん＠お腹いっぱい。** · NG

>>128
えっと、Debian GNU/Linuxのwoodyのcmuclとsbcl(Steel Bank CommonLisp)を
使っています。
cmuclのドキュメント（cmu-user.ps）を見ると、
*bytes-consed-between-gcs*という大域変数で、どこまでコンスが作られたら、
GCが行われるか決定されるか設定できるみたいに書いてあります。
デフォルトでは2000000になっているそうです。
一方、sbclでのデフォルトは20Mになっているそうです。
例えば古典的な8queensなんかを（コンパイルして）実行すると、
cmuclではしょっちゅうGCをはじめるのでsbclの10倍以上時間がかかります。
cmuclで(defparameter *bytes-consed-between-gcs* 20000000)とかってしても、
GCが行われる頻度は変わりません。
どうやったらcmuclでもGCでマメに止まらないようにできるのでしょうか。
厨房でスマソ。

**名無しさん＠お腹いっぱい。** · NG

>>129
cmuclは使ったことないです、お手上げ。
http://pc3.2ch.net/test/read.cgi/tech/1031560687/とか
http://pc.2ch.net/test/read.cgi/prog/1031179059/
で聞いてみてちょ、力になれなくてｽﾏｿ。

**名無しさん＠お腹いっぱい。** · NG

8queenでガベコレいるか？

**名無しさん＠お腹いっぱい。** · NG

>>129
(setf (bytes-consed-between-gcs) 20000000)
かな。

**名無しさん＠お腹いっぱい。** · NG

-- Variable: *bytes-consed-between-gcs*
CMU Common Lisp automatically GC's whenever the amount of memory
allocated to dynamic objects exceeds the value of an internal
variable. After each GC, the system sets this internal variable to
the amount of dynamic space in use at that point plus the value of
the variable `ext:*bytes-consed-between-gcs*'. The default value
is 2000000.

英語よくわからんのであれだが
ＧＣしはじめる数値を処理系がこの変数にセットするだけでないかい。
この変数を変えるとＧＣしなくなるんじゃなく。

**名無しさん＠ＸＥｍａｃｓ** · NG

CMU Common Lisp は動的オブジェクトに確保されたメモリの量が内部変数の値を超える
たびに自動的に GC する。各 GC の後、その時点で使用されている動的スペースの量に
変数 `ext:*bytes-consed-between-gcs*' の値を加えたものを内部変数にセットする。
初期値は 200000である。

**名無しさん＠お腹いっぱい。** · NG

.cmucl-initに
(setf (bytes-consed-between-gcs) 20000000)
してみました。
* (time (queens 10))
すると、
[GC threshold exceeded with 21,062,632 bytes in use. Commencing GC.]
[GC completed with 1,119,416 bytes retained and 19,943,216 bytes freed.]
[GC will next occur when at least 21,119,416 bytes are in use.]
ですのでコンスが20Mを越えたときにGCが始まるようになりますた。
ちなみに(queens 10)だと24回GCして37secかかります。
sbclですと一度もGCしないで0.85secで(queens 10)できますた。
なんでこんなに違うんだろう……

**135** · NG

勘違いしてましたスマソ。
cmuclでは
* (load "8queens.lsp")
* (compile-file "8queens.lsp")
しても、
* (load "8queens.x86f")
するまでは8queensの関数はコンパイルされていないものが用いられる
ことに気づいていませんでした。
sbclではトップレベルの関数は即コンパイルしているんで違うのあたり前田った。
恥ずかしい……

**名無しさん＠お腹いっぱい。** · NG

(gc)

**名無しさん＠お腹いっぱい。** · NG

>>137
gcしたらこのスレは消えると思うが。

**名無しさん＠お腹いっぱい。** · NG

>>138
スレじゃなくて、レスが消えたな。

**名無しさん＠お腹いっぱい。** · NG

(sage)

**名無しさん＠お腹いっぱい。** · NG

[1]>(sage)

*** - EVAL: the function SAGE is undefined
1. Break [2]>_

**名無しさん＠お腹いっぱい。** · NG

(defun sage () (sage))

**名無しさん＠お腹いっぱい。** · NG

[1]> (defun sage () (sage))

** - Continuable Error
DEFUN/DEFMACRO(SAGE): #<PACKAGE COMMON-LISP> is locked
If you continue (by typing 'continue'): Ignore the lock and proceed
1. Break [2]>

**名無しさん＠お腹いっぱい。** · NG

寂れてるね。emacsスレがあるからいらないか。

**名無しさん＠お腹いっぱい。** · NG

(寂れてますね)

**名無しさん＠お腹いっぱい。** · NG

cl-httpd を cmucl 18d で動かせた人居ますか？なんか、cmucl 用のパッチを
当ててもコンパイルできないんすけど…。

**名無しさん＠お腹いっぱい。** · NG

age

**名無しさん＠お腹いっぱい。** · NG

CLOSが気に入ってます。
Allegro CLを研究室の予算で買ってもらおうかな…

**名無しさん＠お腹いっぱい。** · NG

>>148 ええのぅ。漏れもホスィけど金無いから cmucl で我慢。
windows では clisp か newlisp かなぁ…。

**名無しさん＠Ｅｍａｃｓ** · NG

clawk 便利 age

**名無しさん＠お腹いっぱい。** · NG

>>150
あなたはなみなみならぬ修行を積んだ強者か単なる変態と
思われます。

**名無しさん＠お腹いっぱい。** · NG

(´-`).｡ｏＯ(そんな事言える 151 も同類では？)

**名無しさん＠お腹いっぱい。** · NG

(´-`).｡ｏＯ(他人を推量できるからには 151 は強者かつ変態である、に一票)

**151** · NG

コードのぱっと見だけでもだいぶ違和感がある。(ないかい?)
http://www.geocities.com/mparker762/clawk.html

ケナしたりクサしたりしてるつもりはなくて、正直な感想です。
強まった lisper & awker ならすんなりイケるんですかね。
ま、も少し遊んでみます。

**150** · NG

…全然修行を積んでないということは，漏れは…で，でも，少なくとも
regex は便利っすよね？
(let ((m (compile-str "[:digit:]+"))) (scan-str m "abc 012 cde"))
のように，compile-str で明示的に正規表現をコンパイルできて (ﾟдﾟ)ｳﾏｰ
しかも GNU regex より速いそーですし．ｳﾏｳﾏ

**名無しさん＠お腹いっぱい。** · NG

おまえら，xml パースには何使ってますか？やっぱ Franz の xmlutils ですか？