anchor.diff:        ;; AND the scanner is active
         (when (and pos (= pos (index layer)) (scanner-active layer))
   	;; Then they are caught
  +	;;(format t "caught in ~a~%" (index layer))
  +	(setf (caught component) t)
   	(incf (total-severity component) (severity layer)))
         (step-component layer))
       component))
  
positive.code: 			 (total-severity :accessor total-severity
  					 :initform 0
  					 :type 'integer)
  			 (player-position :accessor player-position
  					  :initform nil)))
  
  
negative.code: 			      :initarg :depth
  			      :initform (error "The :depth parameter must be provided")
  			      :type 'integer)
  		       (direction :accessor direction
  				  :initform 1
  				  :type 'integer)
  		       (scan-position :accessor scan-position
  				      :initform 0 
  				      :type 'integer)))
  