Merge pull request #129 from VitoVan/dev

VitoVan · web-flow · commit cb058273e470 · 2023-06-22T17:50:36.000+08:00
fix web open-audio bug introduced by e76cee4
diff --git a/src/c.lisp b/src/c.lisp
@@ -130,7 +130,7 @@
   ;; (format t "open-audio-if-not-yet, already opened?: ~A~%" calm::*calm-state-audio-open*)
   (when (and
          (not calm::*calm-state-audio-open*) ;; not opened yet
-         (null (uiop:getenv "CI")) ;; not CI
+         #-jscl (null (uiop:getenv "CI")) ;; not CI
          )
     ;;
     ;; if we put the following code outside of this function,

Original file line number	Diff line number	Diff line change
`@@ -130,7 +130,7 @@`
`130`	`130`	`;; (format t "open-audio-if-not-yet, already opened?: ~A~%" calm::calm-state-audio-open)`
`131`	`131`	`(when (and`
`132`	`132`	`(not calm::calm-state-audio-open) ;; not opened yet`
`133`		`- (null (uiop:getenv "CI")) ;; not CI`
	`133`	`+ #-jscl (null (uiop:getenv "CI")) ;; not CI`
`134`	`134`	`)`
`135`	`135`	`;;`
`136`	`136`	`;; if we put the following code outside of this function,`