anchor.diff:  
       AGPL3
       
  -    Copyright Pascal J. Bourguignon 2010 - 2012
  +    Copyright Pascal J. Bourguignon 2010 - 2015
       
       This program is free software: you can redistribute it and/or modify
       it under the terms of the GNU Affero General Public License as published by
  
positive.code: (in-package "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.VERSION")
  
  
  (defun version (&optional (version-string (lisp-implementation-version)))
    "
  Parse the version in the version-string or (lisp-implementation-version)
  This is expected to be a sequence of integers separated by dots.
  Return it as a list of integers.
  "
    (loop
       :with r = '()
       :with start = 0
       :do (multiple-value-bind (n p)
               (parse-integer version-string :start start :junk-allowed t)
             (push n r)
             (if (or (<= (length version-string) p)
                     (char= #\space (aref version-string p)))
                 (return-from version (nreverse r))   
              (setf start (1+ p))))))
  
  (defun version= (a b)
    "Compare versions A and B, which may be either lists of integers, or a dotted string."
  
negative.code: ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  ;;;;    2015-01-25 <PJB> Improved parsing of lisp-implementation-version strings.
  ;;;;    2010-07-18 <PJB> Extracted from script.lisp (extracted from .clisprc).
  ;;;;BUGS
  ;;;;LEGAL
  ;;;;    AGPL3
  ;;;;    
  ;;;;    Copyright Pascal J. Bourguignon 2010 - 2015
  ;;;;    
  ;;;;    This program is free software: you can redistribute it and/or modify
  ;;;;    it under the terms of the GNU Affero General Public License as published by
  