COMMON LISP JP > Archives > 2009/05/24

2009/05/24 11:38:21 UTCg000001
#
あれ、slime-eval-defunっでデフォルトで、defvarをdefparameterにして評価してくれるんですね
#
(defun slime-eval-defun ()
  "Evaluate the current toplevel form.
Use `slime-re-evaluate-defvar' if the from starts with '(defvar'"
  (interactive)
  (let ((form (slime-defun-at-point)))
    (cond ((string-match "^(defvar " form)
           (slime-re-evaluate-defvar form))
          (t
           (slime-interactive-eval form)))))
#
知らずに自作してましたw これLispマシン由来ですよね、多分。
#
LispマシンというかZmacs由来か。
2009/05/24 12:07:44 UTCg000001
#
http://img.f.hatena.ne.jp/images/fotolife/g/g000001/20090218/20090218111740.gif
#
Lispマシン由来といえば、SBCLにdefglobalが入ったみたいなんですが、これも動作を眺める限りLispマシン由来っぽいですよね。
#
http://random-state.net/log/3451988257.html
#
Zetalisp:
#
http://common-lisp.net/project/bknr/static/lmman/fd-eva.xml#setq-globally-fun
http://common-lisp.net/project/bknr/static/lmman/fd-eva.xml#let-globally-fun
2009/05/24 12:15:49 UTCg000001
#
CCLとか、ELIS Common LISPにもあったりするので昔からの定番拡張なのかもしれないですね。
#
http://ci.nii.ac.jp/naid/110002879856