octets to string error

[other-otter.app]

(handler-case
    (map 'string #'code-char
        (sb-ext:string-to-octets
            (format nil "
北约军火商:煽风点火,抱薪救火,火上浇油.
欧洲平民家:飞来横祸,六月飞霜,雪上加霜.")))
    (error () (print "
全球供应链:冰火两重,困难重重,难上加难.")))

(map 'string #'code-char (sb-ext:string-to-octets "阿拉丁神灯")) ;;something error

;;sbcl 2.2.4 on rocky linux 8.5

[Stas Boukarev (stassats)]

It's not clear what you are doing.

[other-otter.app (other-otter)]

;please try the following expression in sbcl, thanks a lot.
;some string will error and some not, please help.

(map 'string #'code-char (sb-ext:string-to-octets "阿拉丁神灯"))

[Stas Boukarev (stassats)]

Works as expected.

[other-otter.app (other-otter)]

;sbcl 2.2.4.123

(map 'string #'code-char #(233)) ;;"é"

(map 'string #'code-char #(152)) ;;terminal repl error

(map 'string #'code-char #(191)) ;;"¿"

(map 'string #'code-char #(233 152 191)) ;;terminal repl error

*features*

#|
(:X86-64 :GENCGC :64-BIT :ANSI-CL :COMMON-LISP :ELF :IEEE-FLOATING-POINT :LINUX
 :LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES :SB-LDB :SB-PACKAGE-LOCKS :SB-THREAD
 :SB-UNICODE :SBCL :UNIX)
|#

[Stas Boukarev (stassats)]

Maybe your terminal can't encode these? This produces garbage anyway, so I guess don't try to print them.

[other-otter.app (other-otter)]

;thanks a lot

(code-char 152)
;#\Start-String

;no problem with sb-ext
(sb-ext:octets-to-string (sb-ext:string-to-octets "阿拉丁"))

;not a bug, invalid