ファイルの先頭付近にあるアレ ;;; -*- mode: lisp; package: editor -*- を見て、*buffer-package* を設定するやつ。*buffer-package* をちゃんとしておかないと ac-mode が上手く補完してくれないとかインデントがおかしいとか色々調子悪いんで。 ;;;; Set *buffer-package* on save-buffer (defun lisp-detect-buffer-package () (cdr (assoc "package" (ed::find-file-scan-params) :test #'string-equal)) ;; FIXME: (in-package :PACKAGE) ) (defun lisp-set-buffer-package () (when (member buffer-mo

この記事はLisp Reader Macro Advent Calendar 2012の記事です。 lisp方言のリーダーマクロの紹介という事で、Windows用テキストエディタ xyzzy のマクロ言語 xyzzy lisp よりole-readerをご紹介。 xyzzy lispのリーダーマクロ まずはxyzzyをあまり知らない人向けにxyzzy lispのリーダー機能について簡単にご説明。 xyzzyはいわゆる1つのEmacsenってやつですが、マクロ言語はCommon LispのサブセットになっているためEmacs Lispとは結構違う所があります。 マクロ言語として採用されているxyzzy LispはCommon Lispに近く6割程度の仕様が実装されている。 Emacs Lispとの互換性はあまり無い。その一方で、Windows APIにアクセスできるなど、Windowsネイテ

タグジャンプ（jump-tag）できるようにするための何やら。 ローカル変数 ed:tags-find-target この変数にセットした関数が引数なしで呼び出されるので、カーソル位置の単語を調べて クラス名 名前 関数か否か を多値で返す。 3つ目の値は、nil なら変数、'lisp:structure なら構造体、それ以外なら関数、と扱われるっぽい（tags-find-entry-1 参照）のでそんな感じで。 この情報を元に XTAGS からジャンプ先のファイル名/ポイントを探してくれる。 参考: ${XYZZY}/lisp/tags.l jump-tag ローカル変数 ed:tags-find-point ジャンプ先のファイル名が見つかったらそのファイルを開いて、この関数が呼び出される。引数は以下の4つ。 クラス名（ed:tags-find-target から） 名前（ed:tags

XTAGS を作る（make-tags-file）ための何やら。 変数 ed::*maketag-list* XTAGS を作る時は ed::*maketag-list* に設定された (タグ作る関数 ワイルドカード...) に従ってワイルドカードにマッチするファイルをタグ作る関数で処理していく。 ワイルドカードの方は単にワイルドカードなのでテキトーに指定しておく。 対象のファイル毎にそのファイルの内容をバッファに読み込んでおいて（モードとか何もしてないので注意）、タグ作る関数が呼び出される。引数が2つ。 対象のファイル名（基本的には make-tags-file で指定したディレクトリからの相対パスっぽいのだが、絶対パスになってることがあるかも） その make-tags-file 実行でこれまでに作った XTAGS エントリの数 一応 make-tags-file が作成されたエントリ

よくわかってなかったので調べた。 ファイルのトップレベルに `(eval-when (SITUATION*) ...)` を書いて、色んな読み込み方をした場合に評価されるか否か。「ただの式」ってのは eval-when で包んでない場合。 --- :execute :load-toplevel :compile-toplevel ただの式 コンパイルせずに load ○ ○ コンパイルしたとき ○ コンパイル済みを load ○ ○ こんなファイルを用意して ;;; test-eval-when.l (eval-when (:load-toplevel) (format t ":load-toplevel~%")) (eval-when (:compile-toplevel) (format t ":compile-toplevel~%")) (eval-when (:execute) (

3つとか5つとかそれくらいのデータをまとめて扱いたい時は割とすぐ defstruct してて、他にも list とか vector とか hash-table とか色々やり方はあるんで、それぞれ速度的にどーなのよ？と。xyzzy だとそこまで速度を気にすることはあんまりない（compile しないで使ってたりするくらいだし、ヘビーな計算とかするなら SBCL とか使うだろうし）のだけど、気になったので調べてみた。 速い方からざっくり。データ型で言うと (simple-)vector, list plist, alist, hash-table structure アクセスする関数で言うと 速い組み込み関数*1 second, cadr, svref, elt first とか car とかでもほぼ変わらない 遅い組み込み関数 si:*slot-value, si:*index-slot-v

http://fixdap.com/p/xyzzy/34388/ (defvar *special* :global) => *special* (let* ((*special* :local) (x *special*)) ; ここで *special* がシャドウされてない x) => :global 関係ありそうなのが src/eval.cc#1024 Flet_star xyzzy.src/eval.cc at master · southly/xyzzy.src · GitHub let* の実装 src/lex.cc#20 lex_env::let xyzzy.src/lex.cc at master · southly/xyzzy.src · GitHub レキシカル環境に束縛を追加 src/eval.cc#548 eval xyzzy.src/eval.cc at mas

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28

${XYZZY}/lisp/handler.l 参照。error, warn, signal 全部共通。 A. error CONDITION コンディション・オブジェクト（make-condition で作る奴）を渡すと、そのまま投げる。 B. error CONDITION-TYPE &rest ARGS CONDITION-TYPE のコンディション・オブジェクトを作って投げる。ARGS はそのコンディションのスロットをキーワード引数の形で。 (error 'some-condition :slot value) == (error (make-condition 'some-condition :slot value)) C. error FMT-CTRL &rest ARGS simple-error（warn だと simple-warning、signal だと simple

/lisp/lispmode.lのcalc-lisp-indent関数で インデントを計算してるのは間違いないようです。 で、早速コードを解析。 なんですけど、先頭でイキナリ詰まるｗ； (defun calc-lisp-indent (opoint) (protect-match-data . . .) せんせぇ〜(T△T)、protect-match-data関数ってなんですか？ info-modokiさんが、protect-match-date関数なんて知らないって言うんだもん＞A＜ で、困った時のgoogleせんせぇ〜。 http://xyzzy.s53.xrea.com/wiki/index.php?%BC%C1%CC%E4%C8%A2%2F131 (setq string "abc123cdef");=>"abc123cdef" (setq replacement "\\1 in

で、知りたいこと indent lispのindent機構*1 リーダーマクロ対応 function-list lispの関数ジャンプ機構*2 今の所は*3この二つを拡張したい、 のでLet's hack lispmode.l lispmodeのindentについて調査 36-94行に延々と、 各関数名のシンボルを 'lisp-indent-hookプロパティとして、 インデント数を設定してるみたい。 そのプロパティをcalc-lisp-indent関数で参照、インデント数として使用しているみたい と、推測してみた（￣ー+￣） (setf (get 'lambda 'lisp-indent-hook) 'defun) (setf (get 'interactive 'lisp-indent-hook) 1) ;;;以下、いっぱい続く 村瀬の疑問：　'lambda等のシンボルは関数名のシンボ

(compile (defun find-all-condition-and-slot-accessors () (do-all-symbols (sym) (let ((it (ignore-errors (make-condition sym)))) (when it (let ((def (si:*structure-definition it))) (format t "- ~S~%" (si:*structure-definition-name def)) (dotimes (n (si:*structure-definition-nslots def)) (format t "-- ~S~%" (si:*structure-definition-slot-description def n))))))))) => find-all-condition-and-slot-acce

lisp/compile.l を眺めてたら (get <関数名> 'compiler::optimize-form) に関数を突っ込んでおくと compile 時に inline 展開してくれるっぽいことを発見。 compiler::optimize-form に突っ込む関数は 対象の <関数名> を呼び出す form を受け取る その呼び出す form があったところに埋め込む form を返す とすればいいみたい。 ;; autolad 指定されてるっぽかったので明示的に読み込む (require "compile") => t (setf (get 'ev-oddp 'compiler::optimize-form) (lambda (form) `(oddp (example-value ,(cadr form))))) => #<lexical-closure: (anonymo

コマンドとか実行中に minibuffer で入力させて文字列を受け取るのに、なんか色々する方法。 単に文字列を入力させるなら `completing-read` 使えばいいんだけど、キーマップを変更したりインクリメンタルに何かしたりするには `*enter-minibuffer-hook*` と `*exit-minibuffer-hook*` を使う。 *enter-minibuffer-hook* `completing-read` とか `(interactive)` で minibuffer からなんか読み取るようなコマンドで minibuffer に突入する前に実行される hook。 引数として minibuffer 内で使う buffer ヒストリ変数のシンボル が渡される。この hook が走る時点では current-buffer は元の buffer のままなので、（`

なんかホッテントリメーカーくせぇ。 make-local-variable: 'symbol 現在のバッファでのみ buffer-local になる。setq とかしなくても　local-variable-p が non-nil になる。 make-variable-buffer-local: 'symbol 全てのバッファで buffer-local になる。setq するまでは local-variable-p は nil のまま。 defvar-local: symbol value &optional doc 全てのバッファで buffer-local になる。setq するまでは local-variable-p は nil のまま。 つまり make-variable-buffer-local の初期値（と説明）を指定できる版。 setq-default: symbol val

なんとなく xyzzy の辞書ファイルを更新しようとしたらちょっと驚いた。 なんでかというと、その辞書ファイルの元となる EDICT ファイルが現在も更新されていたから。 xyzzy で辞書を使う方法は XyzzyWiki か $XYZZY/etc/README.gendic を参照のこと。 2008-11-02 現在、 Wiki の edict へのリンクは切れてます。 編集したいけどページが凍結されている… 辞書ファイル配布元: The Monash Nihongo ftp Archive http://ftp.monash.edu.au/pub/nihongo/00INDEX.html トップページから "edict.gz" を検索すれば見つかるはず。大分上の辺り。 で、少し古くても構わないのならば同じ辞書ファイルは sdic (Emacs 用辞書引きメジャーモード) の作者さんであ