anchor.diff:  (define-string-designator-methods suffixp (suffix sequence &key (start 0) (end nil) (test (function char=)))
       (suffix sequence)
     (suffixp (string suffix) (string sequence) :start start :end end :test test))
  -
  -
   
   
   (defun string-pad (string length &key (padchar " ") (justification :left))
  
positive.code:       :with strings = (mapcar
                         (lambda (item)
                           (etypecase item
                             ((or string symbol character) (string item))
                             (null                         "")
                             (cons (if (every (function characterp) item)
                                       (coerce item 'string)
                                       (list (etypecase (first item)
                                               ((or string symbol character) (string (first item)))
                                               (null "")
                                               (cons (coerce (first item) 'string)))
                                             (second item)
                                             (third item))))))
                         list-of-string-designators)
  
negative.code:   (:use "COMMON-LISP"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.SEQUENCE"
          "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM")
    (:export
     "STRING-DESIGNATOR" "CHARACTER-DESIGNATOR"
     "NO-LOWER-CASE-P" "NO-UPPER-CASE-P" "MIXED-CASE-P"
  