[clfswm-cvs] r48 - clfswm/contrib

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Tue Mar 18 15:54:54 2008
New Revision: 48

Modified:
   clfswm/contrib/clfswm   (contents, props changed)
Log:
This patch just fixes an annoyance when calling our script without any argument.


Modified: clfswm/contrib/clfswm
==============================================================================
--- clfswm/contrib/clfswm	(original)
+++ clfswm/contrib/clfswm	Tue Mar 18 15:54:54 2008
@@ -103,9 +103,6 @@
     shift
 done
 
-test -x $(type -p $lisp) || die "$lisp can't be found."
-test -e $clfswm_asd_path/clfswm.asd || die "can't find clfswm.asd in $clfswm_asd_path"
-test -e $asdf_path/asdf.lisp || die "can't find asdf.lisp in $asdf_path"
 
 dump_image="$dump_path/clfswm-$(cksum $(type -p $lisp) | cut -d ' ' -f 1).core"
 
@@ -120,7 +117,11 @@
         do  test "$dump_image" -ot "$i" && exit 1
         done )
 then
-	eval build_$lisp
+    test -x $(type -p $lisp) || die "$lisp can't be found."
+    test -e $clfswm_asd_path/clfswm.asd || die "can't find clfswm.asd in $clfswm_asd_path"
+    test -e $asdf_path/asdf.lisp || die "can't find asdf.lisp in $asdf_path"
+
+    eval build_$lisp
 fi
 
 # Run the resulting image