anchor.diff:  (defun string-from-unsigned-vector (vector offset)
     "Returns a string created from the vector of unsigned bytes VECTOR starting at OFFSET which is terminated by a 0."
     (let ((null-pos (or (position 0 vector :start offset) (length vector))))
  -	(with-output-to-string (str)
  +    (with-output-to-string (str)
                              (loop for idx from offset upto (1- null-pos)
                                    do (princ (code-char (aref vector idx)) str)))))
   
  
positive.code: (defun universal-time (local-time)
    "Return the UNIVERSAL-TIME corresponding to the LOCAL-TIME"
    (multiple-value-bind (usec seconds minutes hours day month year)
  	  (decode-local-time local-time)
  	(declare (ignore usec))
  	(encode-universal-time seconds minutes hours day month year)))
  
  (defun internal-time (local-time)
    "Return the internal system time corresponding to the LOCAL-TIME"
  
negative.code: 
  (defparameter +month-days+
    (make-array 12 :initial-contents
                (loop for length across #(0 31 30 31 30 31 31 30 31 30 31 31)
                      as days = 0 then (+ days length)
                      collect days)))
  
  