raj*_*ive 2 lisp mp3 id3 common-lisp
如何使用lisp获取mp3文件的艺术家
(let ((in (open "test.mp3" :direction
:input
:element-type '(unsigned-byte 8))))
(when in
(loop for line = (read-byte 'utf-8 in)
while line do (format t "~a" line ))
(close in)))
Run Code Online (Sandbox Code Playgroud)