anchor.diff:  ;;;;    You should have received a copy of the GNU Affero General Public License
   ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>
   ;;;;****************************************************************************
  +
   (in-package "COMMON-LISP-USER")
   (defpackage "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
     (:use "COMMON-LISP"
  
positive.code:    ;;
     "XOR" "EQUIV" "IMPLY"
     ;; "SET-EQUAL"
     )
    (:documentation
     "
  
negative.code: ;; 3 - EVALUATION AND COMPILATION
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun chrono* (thunk)
    "
  Call the THUNK and return the run-time spent on it.
  The results of THUNK are ignored.
  "
    (let ((start (get-internal-run-time)))
      (funcall thunk)
      (let ((end (get-internal-run-time)))
        (float (/ (- end start) internal-time-units-per-second)
               1.0d0))))
  
  (defmacro chrono (&body body)
    `(chrono* (lambda () ,@body)))
  
  #-:with-debug-gensym
  (defmacro with-gensyms (syms &body body)
  