文字列の連結は、普通は(concatenate 'string "ABC" "DEF")というようにするのかもしれないが、何度も書くと冗長な気がするので、独自のappend-stringを定義。 (defun append-string (original-string append-string) (concatenate 'string original-string …