[CM] A small SBCL patch

[Aleksandar Bakic]

This works for me (I am forcing x86 architecture on an actual AMD64 for legacy
reasons).

Alex

Index: cm.asd
===================================================================
RCS file: /cvsroot/commonmusic/cm/cm.asd,v
retrieving revision 1.32
diff -u -r1.32 cm.asd
--- cm.asd      15 Jan 2006 16:04:08 -0000      1.32
+++ cm.asd      18 Feb 2006 22:59:16 -0000
@@ -69,9 +69,10 @@
          (ccl:external-process-output-stream
           (ccl:run-program (cm.sh) '("-q" ) :wait nil :output :stream))))
     #+sbcl
-    (stdout
-     (sb-ext:process-output
-      (sb-ext:run-program (cm.sh) '("-q") :output :stream)))
+    (or (sb-ext:posix-getenv "CM_PLATFORM")
+       (stdout
+        (sb-ext:process-output
+         (sb-ext:run-program (cm.sh) '("-q") :output :stream))))
     #+(or microsoft-32 win32)
     "windows-i686"
     ))


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com