Добрый вечер. Помогите разобраться в проблеме - при вызове функции, которая читает из одного потока и пишет в другой вылетает slime (Lisp connection closed unexpectedly: connection broken by remote peer). Вот ф-ция -
(defun write-mp3 (name from to)
(format t "~&writing mp3 from ~a to ~a with name ~a~%" from to name)
(let* ((to (merge-pathnames to name))
(in (open from :element-type '(unsigned-byte 8)
:if-does-not-exist :error))
(out (open to :direction :output
:element-type '(unsigned-byte 8) :if-exists :overwrite)))
(when (and in out)
(loop for i = (read-byte in nil) when i
do (print i) else
do (return)))
(and (close in) (close out))))
Для проверки(работает + чтение не стад преводить, но всё норм) -
(defun foo-c ()
(let ((out (open "music/exam++.mp3" :direction :output
:element-type '(unsigned-byte 8)
:if-exists :overwrite)))
(write-byte 128 out)
(close out)))
Заранее спасибо :)
Похожие темы
- Форум Знатокам лиспа (2) (2008)
- Форум [Common Lisp] serve-event и read-sequence (2008)
- Форум slime Coonection part (2023)
- Форум Как идиоматичнее написать эту функцию на лиспе (2023)
- Форум clave - интерфейс к FFmpeg для Common Lisp (2017)
- Форум Slime (2019)
- Форум [Lisp] Hello-world (2011)
- Форум Вопрос начинающего лиспера (elisp) (2009)
- Форум Покритикуйте плагин (2018)
- Форум mcclim pane options и непонятный element (2019)