最後。
単純に名前置き換えしただけだと、
あとでre-defineされたときに別扱いになってしまうので
そういう可能性のある関数名は次のマクロで別名定義する。
（SLIBのtranscriptなどは入出力系関数の上書きを行う為）

(dm (alias . l)
　`(de (,(car l) . args) (apply ,(cadr l) args)))

(alias disp display) ; -> (de disp(la args(apply display args)))と同じ
(alias eol newline)
(alias getc read-char)
(alias putc write-char)