"apply" をよく "appyl" と typo して undefined-function とか怒られるので、もうちょっと気を利かせてくれないかな、とこんなことをした。 (defun appyl (fn &rest args) (restart-case (error 'undefined-function :name 'appyl) (apply () :report "「ご…

3つとか5つとかそれくらいのデータをまとめて扱いたい時は割とすぐ defstruct してて、他にも list とか vector とか hash-table とか色々やり方はあるんで、それぞれ速度的にどーなのよ？と。xyzzy だとそこまで速度を気にすることはあんまりない（compile …

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 mast…

Re: case 構文のキーを括弧でくくると何が変わるのか - the Unspeakable One http://d.hatena.ne.jp/kitokitoki/20101001/p1 参考: CLHS: Macro CASE, CCASE, ECASE otherwise-clause なしの case をざっくり実装してみると、こんな感じ。 (defmacro %with-c…

setf 式を展開するのに使う5つの値。get-setf-expansion（xyzzy だと get-setf-method-multiple-value）で取得できるあれ。何度読んでも覚えられないので中途半端だけどメモ。 CLHS: Section 5.1.1.2 Setf Expansion (setf (ACCESSOR . ARGS) NEW-VALUE) tem…

以下の条件を満たすと place の subforms が評価される順番が変わってしまう。 PLACE に2つ以上の引数（subforms） その中にシンボルがある シンボルより後にシンボルではない式がある 3つ目の「シンボルではない式」が2つ目の「シンボル」の値に影響するよ…

condition-restart 実装しといてどう使うのかよくわかってなかったりするので試しに使ってみた。とりあえず書いてみたレベルだけど gist に貼っといた。ライブラリ（*load-path* にあるやつ）をロードする時に コンパイル済みのが無かったら バイトコンパイ…

netinstaller 用 packages.l からどうぞ。インストールして *scratch* から↓やってみたらなんとなくわかると思いたい。 (require "condition-restart") (require "condition-restart-support") (restart:setup-key-bindings) (let ((age -3)) (assert (and (…

${XYZZY}/lisp/handler.l 参照。error, warn, signal 全部共通。 A. error CONDITION コンディション・オブジェクト（make-condition で作る奴）を渡すと、そのまま投げる。 B. error CONDITION-TYPE &rest ARGS CONDITION-TYPE のコンディション・オブジェ…

${XYZZY}/lisp/handler.l 参照。 handler-bind (handler-bind ((CONDITION-TYPE 'HANDLER-FN)) FORM*) FORM* を実行中に CONDITION-TYPE 型のコンディションが投げられると、HANDLER-FN に引数として投げられたコンディションを与えて呼び出す。 handler-bin…

http://d.hatena.ne.jp/kitokitoki/20100520/p1 をパクった。 elisp には load-history なんてものがあるようだけど xyzzy にはないので *load-path* にあるものから。 (mapcan (lambda (dir) (mapcan (lambda (source) (unless (file-exist-p (concat sourc…

まずへなちょこリファレンス形式の xml でリファレンスを書く。addref 使うと title, type, arguments, package あたりは上手いこと生成してくれるんでラクチン。他の項目もタグだけ生成しといてもらえば中身埋めるだけなんでラクチン。というわけでまず add…

ネットインストーラ用 http://bowbow99.sakura.ne.jp/xyzzy/packages.l リファレンスって info-modoki-mode で見れるあれ。詳しくは http://xyzzy.s53.xrea.com/wiki/index.php?%A5%EA%A5%D5%A5%A1%A5%EC%A5%F3%A5%B9 あたり。 xyzzy 同梱の関数とかのリファ…

coding: UTF-8 も使えるように UTF-8 は BOM なしの方で 保存するときに指定した文字コードで ;;; -*- encoding: XXX -*- を取ってくる ;;; encoding じゃなくて coding でもおｋ（emacs がそうなってるみたい？） (defun file-param-encoding (&optional bu…

object の type を表記する symbol（atomic type specifier)か symbol で始まる list（compound type specifier）。`typep` とかに指定するやつ。その symbol（list の場合は car にある symbol）が xyzzy ではどう扱われてるのかって話。typep とかは symbo…

xyzzy-lisp 書いてるときは引数とか忘れたら F1 で info-modoki-mode 見てて、それだと reference に入ってないものが見れないんで自分で追加する方法。 必要なもの 全部 netinstaller からインストールできる。 info-modoki-mode: 見るために addref: 追加…

誰も困らなさそうな非互換を見つけたのでとりあえずメモだけ残しとく。Common Lisp では condition 投げられたとき*1に、どの関数で投げたかで処理系の反応（デバッガ起動するか否か）が変わる。 ;;; Clozure CL にて ? (setq c (make-condition 'simple-con…

PCL 読んでて、なんかできそうな気がしたのでやってみた。restart-case のちゃんとした仕様を把握してないけど、それっぽいことができたのでメモ。 ;; error 投げると restarter を呼び出す ;; restarter は #:restart-case の block からreturn-from するの…

「このモードでは `*pre/post-command-hook*` で何かしたい」という時。とりあえずそれを実現する方法。 A: `*pre/post-command-hook*` を buffer-local に そのモードのフック（かなにか）で `*pre/post-command-hook*` を buffer-local にしておいて `add-…

元々やりたいことは buffer にある expression を read して eval、的なこと。で condition を signal ったら CALL STACK を表示したい。stack-trace という関数があって、呼び出すと CALL STACK を出力してくれる。のだけど、signal ったのを handler-case …

defstruct の NAME-AND-OPTIONS で :type を指定するとなんかできるっぽいので。 :type を指定する インスタンスが structure のインスタンスではなくて、指定された type になる。type は sequence の subtype であればいいみたい。 ;;; 実体が list な str…

作業ログっていうかメモっていうか Return Values (expect (+ 2 1) (returns 3)) equal? It is OK to ignore too many values (let ((#1=#:results (multiple-value-list (+ 2 1)))) (equal (list 3) #1#)) => t Condition (expect (+ #\f #\o #\o) (signals…

apply: FUNCTION ARG &rest MORE-ARGS apply は何気に引数を複数に分けて受けられる。でも funcall とは違って、最初見たときは意味がわからん動作をする。 というのは、ARG と MORE-ARGS のうち一番最後の引数は list に突っ込んでおかねばならず、それ以外…

というか何に使うのかよくわかってなかった。何かの理由で anything.el について調べてて EmacsWiki: Anything を読んだ。でやっとわかった。anything 自体は何かするものじゃなくって、何をするかを指定するものなんだ。それも今までとは違うやり方で。anyt…

よい子は真似しちゃダメ ;;; キーボードの入力を乗っ取る ;;; とりあえず乗っ取ってみたかっただけなので、入力されたキーを ;;; そのまま buffer に insert ;;; C-g か RET で終了 (defun read-input () (popup-string "*** キーボード入力 横取り中 ***" (…

keymap というのは car が editor:keymap とゆー symbol で、cdr が (key . command) の alist らしい。 (setq *keymap* (make-sparse-keymap)) => (keymap) (define-key *keymap* #\C-b 'command) => t *keymap* => (keymap (#\C-b . command)) んで、多ス…

steps to phantasien: Alcor の Abbreviation Scoring を xyzzy lisp に直訳してみた。ac-mode とかの絞り込みに使えないかと思ったんだけど、そのままだと使いにくそう。将来やっぱ使おうと思ったときのためにメモ。ぐちゃぐちゃ書いてるけど、リンク先の記…

2章から使う GUI 用のライブラリを使う設定。何度もやることになるので。本で言うと P.64-67 あたり。 新しいプロジェクトを作る C-S-n テンプレートから "Win32 プロジェクト" を選んで プロジェクト名を決めて ソリューションはてきとーに設定*1して [OK] …

大きなステージを読み込んだときにはプレイヤーを中心にした一画面分だけを描画するか、 やってみた。妄想した動作は、ステージが画面に 収まる => 画面の真ん中にステージを表示して動かない 収まらない => 基本的にプレイヤーを中心に表示する ただし、ス…

こないだ @rayfillさんに教えてもらったので。 そもそも前置と後置はどう違う 前置はインクリメントした後の状態を返す、後置はインクリメントする前の状態を返す。 int a = 3, b = 3; cout << ++a // 4 << b++ // 3 << endl; 後置は変更前の値を保持する必…