From: espen <espen>
Date: Thu, 21 Jun 2007 08:14:19 +0000 (+0000)
Subject: Small fix necessary for win32
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/e6ab30c23c3efe0c857ad26839e46d732b0fb030

Small fix necessary for win32
---

diff --git a/tools/asdf-extensions.lisp b/tools/asdf-extensions.lisp
index f533a64..b48dd08 100644
--- a/tools/asdf-extensions.lisp
+++ b/tools/asdf-extensions.lisp
@@ -3,7 +3,7 @@ (in-package :asdf)
 (export '*dso-extension*)
 
 (defparameter *dso-extension* 
- #-(and darwin win32)"so" #+darwin"dylib" #+win32"dll")
+ #-(or darwin win32)"so" #+darwin"dylib" #+win32"dll")
 
 
 ;;; The following code is more or less copied frm sb-bsd-sockets.asd,
@@ -36,8 +36,8 @@ (defmethod perform :after ((operation compile-op) (dso unix-dso))
 			     (output-files operation c))
 		  (module-components dso)))))
     (unless (zerop
-	     (run-shell-command "gcc ~A~{ ~A~} -o ~S~{ ~S~}"
-	      #-(and darwin win32)"-shared"
+	     (run-shell-command "gcc ~A -o ~S ~{~S~^ ~} ~{~A~^ ~}"
+	      #-(or darwin win32)"-shared"
 	      #+darwin "-bundle"
 	      #+win32
 	      (format nil "-shared -Wl,--out-implib,~S"
@@ -46,9 +46,9 @@ (defmethod perform :after ((operation compile-op) (dso unix-dso))
 		 :type "a" 
 		 :name (format nil "lib~Adll" (pathname-name output))
 		 :defaults output)))
-	      (slot-value dso 'ldflags)
 	      (unix-name output)
-	      inputs))
+	      inputs
+	      (slot-value dso 'ldflags)))
       (error 'operation-error :operation operation :component dso))))
 
 #+clisp