Merge pull request #7 from ktateish/fix-error-on-ccl

Fix error on Clozure CL
hraban · Mar 9, 2013 · 8ba1653 · 8ba1653
2 parents da2a652 + b675398
commit 8ba1653
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/dev/openmcl.lisp b/dev/openmcl.lisp
@@ -13,7 +13,7 @@
             (process-exit-code process))))
 
 (defun create-shell-process (command wait &optional input)
-  (with-input-from-string (input-stream input)
+  (with-input (input-stream (or input :none))
    (ccl:run-program
     *bourne-compatible-shell*
     (list "-c" command)