anchor.diff:         (cond
   	 ((= (player-map p) 50)
   	  (set-boss-kaidan map 7))
  -	 ((= (player-map p) 100)
  -	  (set-boss-kaidan map 5))
   	 (t (set-boss-kaidan map 0)))))))
       ;;(d-map-map mapn)))
       ;;(test-show-map (d-map-map mapn))))
  
positive.code: 	  (push (list y x) (donjon-stop-list map)) ;;行き止まりの座標リスト
  	  (setf (aref (donjon-map map) y x) 3)))))
  
  (defun diff-num (num len)
    (let ((hoge (random len)))
      (if (= hoge num)
  	(diff-num num len)
  	hoge)))
  
  (defun set-boss-kaidan (map boss-num)
    (let* ((len (length (donjon-stop-list map)))
  	 (k (random len)) (b (diff-num k len))
  
negative.code: 	 (startx 0)
  	 (y 0) 
  	 (starty 0))
      (if (= (player-map p) 50);;50階ボスマップは広くする
  	   (setf (donjon-yoko map) (+ *yoko* 8)
  		 (donjon-tate map) (+ *tate* 2))
  	   (setf (donjon-yoko map) *yoko*
  