diff --git a/systems/db-sockets.system b/systems/db-sockets.system index 33db028ee8bec6c91f4ef182bd82144f562e91ea..c5f96bd0a6420cb6fa6ac6636e5b2179a8be1170 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