Make I/O char-based on CLisp

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*|))

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))