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