r10042: add umask to upload scripts

diff --git a/Makefile b/Makefile
index c51bb0c1b10325f489fb9237d4bdccdfefc33969..4af74192f7481fd807fced5e26fb9cccdafe63f2 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -15,7 +15,7 @@ sources       :=$(pkg).asd main.lisp loader.lisp package.lisp kmrcl-excerpt.lisp
 
 $(pkg): $(sources)
        $(MAKE) clean
-       sbcl --load "$(pkg).asd" --eval "(asdf:oos 'asdf:load-op '$(pkg))" --eval "(sb-ext:quit :unix-status 0)"
+       sbcl --core a --load "$(pkg).asd" --eval "(asdf:oos 'asdf:load-op '$(pkg))" --eval "(sb-ext:quit :unix-status 0)"
 
 clean:
        rm -f *.fasl $(pkg)

diff --git a/debian/upload.sh b/debian/upload.sh
index 7e4770aaf981ada5a8186c923a3420a1a14f8b7d..f39e7b78f9b703d8ee439f8d2bda0bcbb2456e10 100755 (executable)
--- a/debian/upload.sh
+++ b/debian/upload.sh
@@ -1,4 +1,4 @@
 #!/bin/sh
 set -e
 
-dup vcs-tree -Uftp.med-info.com -D/home/ftp/vcs-tree -C"/home/kevin/bin/remove-old-versions vcs-tree latest" -su $*
+dup vcs-tree -Uftp.med-info.com -D/home/ftp/vcs-tree -C"(umask 022; /home/kevin/bin/remove-old-versions vcs-tree latest)" -su $*