;;; on xyzzy * (format t "~10A" :foo) foo => nil * (format t "~10@A" :foo) foo => nil * (format t "~10A" "foo") foo => nil * (format t "~10@A" "foo") foo => nil @ つけると string => 左 symbol => 右 ;;; on SBCL * (format t "~10A" :foo) FOO …

ちゃんと profile とかしてないんだが、どうも generic-function の呼び出しがネックな気がする。 (make-instance 'foo :key <value>) が ;;; 0 (defmethod make-instance ((class symbol) &rest initargs) (apply #'make-instance (find-class class) initargs)) ;</value>…