anchor.diff:    shadow-type pairs)
   
   (deferror shadowing-constructor-no-match () (shadow-type func-id)
  -  "Varjo: Was asked to shadow the function with the idenifier ~a as
  +    "Varjo: Was asked to shadow the function with the idenifier ~a as
   a constructor for the shadow-type ~a.
   
   However no functions were found that matched this identifier."
     func-id shadow-type)
   
   (deferror def-shadow-non-func-identifier () (name func-ids)
  -  "Varjo: ~a was ask to shadow some functions, however the following
  +    "Varjo: ~a was ask to shadow some functions, however the following
   identifiers are have problems:
   ~{~%~s~}
   
  
positive.code:   name func-ids)
  
  (deferror shadowing-funcs-for-non-shadow-type () (name shadow-type)
    "Varjo: ~a was ask to shadow some functions for the type ~a,
  however the type ~a is not a shadow type."
    name shadow-type shadow-type)
  
  (deferror fell-through-v-typecase () (vtype wanted)
    "Varjo: ~a fell through V-ETYPECASE expression.
  Wanted one of the following types: ~s}"
    vtype wanted)
  
  
negative.code: ;;              (format stream "There is a problem with ~A."
  ;;                      (machine-error-machine-name condition)))))
  
  ;;------------HELPER-----------;
  
  (defmacro defcondition (name (&key error-type prefix)
                                  (&rest args) error-string &body body)
  