diff --git a/tools/inst-lisp b/tools/inst-lisp index 4de033b0384e956b738b7a9a0b20a142a6eac97f..87d5cc238347143e47be7be0aa93cf52aa4eeddb 100755 --- a/tools/inst-lisp +++ b/tools/inst-lisp @@ -1,18 +1,24 @@ #!/bin/csh -fx # -# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/inst-lisp,v 1.7 1993/08/16 18:45:54 wlott Exp $ +# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/inst-lisp,v 1.8 1994/03/17 17:34:25 ram Exp $ # # Utility for installing an alpha core. # -if ($#argv) then +if ($#argv > 0) then set subdir = $argv[1] else set subdir = alpha endif +if ($#argv > 1) then + set destver = $argv[2] +else + set destver = alpha +endif + set src = /afs/cs/project/clisp/build/@sys/$subdir -set dst = /afs/cs/project/clisp-3/alphas/@sys +set dst = /afs/cs/project/clisp-3/${destver}s/@sys rm -f $dst/lisp rm -f $dst/lisp.core