口齿不清解码？

Question

如何在 lisp 中解码二进制流我使用 with-open -file 并将参数作为元素类型'(无符号字节 8)传递，但作为数字而不是字符串返回请帮我解决这个问题

Answer 1

;;; Flexi-Streams "bivalent streams" solve the binary vs. character stream problem.
;;; You'll want to install QuickLisp and understand the REPL * and ** variables:

(require 'flexi-streams) ;; or (ql:quickload 'flexi-streams)

(with-open-file (out "foo.text" :direction :output)
  (write-line "Foo" out))   ; "Foo"

(with-open-file (in "foo.text")
  (read-line in))           ; "Foo", NIL

(with-open-file (in "foo.text" :element-type '(unsigned-byte 8))
  (read-line in)) ;; read-line wrong stream type error

(with-open-file (in "foo.text" :element-type '(unsigned-byte 8))
  (let ((s (make-array 3)))
    (read-sequence s in) s))        ; #(70 111 111)

(map 'list #'code-char *)           ; (#\F #\o #\o)

(map 'string #'code-char **)        ; "Foo"

(with-open-file (raw "foo.text" :element-type 'flexi-streams:octet)
  (with-open-stream (in (flexi-streams:make-flexi-stream raw))
    (read-line in)))                ; "Foo", NIL

;; Thanks to Edi Weitz for providing this essential tool.