anchor.diff:  
   
   (defun test ()
  +  (test/string-designator)
  +  (test/character-designator)
     (test/concatenate-strings)
     (test/implode-explode))
   
  +(test)
  +
   
   ;;;; THE END ;;;;
  
positive.code:     (com.informatimago.common-lisp.cesarum.ecma048:generate-all-functions-in-ecma048)))
  
  
  (deftype string-designator ()
    "The type of string designators."
    '(or string symbol character))
  
  (defun designated-string (object)
    "
  RETURN:   The string designated by the string designator OBJECT.
  NOTE:     If OBJECT is not a string designator, then signal a TYPE-ERROR.
  SEE ALSO: PRINC-TO-STRING, PRIN1-TO-STRING.
  "
    (check-type object string-designator)
    (typecase object
      (string object)
      (symbol (symbol-name object))
      (character (string object))))
  
  
  (defun test/concatenate-strings ()
  
negative.code:         "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY")
    (:export
     "STRING-DESIGNATOR" "CHARACTER-DESIGNATOR"
     "NO-LOWER-CASE-P" "NO-UPPER-CASE-P" "MIXED-CASE-P"
     "LOCALIZE" "DEFTRANSLATION" "STRING-JUSTIFY-LEFT" "STRING-PAD"
     "PREFIXP" "SUFFIXP"
     "SPLIT-NAME-VALUE" "STRING-REPLACE" "UNSPLIT-STRING" "SPLIT-STRING"
  