File : sbcl-pwd.sh - Ohloh Code Search

Project: Steel Bank Common Lisp

Code Location: git://sbcl.git.sourceforge.net/gitroot/sbcl/sbcl.gitmaster

Download File

sbcl-pwd.sh

#!/bin/false
# Not a shell script, but something intended to be sourced from shell scripts

# This ensures that SBCL_PWD is a path understandable to SBCL.

sbcl_pwd() {
    if [ "${OSTYPE:-}" = "cygwin" ] ; then
	SBCL_PWD="`cygpath -m \"$(pwd)\"`"
    else
	SBCL_PWD="`pwd`"
    fi
    export SBCL_PWD
}