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

**デフォルトの名無しさん** · 2021/06/29(火) 12:35:01.10

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

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

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

■前スレ
【入門】Common Lisp その11【質問よろず】
https://mevius.5ch.net/test/read.cgi/tech/1411307361/
【入門】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/

**デフォルトの名無しさん** · 2021/06/29(火) 12:40:54.79

祝7年ぶり12回目

**デフォルトの名無しさん** · 2021/06/29(火) 15:43:43.66

コードを書く気が起きないときはどうしたらいいですか？

**デフォルトの名無しさん** · 2021/06/29(火) 15:53:22.47

>>3
データを書いてください

**デフォルトの名無しさん** · 2021/06/29(火) 16:40:02.63

コードを書くコードを書きます

**デフォルトの名無しさん** · 2021/06/29(火) 22:07:20.07

>>3
repl いじってればやる気出てくるよ
泥団子遊び

**デフォルトの名無しさん** · 2021/07/02(金) 22:43:08.42

関数の定義をREPLから呼び出すことはできないのかな？
つまりソースを返すということだけど
それともコンパイルされてバイナリが保持されるからそういう機能はそもそも無い？

**デフォルトの名無しさん** · 2021/07/03(土) 03:15:19.11

できるシステムとできないシステムがあるよ
function-lambda-expressionがあるよ
できないシステムでも簡単に定義できるよ
やり方は教えないよ

**デフォルトの名無しさん** · 2021/07/03(土) 12:05:36.41

できらぁ！

**デフォルトの名無しさん** · 2021/07/03(土) 12:21:12.15

教えないんじゃなくて知らないだけだろ

**デフォルトの名無しさん** · 2021/07/03(土) 23:53:55.51

普通にtagsファイル作ってるけど

;.init-common.lisp
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(setf (fdefinition 'f2lam) (function fun...))
etc

;sbcl
(compile 'fdes);⇒FDES（副作用として定義置き換え、のはず）
(f2lam (fun fdes))
;defunされた時 (LAMBDA ..., T, FDES
;組み込み NIL, T CAR

こんな感じだったかと
安全取ってるからかもだけど

**デフォルトの名無しさん** · 2021/07/04(日) 00:01:20.66

init読まないでイメージ固めようとするとよくコケるのはご愛嬌

処理系のディレクトリに普通はソースあるはずだから、検索コマンドに指定しておくとよい（vimなら:find funでソースが開く）

**デフォルトの名無しさん** · 2021/07/04(日) 00:08:40.22

S式を実行時にフォームとして使いたいなら、クオートした状態で持っておいて、適宜functionでクロージャ化して使おう

replに居るときはぜひ欲しいから、fdefinition, function, macro-functionなんかでぜひ短くしておきたい子

**デフォルトの名無しさん** · 2021/07/04(日) 00:27:46.75

&wholeを掠め取ってdefunに渡すだけのdefun*でも定義しておけばコンパイル方式がminimumでもfurtherでも大丈夫だろう
plistにでもしまっておこう
symbol-functionにdefunがsetしてくれるし普通に呼べる

**デフォルトの名無しさん** · 2021/07/04(日) 01:15:15.63

sbclはランタイムある限りdescribeでソースの場所吐くね
#P"SYS:SRC;CODE;LIST.LISP"
のように
処理系、サード、自前でも任意のオブジェクトのパスを返す

ただし印字するだけで値で返してくれない、REPLから(ed *)でエディタに飛べたら便利なのに、惜しい…

(let ((*standard-output* (make-output-stream))
(describe 'funname)
(get-output-string-stream))

でとりあえずキャプチャはできそうだから、成形する関数をde/strと定義しておき

(ed (de/str 'fun))

で快適にREPLから読めると思います
(*ed-functions*の設定もよしなに)

**デフォルトの名無しさん** · 2021/07/04(日) 01:17:22.55

訂正
(get-output-string)→(get-output-string *standard-output*)
です、年のため

**デフォルトの名無しさん** · 2021/07/04(日) 01:20:06.43

あっ、年だわ…

**デフォルトの名無しさん** · 2021/07/04(日) 01:44:00.62

自作するのであれば5ｃｈの書き込みは鵜呑みにしないでslimeのソースコードを参考にするようにしてね

**デフォルトの名無しさん** · 2021/07/04(日) 02:06:58.99

印字されるならdescribeのソースでパス取得関数を呼んでるだろうし、非公開でも::で呼んじゃえば
文字列から拾う時点でもう十分行儀が悪いんだし

**デフォルトの名無しさん** · 2021/07/04(日) 13:30:03.34

>>7
これは関数定義の位置に飛びたいだけなの？
それとも式そのものが欲しいの？