sbcl-pwd.sh

   1 #!/bin/false
   2 # Not a shell script, but something intended to be sourced from shell scripts
   3
   4 # This ensures that SBCL_PWD is a path understandable to SBCL.
   5
   6 sbcl_pwd() {
   7     case "${OSTYPE:-}" in
   8         cygwin)
   9             SBCL_PWD="`cygpath -m \"$(pwd)\"`" ;;
  10         msys)
  11             SBCL_PWD="`pwd -W`" ;;
  12         *)
  13             SBCL_PWD="`pwd`" ;;
  14     esac
  15     export SBCL_PWD
  16 }