[clfswm-cvs] r35 - in clfswm: . contrib

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Wed Mar 12 16:40:04 2008
New Revision: 35

Added:
   clfswm/contrib/asdf.lisp
      - copied, changed from r34, clfswm/asdf.lisp
Removed:
   clfswm/asdf.lisp
Modified:
   clfswm/load.lisp
Log:
New doc directory. Move asdf.lisp to contrib/


Copied: clfswm/contrib/asdf.lisp (from r34, clfswm/asdf.lisp)
==============================================================================

Modified: clfswm/load.lisp
==============================================================================
--- clfswm/load.lisp	(original)
+++ clfswm/load.lisp	Wed Mar 12 16:40:04 2008
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Thu Mar  6 15:38:05 2008
+;;; #Date#: Wed Mar 12 22:34:33 2008
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: System loading functions
@@ -47,7 +47,7 @@
 #-ASDF
 (load (make-pathname :host (pathname-host *base-dir*)
 		     :device (pathname-device *base-dir*)
-		     :directory (pathname-directory *base-dir*)
+		     :directory (append (pathname-directory *base-dir*) (list "contrib"))
 		     :name "asdf" :type "lisp"))
 
 (push *base-dir* asdf:*central-registry*)