【入門】Common Lisp その11【質問よろず】

**デフォルトの名無しさん** · 2014/09/21(日) 22:49:21.73

Lisp Schemeスレでは恥ずかしくて聞けないようなことを質問したり、
Lisp Schemeスレの話題は高度すぎて気後れする人が話しあったり。
それ以外でもCommon Lispについての話題なら歓迎します。

ま、ゆっくりやりましょう。

「いいものの本質は、いかなる時代においても変わらない」byパワーズ

■前スレ
【入門】Common Lisp その10【質問よろず】
http://peace.2ch.net/test/read.cgi/tech/1361341876/

■Wiki
http://wiki.fdiary.net/lisp/ (id:guest pass:cl)
http://cl.cddddr.org/
http://tips.lisp-users.org/common-lisp/

**デフォルトの名無しさん** · 2015/02/09(月) 23:55:00.91

http://jbbs.shitaraba.net/sports/42269/

**デフォルトの名無しさん** · 2015/02/10(火) 17:05:14.42

>> 218
「ソフトウェア作法」ね
http://www.amazon.co.jp/%E3%82%BD%E3%83%95%E3%83%88%E3%82%A6%E3%82%A7%E3%82%A2%E4%BD%9C%E6%B3%95-Brian-W-Kernighan/dp/4320021428/ref=pd_sim_b_3?ie=UTF8&;refRID=00X1H3NNRVZ5P3BCDTMQ

**デフォルトの名無しさん** · 2015/03/07(土) 00:42:51.80

LET OVER LAMBDAを読んでいるのですが
しょっぱなで出てくるマクロdefmacro/g!が動きません。

(defmacro defmacro/g! (name args &rest body)
(let ((syms (remove-duplicates
(remove-if-not #'g!-symbol-p
(flatten body)))))
`(defmacro ,name ,args
(let ,(mapcar
(lambda (s)
`(,s (gensym ,(subseq
(symbol-name s)
2))))
syms)
,@body))))

(macroexpand-1
'(defmacro/g! nif (expr pos zero neg)
`(let ((,g!result ,expr))
(cond ((plusp ,g!result) ,pos)
((zerop ,g!result) ,zero)
(t ,neg)))))

;=>(DEFMACRO NIF (EXPR POS ZERO NEG) (LET () `(LET ((,G!RESULT ..

(flatten '`(let ,g!result))が
(SB-INT:QUASIQUOTE LET ,G!RESULT)になるので
,g!resultがremove-if-notを通り抜けられないのが理由でしょうか。
sbcl1.2.7です。動かす方法はありますか？

**デフォルトの名無しさん** · 2015/03/07(土) 00:48:06.97

(defun g!-symbol-p (s)
(and (symbolp s)
(> (length (symbol-name s)) 2)
(string= (symbol-name s)
"G!"
:start1 0
:end1 2)))

**デフォルトの名無しさん** · 2015/03/07(土) 07:09:08.52

コードコピペしたらちゃんと動いたけど
flattenが間違ってんじゃないかな

**デフォルトの名無しさん** · 2015/03/07(土) 16:01:02.06

試しにwindows版のsbcl1.2.7入れてやってみたが
確かに動かないな、これ
windows版ccl1.10ではちゃんと動いた
こういうことってあるんだな

**デフォルトの名無しさん** · 2015/03/07(土) 16:17:29.95

clisp+alexandria:flattenでやってみたけど動くよ

**デフォルトの名無しさん** · 2015/03/07(土) 16:50:40.73

debianのsbcl1.0.57.0ではちゃんと動く
今度は普段ccl1.10で使ってるslimeでsbcl1.2.7動かしてみたが
やっぱり動かん

**デフォルトの名無しさん** · 2015/03/07(土) 19:54:37.09

これが関係してる?

#:g1: SBCL 1.2.2でのbackquoteの変更
http://g000001.cddddr.org/3615721500

**デフォルトの名無しさん** · 2015/03/08(日) 14:36:36.18

Common Lisp 素人です.
SSL って cl+ssl が標準的なんですかね?
以下のコードが動かないんですが, これはうちの環境が悪いんでしょうか?

```
(ql:quickload :usocket)
(ql:quickload :cl+ssl)

(let* ((sock (usocket:socket-connect "imap.gmail.com" 993 :protocol :stream :timeout 60))
(sock-stream (cl+ssl:make-ssl-client-stream (usocket:socket-stream sock))))
(unwind-protect
(progn
(format sock-stream "? CAPABILITY"))
(usocket:socket-close sock)))
```

Debugger:

```
There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION STREAM-WRITE-STRING (3)>
when called with arguments
(#<CL+SSL::SSL-STREAM
for #<FD-STREAM
for "socket 192.168.1.60:46384, peer: 64.233.187.109:993"
{1005B13083}>>
"? CAPABILITY" 0 NIL).
[Condition of type SIMPLE-ERROR]
```

cl+ssl の streams.lisp では stream-write-byte についてしか defmethod してないけど,
普通はこれで動くもんなんです?

**デフォルトの名無しさん** · 2015/03/08(日) 14:39:57.84

SBCLのバッククォートは構造体に変換されるようになったから
LET OVER LAMBDAにあるような、バッククォートを含むコードの
flattenによるコードウォークはSBCLだと動かなくなったって事か。
ダメじゃんSBCL～
こんなバッククォートの仕様、CLTL2満たしてるのか？

**228** · 2015/03/08(日) 19:54:56.42

解決したので報告です. :external-format を指定して flexi-streams を使えば良いようです.

```
(let* ((sock (usocket:socket-connect "imap.gmail.com" 993 :protocol :stream :timeout 60))
(sock-stream (cl+ssl:make-ssl-client-stream (usocket:socket-stream sock) :external-format '(:latin-1 :eol-style :crlf))))
(unwind-protect
(progn
(listen sock-stream)
(format *standard-output* "~%~a~%" (read-line sock-stream nil))
(force-output *standard-output*)
(format sock-stream "? CAPABILITY~%")
(force-output sock-stream)
(listen sock-stream)
(format *standard-output* "~%~a~%" (read-line sock-stream nil))
(force-output *standard-output*)
)
(usocket:socket-close sock)))
```

=>

```
* OK Gimap ready for requests from xxx.xxx.xxx.xxx hogehoge

* CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN X-GM-EXT-1 XYZZY SASL-IR AUTH=XOAUTH AUTH=XOAUTH2 AUTH=PLAIN AUTH=PLAIN-CLIENTTOKEN
```

**デフォルトの名無しさん** · 2015/03/17(火) 01:48:34.28

(変数値)のリストと式が与えられた状態で、変数を値に束縛した環境で式を評価したいのですが、良い方法がわかりません
現状では次のように実装しています
(let ((bindings '((a 1) (b 2))) (form '(+ a b)))
(eval `(let ,bindings ,form)))
実際にはformに対してbindingsを変えたものが何度も呼ばれます
また、formは複雑なものも想定します
他にいい方法はありますでしょうか？

**デフォルトの名無しさん** · 2015/03/17(火) 10:47:28.60

(let ((bindings '((a 1) (b 2))) (form '(+ a b)))
(progv
(mapcar #'car bindings)
(mapcar #'cadr bindings)
(eval form)))
とかかなあ

もしくはformを関数にしてしまうのがいいのかな
(let ((bindings '((a 1) (b 2))) (form '(+ a b)))
(let ((thunk (coerce `(lambda () ,form) 'function)))
(progv
(mapcar #'car bindings)
(mapcar #'cadr bindings)
(funcall thunk))))
bindingだけ変えて何度も走らせるなら多分効率もいいと思う(確かめたわけじゃないけど)

インタプリタかなにか作ってるの? 👀

**デフォルトの名無しさん** · 2015/03/17(火) 10:48:46.17

なぜか変な絵文字が入った…

**デフォルトの名無しさん** · 2015/03/17(火) 13:59:09.21

>>232
progvで動的変数が作られるのは知りませんでした
formの関数化も良さそうですね
mapcarによるコンシングはデータ構造を工夫してなくせそうです
だいぶパフォーマンスが改善されそうです。ありがとうございます

ある言語のサブセットを作ってます

**デフォルトの名無しさん** · 2015/03/26(木) 19:32:41.80

質問です。以下の、
私家版、Common Lisp プログラマのレベル10
http://www.reddit.com/r/lisp_ja/comments/30cfn0/%E7%A7%81%E5%AE%B6%E7%89%88common_lisp_%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9E%E3%81%AE%E3%83%AC%E3%83%99%E3%83%AB10/
の中のレベル3に、
「fletやlabelsによるローカル関数定義を多用」が、
「Common Lispでは名前空間の汚染はあまり気にしなくて良いので多用する必要はない」とレスされ、
るそうですが、
なぜ気にしなくて良いのですか？

**デフォルトの名無しさん** · 2015/03/26(木) 20:09:27.36

>>235
comon lisp よりも scheme の方がよさそーだ‥

**デフォルトの名無しさん** · 2015/03/26(木) 21:35:12.89

>>235
なんかコイツ自身レベルが低そうだ

**デフォルトの名無しさん** · 2015/03/31(火) 15:33:38.54

235です。
>>235
それはなぜですか。
もしよければ、意見を聞きたいです。

>>237
え、わたし(235)のこと。それともリンク先を書いた人のこと。

私自身は
ローカルなら他から呼べなくて安全といえるけど、
1つの定義が大きくなってあまり好きじゃないんです。

極端に言えば、
(1つ目の処理 ...)
(2つ目の処理 ...)
(3つ目の処理 ...)
と、書いていって最終的に
(3つ目の〜 (2つ目の〜 (1つ目の〜 ...)))
と、するのが好きなのですが
好き嫌いを超えた優劣や善悪があるのでしょうか。

**デフォルトの名無しさん** · 2015/04/03(金) 04:59:16.54

元スレで作った人に聞けばいいのでは…
たぶん単純に名前空間が関数と変数で分かれてるってだけの話だと思うけど

**デフォルトの名無しさん** · 2015/04/04(土) 21:18:43.12

初歩的な質問ですいません。
CommonLispをCentos6にインストールできないんですが
単純にyum ～では駄目なんですか？

**デフォルトの名無しさん** · 2015/04/04(土) 21:30:16.17

sudo yum install sbcl.x86_64
じゃだめなん？

**デフォルトの名無しさん** · 2015/04/08(水) 14:04:17.18

Eclipse Common Lisp がオープンソース化された話があるみたいだけど、
これって 32 bit Windows でも動く？
公式には 64 bit しかチェックしてないみたいに書いてあるけど。

**ドリル優子** · 2015/04/20(月) 17:48:30.95

これはさすがにヤバイだろｗｗ

【神回】美人ニコ生主mAriAがFME切り忘れで公開オナニー！？【電マ】

https://www.youtube.com/watch?v=Y6Fz1MYedSw

**デフォルトの名無しさん** · 2015/04/20(月) 17:51:10.30

>>243
しねかす

**デフォルトの名無しさん** · 2015/04/20(月) 18:27:45.45

こんにちわ、これってどういう場面で使うんでしょうか？？
関わりがないってことは特に知る必要ないんでしょうか？

**デフォルトの名無しさん** · 2015/05/04(月) 09:54:28.68

>>244
だまされるお前が悪い。
クソ動画見てオナニーしてろ

**デフォルトの名無しさん** · 2015/05/04(月) 14:43:15.18

>>246
うわ！もろに犯罪者の発想だな
「騙される方が悪い」
おまえの人生を彷彿とさせるな
犯罪人生上等君

**デフォルトの名無しさん** · 2015/06/05(金) 01:19:51.77

http://www.infoq.com/jp/news/2015/06/lispworks-mobile-runtime
Lispworks がios Android 用出したけど既存のmoclとの比較がほしい

**デフォルトの名無しさん** · 2015/06/14(日) 21:41:14.46

clispって５年もバージョンアップないんだね
もう終わりか

**デフォルトの名無しさん** · 2015/06/18(木) 21:22:38.22

つい最近、lisp始めたんですけど、
日本語入れると、PARSE-NAMESTRING: syntax error in filename
と出るのですが、どのようにしたら、
日本語のディレクトリって作成できますか?

**デフォルトの名無しさん** · 2015/06/19(金) 02:49:41.26

>>250
処理系によって違ってくるから何を使ってるか教えて

**デフォルトの名無しさん** · 2015/06/19(金) 12:32:36.15

>>251
詳しくは知らないんだけど、
common lispで
format関数使って日本語と文字列を結合しようとするとそのエラーが出ます。

**デフォルトの名無しさん** · 2015/06/20(土) 12:18:47.33

windowsのclispでcl-opencvって使えますか?

**デフォルトの名無しさん** · 2015/07/06(月) 23:11:46.67

今日からLisp始めた阿呆です。本当に初歩的な質問をしたいのですが、よろしいでしょうか。

わたしは太郎です。
趣味は２ちゃんねるです。
Lisp初心者です。

というファイルを

(((#\わ #\た #\し #\は) (#\太 #\郎) (#\で #\す #\。)) ((#\趣 #\味 #\は) (#\２ #\ち #\ゃ #\ん #\ね #\る) (#\で #\す #\。))
((#\L #\i #\s #\p #\初 #\心 #\者) (#\で #\す #\。)))

このようなリストを吐き出す関数を書きたいのですが、本当に知ろうとゆえ、困ってます。
一応書いてみたのが以下のものです。

(defun test-parse (fname)
(with-open-file (in fname :direction :input)
(let (tmp (w ()) (l ()) (s ()))
(loop for tmp = (read-char in nil)
while tmp
do (cond ((eql tmp #\Space) (push (reverse w) l) (setf w nil))
((eql tmp #\Newline) (push (reverse w) l) (setf w nil) (push (reverse l) s) (setf l nil))
(t (push tmp w))
))
(push (reverse w) l)
(push (reverse l) s)
(reverse s))))

どうすれば、かっこいいLisperになれますか。
説教してください。頓首。

**デフォルトの名無しさん** · 2015/07/06(月) 23:30:52.25

かっこいいかは知らんけど、split-sequenceを使うと、

(defun omanko (src)
(mapcar (lambda (s)
(mapcar (lambda (x) (coerce x 'list))
(split-sequence #\Space s)))
(split-sequence #\Newline src)))

(omanko "わたしは太郎です。
趣味は２ちゃんねるです。
Lisp初心者です。")

↓CLISPでの結果

(((#\HIRAGANA_LETTER_WA #\HIRAGANA_LETTER_TA #\HIRAGANA_LETTER_SI #\HIRAGANA_LETTER_HA) (#\U592A #\U90CE)
(#\HIRAGANA_LETTER_DE #\HIRAGANA_LETTER_SU #\IDEOGRAPHIC_FULL_STOP))
((#\U8DA3 #\U5473 #\HIRAGANA_LETTER_HA)
(#\FULLWIDTH_DIGIT_TWO #\HIRAGANA_LETTER_TI #\HIRAGANA_LETTER_SMALL_YA #\HIRAGANA_LETTER_N #\HIRAGANA_LETTER_NE
#\HIRAGANA_LETTER_RU)
(#\HIRAGANA_LETTER_DE #\HIRAGANA_LETTER_SU #\IDEOGRAPHIC_FULL_STOP))
((#\L #\i #\s #\p #\U521D #\U5FC3 #\U8005) (#\HIRAGANA_LETTER_DE #\HIRAGANA_LETTER_SU #\IDEOGRAPHIC_FULL_STOP)))

**254** · 2015/07/09(木) 18:43:04.87

>>255
おおお。ありがとうございます。
split-sequenceなんてのがあるのですね。
勉強になりました。

**254** · 2015/07/10(金) 07:34:53.35

いろいろ参考書を買ったけど、
PAIPで禁欲的にやるのが一番いいような気がしている。
おすすめの書籍とか読む順番とかあったら教えてくれませんか。
お願いいたします。

**デフォルトの名無しさん** · 2015/07/13(月) 12:29:38.83

あるサイトに
(reduce #'+ '(1 2 3))
;=> 7
　6じゃないのですか？

**デフォルトの名無しさん** · 2015/07/13(月) 23:25:59.50

>>258
そのサイトの管理者なりに教えてあげればいいじゃない

**デフォルトの名無しさん** · 2015/07/15(水) 02:32:01.68

>>258
６だよ‥アスペかよｗ

**デフォルトの名無しさん** · 2015/07/19(日) 21:44:01.49

最近はcl freaks に出ている人達を中心にcommon lispが元気ある感じするよね

**名無しのプログラマ** · 2015/08/09(日) 17:59:36.15

再帰の魅力

**デフォルトの名無しさん** · 2015/09/15(火) 00:43:38.55

lispworks proかったった。
買ったからには勉強せねば。
実はまだlispなんにも知らん。

**はちみつ餃子** ◆8X2XSCHEME · 2015/09/15(火) 05:52:09.24

知らんのにいきなり買うとか豪儀やな

**デフォルトの名無しさん** · 2015/09/15(火) 10:02:52.02

ならリスプの統合環境と言っていいか、そこは怪しいが
zxzzyあたりからやりゃ良いのに
と思う俺様
ま、いいけどな

**デフォルトの名無しさん** · 2015/09/22(火) 22:58:08.35

(defun fact (n)
(cond ((=n 0) 1)
(t (* (fact (1 - n))
n ))))

で
*** - SYSTEM::%EXPAND-FORM: invalid form (1 - N)
The following restarts are available:
ABORT :R1 Abort debug loop
ABORT :R2 Abort debug loop
ABORT :R3 Abort debug loop
ABORT :R4 Abort debug loop
ABORT :R5 Abort debug loop
ABORT :R6 Abort debug loop
ABORT :R7 Abort debug loop
ABORT :R8 Abort debug loop
ABORT :R9 Abort main loop
とエラーがでます。どうしてなのでしょう？教えてください。
お願いします。

**デフォルトの名無しさん** · 2015/09/22(火) 23:17:05.48

スペースが入ってなかったり入っていたり

(defun fact (n)
(cond ((= n 0) 1)
(t (* (fact (1- n))
n))))

**デフォルトの名無しさん** · 2015/09/22(火) 23:27:01.08

>>267
ありがとうございます。ずいぶん難しいなあと思いました。
コードを整えるためにスペース入れたらエラーなので。
規則はあるのでしょうか？

**はちみつ餃子** ◆8X2XSCHEME · 2015/09/23(水) 01:17:09.38

>>268
- や * や = も英数字と同じ扱い。分けるものがなければつながるというだけ。
=n とあればそれは =n という名前と認識されるし、 1- は 1- という名前。

**デフォルトの名無しさん** · 2015/09/23(水) 02:22:31.73

>>269さん
教えていただいてありがとうございます。
質問をしてよかったと思いました。教えていただいたものを
知りませんでした。
関数には引数に1-をいれるというオプションのようなものが付く
という仕様になっているということがわかりました。
では

**デフォルトの名無しさん** · 2015/09/23(水) 02:25:45.54

>>263
30万円くらいですか。すごいですね

**はちみつ餃子** ◆8X2XSCHEME · 2015/09/23(水) 03:31:44.34

>>270
> 関数には引数に1-をいれるというオプションのようなものが付く

高階関数のことを言ってるのかな。
そのあたりはどうせ避けて通れないので、
学んでいるうちにわかってくるよ。

**デフォルトの名無しさん** · 2015/09/23(水) 08:07:48.78

>>270
1- って関数名ですよ？
クォートされていないリストは
一つ目の要素が関数名、以後が引数として評価されます。
例
(1- n)
1- は関数名、nは引数 (注:関数1- は引数から1引いた数を返す関数)

参考;クォートされてるリスト例
'(* 2 3 ) (quote (* 2 3))
解説 (* 2 3 )はクォートされているので関数として評価されない

あなたの初めの書き方
(1 - n)
だと関数名は1で、- と n の2つの引数をもつことになる(正確に言えば、引数- と引数n に関数1を適用する、となります)
すると関数1は未定義だよと言われちゃいますね
同様に
(=n 0)だと
関数名はn= で引数は0となります。
ここでも関数=nは未定義といわれちゃいます
C言語のフリーフォーマットとはことなり、LispではスペースがS式での要素の区切り(デリミッター)になります。
スペースで分ければ2つの要素になるし
スペースを消して繋げればひとつの要素になってしまいます。
ちなみに(=n 0)が正しい適用かどうかは関数定義されてるかどうかによります。もし
(defun =n (x )
(zerop x))
と定義されていれば
(=n 0) => t
ですね

**デフォルトの名無しさん** · 2015/09/27(日) 22:01:13.24

windowsでclispとquicklispでcffiを触ってみようと思ったんですが
(cffi:define-foreign-library test
(:windows "test.dll")
(t (:default "test")))
(cffi:use-foreign-library test)
で、testが開けません
パスは正しいし他の言語からもリンクできるライブラリですが、
何処がおかしいのでしょうか？

**デフォルトの名無しさん** · 2015/09/29(火) 11:03:45.13

>>271
32bitだからそんなにしないよ。
今とりあえず、いじくりまわぢてる。

**274** · 2015/10/01(木) 02:50:50.32

自己レスですが、CLISPで散々いろいろ試したけどどうにもならなかったので
SBCLに変えてみたらまともに動くようになりましたので報告

**デフォルトの名無しさん** · 2015/10/03(土) 13:14:55.68

perl の perldoc
python の pydocに相当するローカルのドキュメントは何ですか？
シンボルを調べるのに
ネットを通しているので2秒間の通信があったり、
通信可能であることに依存しているのが弱点です
'http://clhs.lisp.se/Front/X_AllSym.htm'

**デフォルトの名無しさん** · 2015/10/03(土) 13:24:00.92

xyzzy上でで良ければ
reference.xmlから
reference.txtや reference.chm使って補完できるよ
足りない関数名ややシンボル名は静的補完ファイルに登録するか、reference.*に追加するか

**デフォルトの名無しさん** · 2015/10/03(土) 13:25:24.46

あ、ヘルプもね

**デフォルトの名無しさん** · 2015/10/04(日) 00:50:00.79

>>278,279
ひょっとして >277当てか？

後出しになってしまって申し訳ない
cygwin clisp と Linux clisp を使っています
SLIMEの方はそれぞれ NTEmacs と Linuxのaptitude で入る方のemacs

だから aptitude apt-cyg svn git wget などで落としてインストールし
zsh上で pydoc ... 等と同様に呼び出したい

**デフォルトの名無しさん** · 2015/10/04(日) 08:39:36.15

>>280
>>277のリンク先(HyperSpec)のことなら、ダウンロードはLispWorksのサイトのこのページから。
http://www.lispworks.com/documentation/common-lisp.html
"This HTML document may, subject to certain conditions, be downloaded for use at other locations."
という段落の "downloaded" が、HyperSpecのHTMLファイル群を固めたTar書庫へのリンク。

ローカルに置いたHyperSpecを「zsh上で pydoc ... 等と同様に」参照できるコマンドは多分無いと思うけど、
EmacsのSLIMEからブラウザで開くことは出来る(シンボルの上で C-c C-d h)。
https://common-lisp.net/project/slime/doc/html/Documentation.html

設定はこんな感じ(展開したHyperSpecディレクトリをホームディレクトリに置いた場合):

;; HyperSpecのディレクトリ(URL形式)。
(setq common-lisp-hyperspec-root (concat "file://" (expand-file-name "~/HyperSpec/")))

;; HyperSpecを `eww' (Emacs 24.4 以降に内蔵のウェブブラウザ) で開く設定。
;; (それ以外のURLはデフォルトのブラウザで開く)
(setq browse-url-browser-function
`((,(concat "^" common-lisp-hyperspec-root) . eww-browse-url)
("." . browse-url-default-browser)))

**デフォルトの名無しさん** · 2015/10/04(日) 15:04:33.13

>>281
なるほど
ありがとう
これでもう大丈夫になりました

**282** · 2015/10/06(火) 16:16:19.87

localリファレンス用のzshコマンドのために書いた
#!/usr/bin/env python3
import urllib.request
import re
import os
import subprocess
import sys

# USAGE: this-script.py or this-script.py [Symbol]
ref_dir = os.environ["HOME"] + "/lib/HyperSpec/"
ref_top_dir = ref_dir + "/Front/X_AllSym.htm"
if len(sys.argv) == 1:
　　to_Symbol_list = "w3m " + ref_top_dir
　　subprocess.call(to_Symbol_list, shell=True)
elif len(sys.argv) == 2:
　　top_as_html = "file://" + ref_top_dir
　　with urllib.request.urlopen(top_as_html) as res:
　　　　html = res.read()
　　　　is_Symbol = 'Body/.+?#' + sys.argv[1] + '"'
　　　　url_suffix = re.sub("#.*", "",
　　　　　　　　　　　　　　"".join(re.findall(is_Symbol, html.decode())))
　　　　if url_suffix:
　　　　　　do_w3m = "w3m " + ref_dir + url_suffix
　　　　　　subprocess.call(do_w3m, shell=True)
　　　　else:
　　　　　　print("The symbol was not found.")
else:
　　print("Please input 0 or 1 Symbol of Lisp.")

**デフォルトの名無しさん** · 2015/10/18(日) 00:46:38.25

話題になってないけど、
コンスセル原器が廃止されるらしいぞ

**デフォルトの名無しさん** · 2015/10/18(日) 00:53:59.90

え？

**デフォルトの名無しさん** · 2015/10/18(日) 08:54:54.56

ttps://www.jwz.org/blog/2015/10/cons-conflict-resolved-at-last/
これだね。メートル原器もなくなると言うし、
時代の流れを感じるね

**デフォルトの名無しさん** · 2015/10/19(月) 22:17:19.25

コンス原器とか言ってるのはもちろんネタだからな、わかってると思うけど
メートルの定義が科学的なものに置き換えられるから、そのパロディだからな？

**デフォルトの名無しさん** · 2015/10/20(火) 12:37:44.25

原器は力が溢れている。元気だから。なんちゃってーー

**デフォルトの名無しさん** · 2015/10/21(水) 00:22:44.88

原器があればなんでもできる！

**デフォルトの名無しさん** · 2015/10/21(水) 02:26:28.45

ネタだったのか
どういうものなんだろうと唸りながら考えていた俺

**デフォルトの名無しさん** · 2015/10/21(水) 11:49:26.05

やる気原器いわき的な

**デフォルトの名無しさん** · 2015/10/22(木) 09:17:07.87

グレアムの魔道書からではなく
ホフスタッターのメタマジックゲームのlispの章を読んで
lispやりたいと思ったプログラミング初心者だけど、
emacsでmaterialというカラーテーマにして
フォントをRicty Diminished の斜体にしてから
全画面でlispのコードの見たらとても美しい言葉に見えた
美しいとそれだけでまた見たくなるから
学習意欲を保つためにはよいと思った。

**デフォルトの名無しさん** · 2015/10/22(木) 23:40:53.70

>>273
ありがとうございます。今はじめて>>273さんの書き込みを読みました。
しばらく時間が経ったのでclispのことを忘れてしまいました。
ぼちぼち回復するようにがんばります。

**デフォルトの名無しさん** · 2015/10/24(土) 04:48:56.04

>>292
コードの美しさを感じ取れるといいコードが書けるようになるよ
コードは書くよりも読むほうが、うんと多いから

**デフォルトの名無しさん** · 2015/10/26(月) 23:33:50.22

>>286
スレ違いなツッコミだがメートル原器はずっと前に基準でなくなっている
最近の話題はキログラムの方だな

**デフォルトの名無しさん** · 2015/10/27(火) 04:19:42.73

>>294
「land of lisp」という本にhaskellいいみたいなこと書いてあったけど、
haskellってどうなのかな
common lispとhakellもやったことがあることがある人からしたら。
lispの括弧と前置記法って一貫している感じがして好き。

**デフォルトの名無しさん** · 2015/11/12(木) 23:53:54.83

Schemeだとtyped racketとか型つけるのが流行っぽいけどcommon lispも似た感じになってたりします？

**デフォルトの名無しさん** · 2015/11/13(金) 13:06:25.41

Haskellは時々仕様が変わるから安心して使えない

**デフォルトの名無しさん** · 2015/11/15(日) 22:48:26.04

Arrow-macrosというの見つけた
なんかだ好き
-<> はダイアモンドの杖だって

https://github.com/hipeta/arrow-macros/

http://quickdocs.org/arrow-macros/

**デフォルトの名無しさん** · 2015/11/15(日) 22:49:19.75

あ、誤字
なんだか好き

**デフォルトの名無しさん** · 2015/11/18(水) 00:22:55.99

>>299
うーん、ちょっと使ってみたいけど、
後からワケが分からなくなりそうで不安

**デフォルトの名無しさん** · 2015/11/26(木) 00:14:06.33

>　LLVMベースのCommon Lispコンパイラ「Clasp」の開発チームは11月20日、最新版となる「Clasp 4.0」を公開した。
>　Clasp 0.4ではインラインコンパイラの「CClasp」を一新し、最適化機能も強化された。

https://osdn.jp/magazine/15/11/25/161300

0.4 と 4.0 を間違えるなよ大違いだろ

**デフォルトの名無しさん** · 2015/11/26(木) 20:05:43.69

llvmはフリーなソフトウェアの敵
みたいなことをハッカー界隈の偉い人が言ってなかったっけ?

**デフォルトの名無しさん** · 2015/11/27(金) 06:16:02.28

GPL 教団の人だな

**デフォルトの名無しさん** · 2015/12/03(木) 01:47:18.74

llvmやjavaなどのgpl教団に狙われやすいcl
Schemeはそんなことないのに

**デフォルトの名無しさん** · 2015/12/23(水) 21:05:51.95

単純な質問なのですが、CommonLispにはリードマクロっていう構文解析機を自分で作れるてきな機能がありますが
これってなんで廃れたのでしょうか？正直最強の機能だと感じたのですが

ただ、触った感じ
・定義しないといけない事が多すぎて、自分好みのカスタマイズが時間がかかる。
・同じ意味だけど構文解析失敗したら最後に成功したところまで戻ってくれないのでコレジャナイ感がすごい。
・みんながみんなカスタマイズを好きにやって文化的に統合できなくなった
このあたりが問題かなって感じているのですが、実際Lispコミュニティーにいる人たちのご意見が欲しいです。
OnLispとかLet over Lamnbdaとかやりおえてのままの感想なので

**デフォルトの名無しさん** · 2015/12/24(木) 00:08:08.80

>>1
RPGツクール2000　， RPGツクールMV　https://tkool.jp/mv/ （ＪavaＳcript 採用）

WOLF　RPGエディター　http://www.silversecond.com/WolfRPGEditor/

デュエル・マスターズ　Android版，ｉ-OS版、公式　http://dm.takaratomy.co.jp/extra/dmapp/entrygate_ds/
デュエル・マスターズ対戦CGI ex
https://web.archive.org/web/20150809154946/http://www53.atwiki.jp/dmsuishinparty/pages/314.html

デュエル・マスターズ（デュエマ）DM　ONLINE　1.8a　　／　　VanGuard　ONLINE　1.5a
https://web.archive.org/web/20150809160254/http://uhyohyohyo.sak　ura.ne.jp/hsp.html

ヴァンガード専用ネット対戦ツール【 VanGuard Online 】
https://web.archive.org/web/20150809155032/http://kiimaa.jugem.jp/?eid=61

「カードファイト!!ヴァンガード」のネット対戦ができる公式オンラインゲーム「Cardfight!! Online」 2015年冬スタート
https://web.archive.org/web/20150809153724/http://supersolenoid.blog63.fc2.com/blog-entry-6886.html

遊戯王　Automatic Dueling System
https://web.archive.org/web/20150809164855/http://www3.atwiki.jp/ads-wiki/pages/20.html

遊戯王　デュエル・オンライン
https://web.archive.org/web/20150809171527/http://www31.atwiki.jp/vipdo/pages/15.html
https://web.archive.org/web/20140628005202/http://do.yugioh-portal.net/

ウィクロス（ WIXOSS ）　WEBXOSS　http://webxoss.com/about_en.html　http://webxoss.com/DeckEditor/

BG（ボードゲーム）Engine　https://web.archive.org/web/20151209080842/https://bgengine.net/
https://web.archive.org/web/20151209172205/http://14owl.hateblo.jp/entry/2015/12/09/011234

アプレンティス　　マジック：ザ・ギャザリング（MtG）ｵﾝﾗｲﾝ化　http://homepage1.nifty.com/Q_Q/ap.html
https://web.archive.org/web/20151202202725/http://homepage1.nifty.com/Q_Q/ap.html

**デフォルトの名無しさん** · 2015/12/24(木) 00:09:04.10

【　オンラインTCGエディター　】　　　>>1,>>307

デュエル・マスターズ的な非電源TCGの　《　オンライン化ツクール系ソフト　》　制作の企画。

例えば、ガチンコ・ジャッジを直ぐにでも導入できる機能を持っておりながら、
当面それを扱わず単純化させておいて、事後的に導入拡張する際に当該システムを
ブロック構造の組み合わせで後付け挿入できるように予めシステム化してあるソフト（エディター）。
既存の非電源TCGを劣らずに再現できるならば大概のニーズに応えられる筈。
デュエマ、ヴァンガ、ウィクロス、ポケカ、デジモン、ゼクス、モンコレ、旧ガンダム・ウォー、ライブオン、ディメンション・ゼロ、シャーマン･キング、カードヒーローなど
のシステムを完全再現できるように設計するけど、他に此のTCGの此のシステムは再現希望とか有ったら書け。
マジック：ザ・ギャザリングの全システムを完全に再現するのは無理だから、此れだけは必用だ！って部分のみリクエストしろ。
個vs個、多数乱戦、チームvsチーム、個vsチームを実現し、P2P通信対戦プラグイン有り。

設計思想は　《　RPGツクール　》　が良いかな？　　他に、優れたエディター有ったら挙げてみろ。

個人や企業などのベンダーが提示する開発費（見積もり）で折り合えば、発注する。
↓
エディター群から基本コンセプトを絞り込む（もちろんオリジナルで優れた新ネタが有れば導入する）。
↓
遊戯王OCGに関しては、タッグフォース、ADS、デュエルオンラインを発注先ベンダーに研究させる。
バトスピ、ヴァンガ、デュエマなど発売済みゲームソフトが存在してるTCGはベンダーに研究させる。
↓
各社TCGを再現するテストプレイ　⇒　更に改良や修正　＋　コード記述の仕様書（設計書）を作成。
↓
機能制限した下位版を制作しても原則として発売せず　＋　上位版デュエリ－グ用でサーバー稼動。
↑
下位版を仮に発売した場合の改造および商用利用には、別途で当社との契約が必要。

さ～て、インド人ベンダーと日本人の翻訳担当PGを見つけよっと！ｗｗ
http://wc2014.2ch.net/test/read.cgi/entrance2/1450555747/-20

**デフォルトの名無しさん** · 2016/01/23(土) 06:54:59.99

こないだ出た common lisp recipes の電子版 ttp://www.apress.com/9781484211779 が2月1日までセールだとか(ダイレクトマーケティング)

**デフォルトの名無しさん** · 2016/02/03(水) 08:45:51.54

Pypiみたいに誰でもパッケージ登録出来るリポジトリが欲しい

**デフォルトの名無しさん** · 2016/02/04(木) 09:02:39.44

>>306
そもそも頻繁に使うようなものでもないし、廃れるという表現は違和感ありますな。
使う人は使っているけど、他人に迷惑をかけるかもしれないので、使用する際は注意して自己責任でやってくれと。

**デフォルトの名無しさん** · 2016/02/20(土) 11:39:04.63

>>309
実用Common Lisp Kindle版も半額だなあ
翔泳社のKindle本が半額セールなんだとか

**デフォルトの名無しさん** · 2016/03/19(土) 19:16:42.97

bordeaux-threadsを使って標準出力に"hello" と出力しようとして

(bt:make-thread #'(lambda () (sleep 2) (princ "hello")))

としてみたけど、何も出力されなくて、

(bt:make-thread #'(lambda () (sleep 2) (princ "hello" #.*standard-output*)))

としたら、出力されました。
どうして*standard-output* で出力できず、
#.*standard-output*を使うと出力されるのでしょうか？

**デフォルトの名無しさん** · 2016/03/20(日) 18:36:25.23

*standard-output* がスペシャル変数だから、クロージャに参照を閉じ込められないせい。
スペシャル変数は、いわゆる動的スコープになる。

**313** · 2016/03/21(月) 08:20:05.67

>>314
なるほどー。そういうことですか。
それで、#.を使うのですね。
ありがとうございます！

**デフォルトの名無しさん** · 2016/03/21(月) 08:59:13.60

実践common lisp みたいな本を書くリスパーが少ないのはなぜなのでしょうか？
リスパーは common lisp をあまり広めたくないということなのでしょうか？

**デフォルトの名無しさん** · 2016/03/30(水) 12:55:55.23

実践common lisp みたいな本を買う人が少ないから

**デフォルトの名無しさん** · 2016/03/30(水) 19:31:52.93

Lispってちょっと勉強でつつく人は多いがガッツリやる人は少ないからね。

**デフォルトの名無しさん** · 2016/03/30(水) 20:10:40.09

>>318
にわかLisperの存在が一番Lisp族言語のユーザに迷惑なんだよねぇ orz
haskelとかjs界隈もそうみたいだけど。

良いも悪いも全部ひっくるめてLisp(あるいは言語X)で何かを作ることがすきな人にとっては大迷惑。