anchor.diff:                                (abs (truncate (mod offset +seconds-per-hour+)
                                                +seconds-per-minute+)))))))))
       (when destination
  -      (princ result destination))
  +      (write-string result destination))
       result))
   
   (defun format-datestring (date)
  
positive.code:          (*print-circle* nil)
           (result))
      (setf result
            (with-output-to-string (str)
              (when timezone
                (setf local-time (adjust-to-timezone local-time timezone (make-local-time))))
              (multiple-value-bind (nsec sec minute hour day month year day-of-week daylight-p zone)
  
negative.code: 
  (in-package :local-time)
  
  (declaim (inline now today encode-duration format-rfc3339-timestring)
           (ftype (function * (values simple-base-string)) format-rfc3339-timestring)
           (ftype (function * (values simple-base-string)) format-timestring)
           (ftype (function * (values simple-base-string)) format-duration)
           (ftype (function * (values fixnum)) local-timezone)
           (ftype (function (local-time) (values (integer 0 999999999) (integer 0 59) (integer 0 59) (integer 0 23)
                                                 (integer 1 31) (integer 1 12) (integer -1000000 1000000)
                                                 t t t))
                  decode-local-time))
  
  (defparameter *project-home-directory*
    (make-pathname :directory (pathname-directory
  