anchor.diff:  ;; 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)
  
positive.code: ;;;;    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"
  
negative.code:    ;;
     "XOR" "EQUIV" "IMPLY"
     ;; "SET-EQUAL"
     ;; Miscellaneous
     "CHRONO"
     )
    (:documentation
     "
  