
<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Ahh yes, of course.. However, when I try the command line:<div><br></div><div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">bash-3.2$ test/run-tests.sh lispworks</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">test/run-tests.sh: line 162: type: lispworks: not found</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">test/run-tests.sh: line 57: (load "test/compile-asdf.lisp"): No such file or directory</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">bash-3.2$ </span></font></div><div><br></div><div><br></div><div>So here is the script... what am I, or have I done incorrectly?</div><div><br></div><div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">#!/bin/sh</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"># do_tests {lisp invocation} {scripts-regex}</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"># - read lisp forms one at a time from standard input</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"># - quit with exit status 0 on getting eof</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"># - quit with exit status >0 if an unhandled error occurs</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">export CL_SOURCE_REGISTRY="$PWD"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">unset DEBUG_ASDF_TEST</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">while getopts "duh" OPTION</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">do</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    case $OPTION in</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        d)</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">            export DEBUG_ASDF_TEST=t</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">            ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        u)</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">            usage</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">            exit 1</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">            ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        h)</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">            usage</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">            exit 1</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">            ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    esac</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">done</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">shift $(($OPTIND - 1))</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">if [ x"$1" = "xhelp" ]; then</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    usage</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    exit 1</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">fi</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">if [ -z "$2" ]; then</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    scripts="*.script"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">else</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    scripts="$2"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">fi</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">sok=1</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">usage () {</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "$0 [lisp invocation] [scripts-regex]"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo " - read lisp forms one at a time from matching scripts"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo " - quit with exit status 0 on getting eof"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo " - quit with exit status >0 if an unhandled error occurs"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo " you need to supply the .script in the second argument"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo " lisps include sbcl, clisp, allegro and allegromodern"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "OPTIONS:"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "    -d -- debug mode"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "    -u -h -- show this message."</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">}</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">do_tests() {</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  command=$1 eval=$2 fasl_ext=$3</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  rm -f *.$fasl_ext ~/.cache/common-lisp/"`pwd`"/*.$fasl_ext || true</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  ( cd .. &&  $command $eval '(load "test/compile-asdf.lisp")' )</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  if [ $? -eq 0 ] ; then</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "Compiled OK"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    test_count=0</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    test_pass=0</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    test_fail=0</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    failed_list=""</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    for i in $scripts ;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    do</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      echo "Testing: $i" >&2</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      test_count=`expr "$test_count" + 1`</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      rm -f *.$fasl_ext ~/.cache/common-lisp/"`pwd`"/*.$fasl_ext || true</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      if $command $eval "(load \"$i\")" ; then</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        echo "Using $command, $i passed" >&2</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"> </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">test_pass=`expr "$test_pass" + 1`</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      else</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        echo "Using $command, $i failed" >&2</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">test_fail=`expr "$test_fail" + 1`</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">failed_list="$failed_list $i"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        sok=0</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      fi</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    done</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo >&2</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "-#---------------------------------------" >&2</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "Using $command" >&2</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "Ran $test_count tests: " >&2</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "  $test_pass passing and $test_fail failing" >&2</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    if [ $test_fail -eq 0 ] ; then</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">echo "all tests apparently successful" >&2</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    else</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">       </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">echo "failing test(s): $failed_list" >&2</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    fi</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "-#---------------------------------------" >&2</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo >&2</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  fi</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">}</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"># terminate on error</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">set -e</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">lisp=$1</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">if [ -z $1 ] ; then</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    lisp="sbcl"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">fi</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">case "$lisp" in</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  sbcl)</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    if type sbcl ; then</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      fasl_ext="fasl"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      command="sbcl --noinform --userinit /dev/null --sysinit /dev/null"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      nodebug="--disable-debugger"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      eval="--eval"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    fi ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  clisp)</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    if type clisp ; then</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"> </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">fasl_ext="fas"</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">       </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">command=`which clisp`</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">command="$command -norc -ansi -I "</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        nodebug="-on-error exit"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        eval="-x"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    fi ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  allegro)</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    if type alisp ; then</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">   </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">fasl_ext="fasl"</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">command="alisp -q "</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        nodebug="-batch"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        eval="-e"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    fi ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  allegromodern)</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    if type mlisp ; then</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">fasl_ext="fasl"</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">command="mlisp -q"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        nodebug="-batch"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        eval="-e"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    fi ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  ccl)</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    if type ccl ; then</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        case `uname -s` in</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">          Linux) fasl_os=lx ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">          Darwin) fasl_os=dx ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        esac</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        case `uname -m` in</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">          x86_64|ppc64) fasl_bits=64 ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">          i?86|ppc) fasl_bits=32 ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        esac</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        fasl_ext="${fasl_os}${fasl_bits}fsl"</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">     </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">command="ccl --no-init --quiet"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        nodebug="--batch"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        eval="--eval"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    fi ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  cmucl)</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    if type lisp ; then</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">fasl_ext="x86f"</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">      </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">command="lisp -noinit"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        nodebug="-batch"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        eval="-eval"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    fi ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  ecl)</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    if type ecl ; then</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">fasl_ext="fas"</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">       </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">command=`which ecl`</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">command="$command -norc"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">        eval="-eval"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    fi ;;</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"> <font class="Apple-style-span" color="#F61D20"> lispworks)</font></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><font class="Apple-style-span" color="#F61D20">    if type lispworks ; then</font></span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><font class="Apple-style-span" color="#F61D20">        </font></span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><font class="Apple-style-span" color="#F61D20">fasl_ext="64xfasl"</font></span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><font class="Apple-style-span" color="#F61D20">       </font></span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><font class="Apple-style-span" color="#F61D20">command=`which lwm64`</font></span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><font class="Apple-style-span" color="#F61D20">      </font></span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><font class="Apple-style-span" color="#F61D20">command="$command -siteinit - -init -"</font></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><font class="Apple-style-span" color="#F61D20">        eval="-eval"</font></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><font class="Apple-style-span" color="#F61D20">    fi ;;</font></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">esac</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">if [ -z "${DEBUG_ASDF_TEST}" ] ; then</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">  command="$command $nodebug"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">fi</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">create_config () {</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    mkdir -p ../tmp/test-source-registry-conf.d ../tmp/test-asdf-output-translations-conf.d</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">}</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">clean_up () {</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    rm -rf ../tmp/test-source-registry-conf.d ../tmp/test-asdf-output-translations-conf.d</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">}</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">if [ -z "$command" ] ; then</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo "Error: cannot find or do not know how to run Lisp named $lisp"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">else</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    create_config</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    mkdir -p results</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    echo $command</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    thedate=`date "+%Y-%m-%d"`</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    do_tests "$command" "$eval" "$fasl_ext" 2>&1 | \</span></font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    </span></font></span><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">tee "results/${lisp}.text" "results/${lisp}-${thedate}.save"</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">    clean_up</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;">fi</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><br></span></font></div><div><br></div></div><div><div>On Feb 27, 2010, at 18:53 PM, Far� wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div>Of course the if type lispworks looks for lispworks in your path, then<br>fails silently.<br>If you want the lispworks binary to be called lwm64 instead of<br>lispworks, you have to change that, too...<br><br>[ Fran�ois-Ren� �VB Rideau | Reflection&Cybernethics | <a href="http://fare.tunes.org">http://fare.tunes.org</a> ]<br>If a vegetarian eats vegetables, what does a humanitarian eat? � Mark Twain<br><br><br><br><br>On 27 February 2010 19:21, David McClain <<a href="mailto:dbm@refined-audiometrics.com">dbm@refined-audiometrics.com</a>> wrote:<br><blockquote type="cite">And yes, I modified that portion of the script that you mentioned:<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">  lispworks)<br></blockquote><blockquote type="cite">    if type lispworks ; then<br></blockquote><blockquote type="cite">fasl_ext="64xfasl"<br></blockquote><blockquote type="cite">command=`which lwm64`<br></blockquote><blockquote type="cite">command="$command -siteinit - -init -"<br></blockquote><blockquote type="cite">        eval="-eval"<br></blockquote><blockquote type="cite">    fi ;;<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">On Feb 27, 2010, at 17:13 PM, Far� wrote:<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">What is your first argument to run-tests.sh?<br></blockquote><blockquote type="cite">Did you modify run-tests.sh to support it? See the case "$lisp" statement.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Please pull the latest git, it has some additional sanity checking.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">[ Fran�ois-Ren� �VB Rideau | Reflection&Cybernethics | <a href="http://fare.tunes.org">http://fare.tunes.org</a><br></blockquote><blockquote type="cite">]<br></blockquote><blockquote type="cite">The problem with most conspiracy theories is that they seem to believe that<br></blockquote><blockquote type="cite">for a group of people to behave in a way detrimental to the common good<br></blockquote><blockquote type="cite">requires intent.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">The problem with most statist theories is that they seem to believe that<br></blockquote><blockquote type="cite">for a group of people to behave in a way beneficial to the common good<br></blockquote><blockquote type="cite">requires intent.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">On 27 February 2010 19:02, David McClain <<a href="mailto:dbm@refined-audiometrics.com">dbm@refined-audiometrics.com</a>><br></blockquote><blockquote type="cite">wrote:<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Ahhh... yes, in doing my manual test, I discovered that the submitted -eval<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">argument needs to be a string.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Furthermore, when I modify your script with 'echo' so that I can examine<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">what is being performed, here are the results:<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">;; Script as modified in the 4th line..<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">do_tests() {<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">  command=$1 eval=$2 fasl_ext=$3<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">  rm -f *.$fasl_ext ~/.cache/common-lisp/"`pwd`"/*.$fasl_ext || true<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">  ( cd .. && echo $command $eval "(load \"test/compile-asdf.lisp\")" )<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">  if [ $? -eq 0 ] ; then<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">    echo "Compiled OK"<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">    test_count=0<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">bash-3.2$ test/run-tests.sh lwm64<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">(load "test/compile-asdf.lisp")  <<---- AHA! Wrong!<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Compiled OK<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Testing: *.script<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">test/run-tests.sh: line 69: (load "*.script"): command not found<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Using  , *.script failed<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">-#---------------------------------------<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Using<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Ran 1 tests:<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">  0 passing and 1 failing<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">failing test(s):  *.script<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">-#---------------------------------------<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">bash-3.2$<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">So $command, $eval, and $fasl_ext must not be getting set properly<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">On Feb 27, 2010, at 16:54 PM, David McClain wrote:<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Hi Guys,<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">I don't have a problem dealing with LW. But I want to have them work on<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">things that are within their purview.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">The script problem is being reported by Bash, not LWM. The environment is<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Mac OS X 10.6.2 (Snow Leopard).<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">I can invoke LWM from a command line just fine, including passing an initial<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">SExpr for eval. Here is a direct example, performed in Emacs in Shell mode:<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">bash-3.2$ lwm64 -siteinit - -init - -eval "(print :hello)"<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">LispWorks(R): The Common Lisp Programming Environment<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Copyright (C) 1987-2009 LispWorks Ltd.  All rights reserved.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Version 6.0.0<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Saved by dbmcclain as lwm64, at 27 Feb 2010 6:37<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">User dbmcclain on RoadKill.local<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">:HELLO<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">CL-USER 1 ><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">So the problem is one of the script in getting Bash to properly interpret<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">the synthesized command.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Dr. David McClain<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><a href="mailto:dbm@refined-audiometrics.com">dbm@refined-audiometrics.com</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">_______________________________________________<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">asdf-devel mailing list<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><a href="mailto:asdf-devel@common-lisp.net">asdf-devel@common-lisp.net</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><a href="http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel">http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Dr. David McClain<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><a href="mailto:dbm@refined-audiometrics.com">dbm@refined-audiometrics.com</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">_______________________________________________<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">asdf-devel mailing list<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><a href="mailto:asdf-devel@common-lisp.net">asdf-devel@common-lisp.net</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><a href="http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel">http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Dr. David McClain<br></blockquote><blockquote type="cite"><a href="mailto:dbm@refined-audiometrics.com">dbm@refined-audiometrics.com</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><br></div></blockquote></div><br><div>

<div>Dr. David McClain</div><div><a href="mailto:dbm@refined-audiometrics.com">dbm@refined-audiometrics.com</a></div><div><br></div><br class="Apple-interchange-newline">

</div>

<br></div></body></html>