[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:sakura.ne.jp/southly/lisp/ni/view.lisp]] | [[buzz:http://www.google.com/profiles/southly#buzz]]

[[Scheme、Common Lisp、Emacs Lispの比較:http://www.ice.nuie.nagoya-u.ac.jp/~h003149b/lang/comparison.html]]

Common Lisp自体は静的スコープだけど、 大域変数は暗黙的にスペシャル変数となるので Emacs Lispと同様上のような結果になる。

ダウト!
もしかしてCLtL1のときはそういう仕様だったのかもと確認してみたけれど、変更された形跡もない。
トップレベルで定義されようとレキシカルスコープに変わりはない。

　http://community.computerhistory.org/scc/projects/LISP/

• やっぱバイナリエディタ欲しいってことでhexl移植しました。
• 70502.lzh　（←バグっていたので修正した）
• [[山本さん:xyzzy/index.html]]のは持ってないので、どのくらい違うかはよく分かりません。（持ってたらわざわざ移植しませんし）
• 編集関係・保存関係は自信が無いので気をつけて使ってください。
• あと、つぶした方が良さそうなキーバインドとかも教えてください。
• hexl.exeはVC8でコンパイルしたせいかmeadowのものよりえらくでかいです。気になる人はmeadowのものを使ってください。
• なんとなくxyzzyならhexl.exe無しでもできそうな気がします。根性のある人は挑戦してみてください。
• 今回は文字と整数が同一視される部分が面倒だった。
• chunkについて理解を深めた。
• undo-boundaryの動作がいまいちワカンネ。

　lisp-1.html

関数一般についてはこの辺りが参考になります。
Schemeの話ですけど基本的に一緒。

• http://lists.sourceforge.jp/mailman/archives/gauche-devel-jp/2004-September/001210.html
• lists.sourceforge.jp/mailman/archives/gauche-devel-jp/2004-September/001212.html

(defun nswap (l x y)
  (rotatef (car (nthcdr x l)) (car (nthcdr y l)))
  l)

(defun nshuffle (l)
  (do ((i (length l) (1- i)))
      ((>= 1 i))
    (setq l (nswap l (1- i) (random i))))
  l)

元のデータを直接いじっていくほうが分かりやすくないッスか?
ってことでこんな。
nswapは関数にする必要は無いけど意味が分かりやすいように。

interactive指定子を作っちゃえば楽に置き換えられるんじゃね？
ってことで、こんな。

(in-package "editor")
(defun interactive-read-string-with-escape-sequence (prompt default history title)
  (list (decode-escape-sequence (read-string prompt :default default :history history) nil)))
(pushnew '(#\w . interactive-read-string-with-escape-sequence)
	 *interactive-specifier-alist* :test #'equal)
(defun interactive-read-regexp-with-escape-sequence (prompt default history title)
  (list (decode-escape-sequence (read-string prompt :default default :history history) t)))
(pushnew '(#\W . interactive-read-regexp-with-escape-sequence)
	 *interactive-specifier-alist* :test #'equal)

;; こんな感じで使う
;; 文字列
(defun search-forward-wes (pattern &optional noerror)
  (interactive "wSearch forward: "
    :default0 *last-search-string* :history0 'search)
  (search-command pattern nil nil (interactive-p) noerror))
;; 正規表現
(defun re-search-forward-wes (regexp &optional noerror)
  (interactive "WRe-search forward: "
    :default0 *last-search-regexp* :history0 'search)
  (search-command regexp nil t (interactive-p) noerror))
(export '(search-forward-wes re-search-forward-wes))
(in-package "user")

• 「On Lisp」確保
• 赤塚さんのxyzzyの説明がなくなってるなぁ
• abbrev, インデント, コンパイルはいりそうな気がする
• 「変数の種類」という観点からの説明だから、個々の状況の説明まではしなかったんだよなぁ
• ダイナミックスコープってそういうものというか、環境を超える効果を持っているのがスペシャル変数というイメージですね＞「スペシャルであるかどうかということは環境の古いものから引き継ぐ」

; トップレベル
(setq x 1)
; 実験用関数
(defun f()
  x)
; lexicalな束縛
((lambda (x) (f)) 2)
=> 1
; (declare (special x)) によって、この環境ではxがスペシャル変数に昇格
((lambda (x) (declare (special x)) (f)) 2)
=> 2
; また新しい環境なので通常のlexicalな束縛
((lambda (x) (f)) 2)
=> 1

• こんな説明でどうでしょう
• この状況のポイントは「(declare (special ...))の効果は環境内のみの一時的なもの」という事だと思う。効果が環境内のみの一時的なものだからこそ(declare (special ...))は環境の頭の方と記述する場所が決まっていて、環境の途中で変化するなんてことがない。

　viewforum.php?f=40
めも