anchor.diff:    (declare (ignore at arguments))
     (multiple-value-bind (se mi ho da mo ye) (decode-universal-time date)
       (if colon
  -     (cond
  -       ((< (- *today* date) (* 24 60 60))
  -        (format stream  "~2,'0D:~2,'0D:~2,'0D   " ho mi se))
  -       ((< (- *today* date) (* 6 30 24 60 60))
  -        (format stream "~2,'0D-~2,'0D ~2,'0D:~2,'0D" mo da ho mi))
  -       (t
  -        (format stream "~4,'0D-~2,'0D-~2,'0D " ye mo da)))
  -     (cond
  -       ((< (- *today* date) (* 6 30 24 60 60))
  -        (format stream "~3A ~2D ~2,'0D:~2,'0D"
  -                (aref *short-month-names* (1- mo)) da ho mi))
  -       (t
  -        (format stream "~3A ~2D ~5D"
  -                (aref *short-month-names* (1- mo)) da ye))))))
  +        (cond
  +          ((< (- *today* date) (* 24 60 60))
  +           (format stream  "~2,'0D:~2,'0D:~2,'0D   " ho mi se))
  +          ((< (- *today* date) (* 6 30 24 60 60))
  +           (format stream "~2,'0D-~2,'0D ~2,'0D:~2,'0D" mo da ho mi))
  +          (t
  +           (format stream "~4,'0D-~2,'0D-~2,'0D " ye mo da)))
  +        (cond
  +          ((< (- *today* date) (* 6 30 24 60 60))
  +           (format stream "~3A ~2D ~2,'0D:~2,'0D"
  +                   (aref *short-month-names* (1- mo)) da ho mi))
  +          (t
  +           (format stream "~3A ~2D ~5D"
  +                   (aref *short-month-names* (1- mo)) da ye))))))
   
   
   (defun shorter-date (universal-time)
  
positive.code:   "Return: whether all the directories in PATH exist;
             the path to the first directory that doesn't exist."
    (let* ((non-existent
            (find-if-not
             (lambda (dir)
               #+ccl (declare (ignore dir))
               
               ;; We cannot use directory to check whether a directory
               ;; exists.  So we try a file pattern, and if not found
               ;; but no error is signaled, assume the directory exists.
               
               ;; Of course, this doesn't work on some implementations
               ;; such as ccl.
  
               ;; On ccl, if we try to create a file in an inexistant
               ;; directory, it will create it!!!  But we can use
               ;; probe-file to test directories in ccl…
  
  
               (ignore-errors
                 (or
                  #-ccl (directory (make-pathname :directory dir :name "RARE" :type "RARE" :defaults path))
                  #+ccl (probe-file path)
                  t))
               )
             (nreverse
              (loop
                 :for dir :on (reverse (pathname-directory path))
                 :collect (reverse dir))))))
      (values (not non-existent)
  
negative.code:   *working-directory*)
  
  
  
  (defun parent-directory (dirpath)
    (make-pathname :directory (let ((dir (pathname-directory dirpath)))
                                (cons (car dir) (butlast (cdr dir))))
  