#! /bin/sh # ----------------------------------------------------------------------------- # Title: A script to invoke the various CL implementations in a uniform way # Created: 1999-01-16 16:41 # Author: Gilbert Baumann # License: LGPL (See file COPYING for details) # ----------------------------------------------------------------------------- # (c) copyright 1999 by Gilbert Baumann # Prior to invocation the LISPTYPE environment variable must been set to # one of these: # # clisp # cmucl # acl43 # acl5 # gcl usage(){ cat <&2; exit 1; } case "$1" in "--help" | "-h" | "-?" ) usage ;; "-cat" ) shift case "$LISPTYPE" in clisp | cmucl | acl43 | acl5 ) cat "$@" ;; * ) fail "Sorry, option -cat not supported for LISPTYPE=${LISPTYPE}." ;; esac ;; "-faslext" ) shift case "$LISPTYPE" in clisp ) # This is (pathname-type (car (system::*compiled-file-types*))). echo 'fas' ;; cmucl ) # This can be found via (c:backend-fasl-file-type c:*target-backend*), # but for speed we look at the uname first. case $(uname -m 2>/dev/null) in i[3-6]86 ) echo .x86f ;; * ) # Call . ${CMUCL-lisp} -noinit \ -eval "(progn \ (write-string (c:backend-fasl-file-type c:*target-backend*)) \ (terpri) (ext:quit 0))" -batch