>>>> 2010/04/23 追記 未使用の変数消したので、69行になってしまいました。<<<< 2010/04/23 追記ここまで 「(eval-when-compile (require 'cl))」まで加えて丁度70行です。 (eval-when-compile (require 'cl)) (defun* micro-template (mt/template &key (mt/source-type 'string)) (flet ((mt/parse () (let* ((state 'text) (multiline_expression nil) (tag-end "?>") (tag-start "<?") (tag-comment-start "<?#") (tag-expression-start "<?=") (token-separator-re (regexp