ansify:defun に ed:lisp-indent-hook を設定

[miyamuko]

ansify:defun に ed:lisp-indent-hook が設定されていないためインデントがおかしくなります。

他に同様の問題がないか以下で調べてみましたが defun のみのようです (ansify 0.03.00)。

(do-external-symbols (ansify-symbol :ansify)
  (let ((orginal-symbol (intern (string ansify-symbol))))
    (when (and (get orginal-symbol 'ed:lisp-indent-hook)
               (not (get ansify-symbol 'ed:lisp-indent-hook)))
      (format t "~A~%" ansify-symbol))))
defun
nil

[bowbow99]

手元では ed::calc-lisp-indent いぢってて気付いてなかった。設定しておきます。