anchor.diff:      (if (monster-dead m)
   	(random-monster)
   	m)))
  -;;a→ 1 b→ 2 c→ 3 ...
  +;;a→ 0 b→ 1 c→ 2 ...
   (defun ascii->number (x)
     (if (null (numberp x))
  -      (- (char-code (char (symbol-name x) 0)) 64)))
  +      (- (char-code (char (symbol-name x) 0)) 65)))
   ;;生きている一番上の敵を選択
   (defun auto-pick-monster (num)
     (let ((m (aref *monsters* num)))
  
positive.code: (defparameter *yoko* 11)
  (defparameter *monsters* nil)
  (defparameter *monster-builders* nil)
  ;;宝箱から出る武器の確率 *buki*に対応
  (defparameter *battle?* nil)
  (defparameter *monster-num* 6)
  (defparameter *monster-level* 1) ;;階数によるモンスターのレベル
  
negative.code: ;;モンスターグループが全滅したか判定
  (defun monsters-dead ()
    (every #'monster-dead *monsters*))
  ;; 1->a 2->b 3->c ...
  (defun number->a (x)
    (code-char (+ x 96)))
  ;;モンスター表示
  