anchor.diff:         (close shell-stream)
          (when error-stream (close error-stream))))
      
  -   (error "No implementation for SHELL-TO-STRING")))
  +   (error "No implementation for SHELL-TO-STRING: ~S" command)))
   
   
   (defun external-namestring (pathname)
     (setq pathname (truename pathname))
     (%SYSDEP "convert pathname to a namestring suitable for external programs"
  -           #+(and MCL (not openmcl))
  +           #+digitool
              (if (ccl::using-posix-paths-p)
                (ccl::posix-namestring pathname)
                (namestring pathname))
  
positive.code:   (%SYSDEP 
     "check if input is available on socket stream"
  
     #+clisp-ext
     (eq t (ext:read-byte-lookahead stream))
     ;;(not (ext:read-byte-will-hang-p stream))
     #+clisp t                            ;Ouch!
  
negative.code:   (%SYSDEP
     "add stream to select"
  
     #+clorb::clisp-new-socket-status
     (length (push
               (cons stream
                (cond ((not input)  :output)
  