[CM] A small SBCL patch
Aleksandar Bakic
a_bakic at yahoo.com
Sat Feb 18 15:06:04 PST 2006
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
More information about the Cmdist
mailing list