anchor.diff:    (let* ((non-existent
             (find-if-not
              (lambda (dir)
  -             ;; We cannot directory to check whether a directory
  +             
  +             ;; 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.
  -             (ignore-errors (or (directory (make-pathname :directory dir :name "RARE" :type "RARE" :defaults path))
  -                                t)))
  +             
  +             ;; 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))
  
positive.code:   (apply (function more) :page nil paths))
    
  
  (DEFVAR *DIRECTORY-STACK* NIL)
  
  
  (DEFUN CD (&OPTIONAL PATH)
    "COMMAND
  DO:         Change the working directory.
  ARGUMENTS:  The path of the new working directory.
              If not given, then change to the user home directory.
  "
    (CHANGE-WORKING-DIRECTORY
     (if path
         (resolve path  :directory t)
         (USER-HOMEDIR-PATHNAME))))
  
  
  (DEFUN PWD   ()
    "COMMAND
  DO:         Returns the current working directory.
  "
    (WORKING-DIRECTORY))
  
  
  (DEFUN POPD  ()
    "COMMAND
  DO:         Unstack the working directory from the stack.
  "
    (IF *DIRECTORY-STACK*
        (CONS (CHANGE-WORKING-DIRECTORY (POP *DIRECTORY-STACK*)) *DIRECTORY-STACK*)
        (LIST (WORKING-DIRECTORY))))
  
  
  (DEFUN PUSHD (&OPTIONAL PATH)
    "COMMAND
  DO:         Push the current working directory onto the stack, and
              change the working directory to the path (or home directory).
  SEE;        POPD, CD.
  "
    (IF PATH
        (PROGN
          (PUSH (WORKING-DIRECTORY) *DIRECTORY-STACK*)
          (CONS (CD PATH) *DIRECTORY-STACK*))
        (LET ((TOP (POP *DIRECTORY-STACK*)))
          (PUSH (WORKING-DIRECTORY) *DIRECTORY-STACK*)
          (CONS (CD TOP)  *DIRECTORY-STACK*))))
  
  
  ;;;; THE END ;;;;
  
negative.code:                          :key (function namestring)
                           :test (function string=))
                          '("*/" "*"))))
                    :key (function namestring)
                    :test (function string=))
                   (function string<) :key (function namestring)))
          (if opt-long
              (format t "~1A ~10A ~11A ~A~%"
  