From 17015520014d3e0fdea50420d3c0225a8f4ffa51 Mon Sep 17 00:00:00 2001
From: Gary King <gwking@metabang.com>
Date: Mon, 5 Nov 2007 10:27:44 -0500
Subject: [PATCH] reformat

darcs-hash:20071105152744-3cc5d-284d519a96d3405a5814d36da306f820848c5f10.gz
---
 metatilities.asd | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

diff --git a/metatilities.asd b/metatilities.asd
index ccb6cf2..9c238c4 100644
--- a/metatilities.asd
+++ b/metatilities.asd
@@ -61,24 +61,22 @@ instructions."))
 			:depends-on ("package-additional"))
 		 (:file "views-and-windows"
 			:depends-on ("package-additional"))))
-               
                (:module 
-		"what"
-		:pathname #.(make-pathname 
-			     :directory `(,@(pathname-directory *load-truename*)
-					    "dev"
-					    ,(or #+OpenMCL "openmcl"
-						 #+DIGITOOL "mcl"
-						 #+SBCL     "sbcl"
-						 #+allegro  "allegro" 
-						 #-(or OpenMCL DIGITOOL SBCL 
-						       allegro)
-						 "unsupported")))
+		"port"
+		:pathname #.(concatenate
+			     'string "dev/"
+			     (or #+OpenMCL "openmcl"
+				 #+DIGITOOL "mcl"
+				 #+SBCL     "sbcl"
+				 #+allegro  "allegro" 
+				 #-(or OpenMCL DIGITOOL SBCL allegro)
+				 "unsupported")
+			     "/")
 		:components ((:file "generic-lisp")
 			     #+DIGITOOL (:file "pop-up-menu")
 			     (:file "generic-interface-support" 
-				    :depends-on ("generic-lisp" #+DIGITOOL "pop-up-menu"))))
-               
+				    :depends-on ("generic-lisp" 
+						 #+DIGITOOL "pop-up-menu"))))
                (:module 
 		"website"
 		:components