anchor.diff:  (defparameter *lv-exp* 100)
   (defparameter *start-time* 0)
   (defparameter *ha2ne2* nil)
  +(defparameter *omomin* (copy-tree +init-omomin+))
   
   (defstruct player
     (hp 30)
  
positive.code: (defparameter *yoko* 11)
  (defparameter *monsters* nil)
  (defparameter *monster-builders* nil)
  
  (defparameter *battle?* nil)
  (defparameter *monster-num* 6)
  (defparameter *monster-level* 0) ;;階数によるモンスターのレベル
  
negative.code: 
  ;;見つけた武器を装備するか
  (defun equip? (p item-a)
    (let ((item item-a));;(assoc item-a *buki* :test #'equal)))
      (scr-format "「~aを見つけた」~%" (first item))
      (scr-format "現在の装備品：~a 攻撃力:~d HP:~d 素早さ:~d~%"
  		(first (player-buki p)) (second (player-buki p))
  