1 files changed, 0 insertions, 118 deletions
diff --git a/dev-lisp/clisp/files/2.36/clisp.sh b/dev-lisp/clisp/files/2.36/clisp.sh
deleted file mode 100644
index f5ed6a1d8fce..000000000000
--- a/dev-lisp/clisp/files/2.36/clisp.sh
+++ /dev/null
@@ -1,118 +0,0 @@
-#!/bin/sh
-# Copyright (c) 2002 Kevin M. Rosenberg
-# GNU GPL v2 license
- 
-if [ ! -f /usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp ] ; then
-  echo "*** Can't find common-lisp-controller.lisp ***" >&2
-  echo "Please report this as a bug" &>2
-  exit 1
-fi
-
-clisp_dir=/usr/lib/clisp
-clc_lib_dir=/usr/lib/common-lisp/clisp
-
-builder=/usr/bin/clisp
-old_mem=$clisp_dir/full/lispinit.mem
-new_mem=$clisp_dir/full/lispinit-new.mem
-clean_mem=$clisp_dir/full/lispinit-clean.mem
-
-lisp_error()
-{
-    echo "Error running $builder" >&2
-    exit 1
-}
-
-mem_error()
-{
-    echo "Error moving new lisp image $new_mem" >&2
-    exit 1
-}
-
-
-case $1 in
-    rebuild)
-	echo $0 Rebuilding packages...
-	shift
-	while [ -x $builder ] && [ ! -z "$1" ] ; do
-	    echo ...rebuilding $1
-	    $builder -norc -q -M $old_mem -x "
-(let ((*compile-print* nil)
-      (*compile-progress* nil)
-      (*compile-verbose*  nil)
-      (*require-verbose* nil)
-      (*load-verbose* nil) 
-      (mk::*load-source-if-no-binary* nil)
-      (mk::*bother-user-if-no-binary* nil)
-      (mk::*compile-during-load* t))
-   (handler-case
-      (progn
-         (c-l-c:compile-library (quote $1))
-         (ext:exit 0)
-       )
-    (error (e)
-      (ignore-errors (format t \"~&Build error: ~A~%\" e))
-      (finish-output)
-      (ext:exit 1))))"  || exit 1
-	    shift
-	done 
-	;;
-    remove)
-	echo $0 Removing packages...
-	shift
-	while [ ! -z "$1" ] ; do
-	    echo ...removing package $1
-	    rm -rf "${clc_lib_dir}/$1"
-	    shift
-	done
-	rmdir $clc_lib_dir 2> /dev/null 
-	;;
-    install-clc)
-	echo Installing clc...
-	if [ ! -f $clean_mem ]; then
-	    cp $old_mem $clean_mem
-	fi
-	if [ -x $clisp_dir/$lisp_builder ]; then
-	    $builder -norc -q -M $clean_mem \
-		-x "
-(handler-case
-  (progn 
-    (when (find-package :c-l-c) ; have to remove 
-      (delete-package :c-l-c))  ; for clisp workaround
-    (load \"$clisp_dir/install-clc.lisp\") 
-    (saveinitmem \"${new_mem}\")
-    (ext:exit 0))
-  (error (e)
-    (ignore-errors (format t \"~&install-clc error: ~A~%\" e))
-    (finish-output)
-    (ext:exit 1)))"   || lisp_error
-  	    mv $new_mem $old_mem || mem_error
-	fi
-	;;
-    remove-clc)
-	if [ -f $clean_mem ]; then
-	    cp $clean_mem $old_mem
-	else
-	    echo "Warning: Can't find original image file $clean_mem. Aborting." >& 2
-	fi
-	;;
-    make-user-image)
-	if [ ! -f $2 ] ; then 
-	    echo "Trying to make-user image, but can not find file $2" >&2
-	    exit 1
-	fi 
-	$builder -norc -q -M $old_mem \
-	    -x "(progn    
-  (load \"$2\") 
-  (saveinitmem \"${new_mem}\"))
-  (ext:exit 0)" || lisp_error
-	mv $new_mem $old_mem || mem_error
-	;;
-    *)
-	echo "`basename $0`: Unknown command $1" >&2
-	echo "Known commands are:" >&2 
-	echo "install-clc, remove-clc, rebuild, remove, and make-user-image" >&2
-	exit 1
-	;;
-esac
-
-exit 0