anchor.diff:        text))
   
   
  +;;;; THE END ;;;;
  
positive.code: ;;;;    59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  ;;;;*****************************************************************************
  
  (IN-PACKAGE "COMMON-LISP-USER")
  (DECLAIM (DECLARATION ALSO-USE-PACKAGES))
  (declaim (ALSO-USE-PACKAGES "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.ECMA048"))
  (DEFPACKAGE "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STRING"
    (:USE "COMMON-LISP"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY")
    (:EXPORT
     "LOCALIZE" "DEFTRANSLATION" "STRING-JUSTIFY-LEFT" "STRING-PAD"
     "PREFIXP" "SUFFIXP"
     "SPLIT-NAME-VALUE" "STRING-REPLACE" "UNSPLIT-STRING" "SPLIT-STRING"
     "SPLIT-ESCAPED-STRING" "IMPLODE-STRING" "EXPLODE-STRING"
     "CONCATENATE-STRINGS")
    (:DOCUMENTATION
     "This package exports some string processing functions.
  
      Copyright Pascal J. Bourguignon 2002 - 2005
      This package is provided under the GNU General Public License.
      See the source file for details."))
  (IN-PACKAGE "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STRING")
  
  
  
  
negative.code:     (if (<= length slen)
          string
          (let ((result
                 (make-string length :initial-element 
                              (etypecase padchar
                                (character padchar)
                                (string (aref padchar 0))
  