- 421 名前：名無しさん＠お腹いっぱい。 mailto:sage [2012/01/02(月) 14:59:40.35 ]
- symbol-function で関数の実体を取り出してどっかの変数に退避しておいてっ
て方法はある。
こんな感じかな？
(let ((original (symbol-function 'load)))
(flet ((load (file &optional noerror nomessage nosuffix must-suffix)
(funcall original file noerror t nosuffix must-suffix)))
(load "something")))
