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:   (:use "COMMON-LISP"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.SEQUENCE")
    (:export
     "STRING-DESIGNATOR" "CHARACTER-DESIGNATOR"
     "NO-LOWER-CASE-P" "NO-UPPER-CASE-P" "MIXED-CASE-P"
  
negative.code: 
  (defmacro define-string-designator-methods (name (&rest lambda-list) (&rest string-designator-parameters)
                                              &body body)
    (let ((ll (parse-lambda-list lambda-list :ORDINARY)))  ;or :SPECIALIZED ?
      (flet ((substitute-parameters (lambda-list parameters)
               (mapcar (lambda (formal-parameter)
                         (if (atom formal-parameter)
                             (let ((typed-parameter (assoc formal-parameter parameters)))
                               (or typed-parameter formal-parameter))
                             formal-parameter))
                       lambda-list)))
        `(progn
           ,@(loop
               :for comb :in (combinations (length string-designator-parameters)
                                           '(character symbol string))
               :unless (every (lambda (class) (eql class 'string)) comb)
                 :collect `(defmethod ,name
                               ,(substitute-parameters lambda-list
                                 (mapcar (function list) string-designator-parameters comb))
                             ,@body))
           (defmethod ,name ,(substitute-parameters lambda-list
                              (mapcar (lambda (parameter) (list parameter 'string))
                               string-designator-parameters))
             (declare (ignorable ,@(make-parameter-list ll)))
             (call-next-method))))))
  
  
  (define-string-designator-methods prefixp (prefix sequence &key (start 0) (end nil) (test (function char=)))
      (prefix sequence)
  