(sb-debug:backtrace)(sb-debug:backtrace-as-list)
(shadow 'length)(defmethod length (o) (cl:length o))(defmethod length ((o symbol)) (length (symbol-name o)))
;;デバッグ用セッティング(proclaim '(optimize (debug 3) (safety 3) (speed 0)))
(require :tama)