From 45b65b59b4626cc40b86c0a8f49452893f2f6a4b Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 14 May 2021 19:36:04 +0100
Subject: [PATCH] toy-runlisp: Delete old cruft.

---
 toy-runlisp | 85 -------------------------------------------------------------
 1 file changed, 85 deletions(-)
 delete mode 100755 toy-runlisp

diff --git a/toy-runlisp b/toy-runlisp
deleted file mode 100755
index 0723aff..0000000
--- a/toy-runlisp
+++ /dev/null
@@ -1,85 +0,0 @@
-#! /bin/sh -e
-
-case $# in
-  0 | 1) echo >&2 "usage: $0 LISP SCRIPT [ARGS ...]"; exit 127 ;;
-esac
-lisp=$1 script=$2; shift 2
-
-__CL_ARGV0=$script; export __CL_ARGV0 # this is stupid
-
-lispscript=$(printf "%s" "$script" | sed 's/[\"]/\\&/g')
-
-load_asdf_rune="\
-(let ((*load-verbose* nil)
-      #+cmu (ext:*require-verbose* nil))
-  (require \"asdf\"))"
-
-ignore_shebang_rune="\
-(set-dispatch-macro-character
- #\# #\!
- (lambda (stream char arg)
-   (declare (ignore char arg))
-   (values (read-line stream))))"
-
-clisp_startup_rune="\
-(progn
-  $ignore_shebang_rune
-  $load_asdf_rune
-  (setf *standard-input* (ext:make-stream :input))
-  (load \"$lispscript\" :verbose nil :print nil)
-  (ext:quit))"
-
-abcl_startup_rune="\
-(let ((script \"$lispscript\"))
-  $load_asdf_rune
-  $ignore_shebang_rune
-  (setf *error-output*
-	  (java:jnew \"org.armedbear.lisp.Stream\"
-		     'sys::system-stream
-		     (java:jfield \"java.lang.System\" \"err\")
-		     'character
-		     java:+true+))
-  (handler-case (load script :verbose nil :print nil)
-    (error (error)
-      (format *error-output* \"~A (unhandled error): ~A~%\" script error)
-    (ext:quit :status 255))))"
-
-#set -x
-case $lisp in
-
-  sbcl)
-    exec sbcl --noinform --eval "$load_asdf_rune" --script "$script" "$@"
-    ;;
-
-  ecl)
-    exec ecl --norc --eval "$load_asdf_rune" --shell "$script" -- "$@"
-    ;;
-
-  clisp)
-    exec clisp -norc -q -x "$clisp_startup_rune" -- "$@"
-    ;;
-
-  cmucl)
-    exec cmucl -batch -noinit -nositeinit -quiet \
-	 -eval "$load_asdf_rune" \
-	 -eval "$ignore_shebang_rune" \
-	 -load "$script" -eval "(ext:quit)" -- "$@"
-    ;;
-
-  ccl)
-    exec ccl -b -n -Q \
-	 -e "$load_asdf_rune" \
-	 -e "$ignore_shebang_rune" \
-	 -l "$script" -e "(ccl:quit)" -- "$@"
-    ;;
-
-  abcl)
-    exec abcl --batch --noinform --noinit --nosystem \
-	 --eval "$abcl_startup_rune" -- "$@"
-    ;;
-
-  *)
-    echo >&2 "$0: unsupported Lisp \`$lisp'"
-    exit 127
-    ;;
-esac
-- 
2.11.0