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:      (second subzone)
       (third subzone))))
  
  (declaim (ftype (function * (values fixnum)) local-timezone))
  (defun local-timezone (adjusted-local-time
                         &optional (timezone *default-timezone*))
    "Return the local timezone adjustment applicable at the already adjusted-local-time. Used to reverse the effect of TIMEZONE and LOCAL-TIME-ADJUST."
  
negative.code:          (*print-circle* nil)
           (result))
      (setf result
            (with-output-to-string (str nil :element-type 'base-char)
              (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)
  