diff --git a/src/overwrite.lsp b/src/overwrite.lsp
index d591ecb..8190118 100644
--- a/src/overwrite.lsp
+++ b/src/overwrite.lsp
@@ -210,14 +210,14 @@
     (|shen-cl.read-eval| "(defmacro      cl.exit-macro      [cl.exit] -> [cl.exit 0])")
     (|shen-cl.read-eval| "(defmacro shen-cl.exit-macro [shen-cl.exit] -> [cl.exit 0])")))
 
-#+(or ccl sbcl)
+#+(or ccl clisp sbcl)
 (defun |shen.read-char-code| (s)
   (let ((c (read-char s nil -1)))
     (if (eq c -1)
       -1
       (char-int c))))
 
-#+(or ccl sbcl)
+#+(or ccl clisp sbcl)
 (defun |pr| (x s)
   (write-string x s)
   (when (or (eq s |*stoutput*|) (eq s |*stinput*|))
diff --git a/src/primitives.lsp b/src/primitives.lsp
index 04852f6..f125803 100644
--- a/src/primitives.lsp
+++ b/src/primitives.lsp
@@ -391,12 +391,8 @@
 
     #+clisp
     (handler-bind ((warning #'muffle-warning))
-      (with-open-stream (*standard-input* (ext:make-stream :input :element-type 'unsigned-byte))
-        (with-open-stream (*standard-output* (ext:make-stream :output :element-type 'unsigned-byte))
-          (setq |*stoutput*| *standard-output*)
-          (setq |*stinput*| *standard-input*)
-          (let ((args (cons (car (coerce (ext:argv) 'list)) ext:*args*)))
-            (|shen-cl.toplevel-interpret-args| args)))))
+      (let ((args (cons (car (coerce (ext:argv) 'list)) ext:*args*)))
+        (|shen-cl.toplevel-interpret-args| args)))
 
     #+ccl
     (handler-bind ((warning #'muffle-warning))