[clfswm-cvs] r286 - in clfswm: . src

[Philippe Brochard]

Author: pbrochard
Date: Fri Aug  6 18:08:14 2010
New Revision: 286

Log:
big summer commit

Modified:
   clfswm/Makefile.template
   clfswm/src/tools.lisp

Modified: clfswm/Makefile.template
==============================================================================
--- clfswm/Makefile.template	(original)
+++ clfswm/Makefile.template	Fri Aug  6 18:08:14 2010
@@ -25,8 +25,11 @@
 	mkdir -p $(DESTDIR)/bin
 	@echo "2) Installing: Copying files"
 	cp -R `pwd`/load.lisp $(DESTDIR)/lib/$(PROJECT_NAME)/
-	cp -R `pwd`/src/*.$(EXT)  $(DESTDIR)/lib/$(PROJECT_NAME)/src
+	cp -R `pwd`/clfswm.asd $(DESTDIR)/lib/$(PROJECT_NAME)/
+	cp -R `pwd`/src/*.lisp  $(DESTDIR)/lib/$(PROJECT_NAME)/src
 	cp -R `pwd`/contrib/*   $(DESTDIR)/lib/$(PROJECT_NAME)/contrib
+	@sleep 1
+	cp -R `pwd`/src/*.$(EXT)  $(DESTDIR)/lib/$(PROJECT_NAME)/src
 	@echo "3) Installing: Creating starter script"
 	echo "#!/bin/sh" > $(DESTDIR)/bin/$(PROJECT_NAME)
 	echo "$(LISP) $(CORE) $(LOAD_OPT) $(DESTDIR)/lib/$(PROJECT_NAME)/load.lisp" >> $(DESTDIR)/bin/$(PROJECT_NAME)
@@ -41,7 +44,7 @@
 	rm -rf $(DESTDIR)/lib/$(PROJECT_NAME)/
 
 clean:
-	find . \( -name *~ -o -name *.fas -o -name *.fasl -o -name *.lib -o -name *.lx32fsl -o -name *.x86f \) -print0 | xargs -0 rm -f
+	find . \( -name "*~" -o -name "*.fas" -o -name "*.fasl" -o -name "*.lib" -o -name "*.lx32fsl" -o -name "*.x86f" \) -print0 | xargs -0 rm -f
 
 dist: clean
 	cd .. && tar czvf $(PROJECT_NAME)-`date +%y%m%d`.tar.gz $(PROJECT_NAME)

Modified: clfswm/src/tools.lisp
==============================================================================
--- clfswm/src/tools.lisp	(original)
+++ clfswm/src/tools.lisp	Fri Aug  6 18:08:14 2010
@@ -32,6 +32,8 @@
 	   :awhen
 	   :aif
 	   :nfuncall
+	   :pfuncall
+	   :symbol-search
 	   :call-hook
 	   :add-hook
 	   :remove-hook
@@ -115,6 +117,15 @@
   (when function
     (funcall function)))
 
+(defun pfuncall (function &rest args)
+  (when (or (functionp function)
+	    (and (symbolp function) (fboundp function)))
+    (apply function args)))
+
+
+(defun symbol-search (search symbol)
+  "Search the string 'search' in the symbol name of 'symbol'"
+  (search search (symbol-name symbol) :test #'string-equal))
 
 ;;;,-----
 ;;;| Minimal hook