
cmucl-safe.sh highlights

     remove)
            echo $0 removing packages...
            shift
            while [ ! -z "$1" ] ; do
                rm -rf "/usr/lib/common-lisp/$DIR/$1"
                shift
             done
            rmdir /usr/lib/common-lisp/$DIR 2> /dev/null 
            ;;
    install-defsystem)
                echo installing the defsystem...
            ( cd /usr/lib/cmucl
              # does an old image allready exists?
              if [ ! -f ${IMAGE%.core}-old.core ] ; then
                mv $IMAGE ${IMAGE%.core}-old.core 
              fi
             lisp  -core ${IMAGE%.core}-old.core -load /usr/lib/cmucl/install-defsystem.lisp -noinit   && mv new-lisp.core $IMAGE || (echo FAILED ; mv ${IMAGE%.core}-old.core $IMAGE ) )
                ;;
