anchor.diff:                                        ((stringp cur-char) (aref cur-char 0))
                                         ((numberp cur-char) (code-char cur-char))
                                         ((symbolp cur-char)
  -                                       (aref (symbol-sprite-name cur-char) 0))
  +                                       (aref (sprite-name cur-char) 0))
                                         (t (error "~S is not a character!"
                                                   cur-char))
                                         ))))))
  
positive.code:                                   ((stringp cur-char) (aref cur-char 0))
                                    ((numberp cur-char) (code-char cur-char))
                                    ((symbolp cur-char)
                                     (aref (symbol-sprite-name cur-char) 0))
                                    (t (error "~S is not a character!" cur-char))
                                    )))
                       (loop for x from 0 below (array-dimension new-data 2)
  
negative.code:      (set-sprite-data self
                        (mapcar (lambda (frame) (split-string frame *new-line*))
                                sprite-data)))
      ((and (consp sprite-data)
            (consp (car sprite-data))
            (or (stringp (caar sprite-data))
                (consp (caar sprite-data))))
       (let ((new-data
               (make-array
                (list (length sprite-data)
  