From 9b2866719f060cae4afc3c820a86290c3033e00f Mon Sep 17 00:00:00 2001
From: Daniel Barlow <>
Date: Fri, 3 Aug 2001 01:13:38 +0000
Subject: [PATCH] whitespace

---
 systems/db-sockets.system | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/systems/db-sockets.system b/systems/db-sockets.system
index 33db028e..c5f96bd0 100644
--- a/systems/db-sockets.system
+++ b/systems/db-sockets.system
@@ -55,18 +55,18 @@
 		    :defaults dir))))
 
 (defmethod perform :after ((operation compile-system) (dso unix-dso))
-	   (let ((dso-name (unix-name (car (output-files operation dso)))))
-	     (if (zerop
-		  (run-shell-command
-		   "gcc -shared -o ~S ~{~S ~}"
-		   dso-name
-		   (mapcar #'unix-name
-			   (mapcan (lambda (c)
-				     (output-files operation c))
-				   (module-components dso)))))
-		 #+sbcl (sb-sys::load-1-foreign dso-name)
-		 #+cmu (system::load-object-file filename)
-		 (error 'operation-error :operation operation :component dso))))
+  (let ((dso-name (unix-name (car (output-files operation dso)))))
+    (if (zerop
+	 (run-shell-command
+	  "gcc -shared -o ~S ~{~S ~}"
+	  dso-name
+	  (mapcar #'unix-name
+		  (mapcan (lambda (c)
+			    (output-files operation c))
+			  (module-components dso)))))
+	#+sbcl (sb-sys::load-1-foreign dso-name)
+	#+cmu (system::load-object-file filename)
+	(error 'operation-error :operation operation :component dso))))
 
 ;;; if this goes into the standard asdf, it could reasonably be extended
 ;;; to allow cflags to be set somehow
-- 
GitLab