2011-05-08から1日間の記事一覧

refer-for で定義元のソースにジャンプ

refer-for で、 [File ]: なんちゃら.l の行で enter 押すとそのファイルを開いて、定義の箇所を見れるようにした。今のところ、対応しているのは下記だけ。 関数名 変数名 マクロ名 (defvar *refer-for-jump-dir* `(,(merge-pathnames "lisp" (si:system-ro…

ファイル名をディレクトリから探してフルパスを返す

(defun find-path-from-top-directory (name dirs) "name というファイル名をディレクトリ配下で検索して、フルパスを返す。存在しなければ nil を返す。 同名ファイルが複数個存在したとしても、最初に見つけた1つしか返さない。 検索対象のディレクトリは…