Добрый вечер)

Есть комп, дисковода нет, в биосе отключены usb, жёсткий не достать, флопика нет.

И нужно с него передать файлы.

Пока есть идея немного несуразная- закодировать файл в аудио формат попроще, воспроизвести, со аудио выхода отправить на ацп и принять каким-то образом этот поток битов на другой компьютер.

Готов выслушать полезную информацию)

Помогите помирить utf8, русский язык и emacs. желательно малой кровью)

tixo@lp ~ $ locale
LANG=ru_RU.UTF-8
LC_CTYPE="ru_RU.UTF-8"
LC_NUMERIC=C
LC_TIME="ru_RU.UTF-8"
LC_COLLATE="ru_RU.UTF-8"
LC_MONETARY="ru_RU.UTF-8"
LC_MESSAGES="ru_RU.UTF-8"
LC_PAPER="ru_RU.UTF-8"
LC_NAME="ru_RU.UTF-8"
LC_ADDRESS="ru_RU.UTF-8"
LC_TELEPHONE="ru_RU.UTF-8"
LC_MEASUREMENT="ru_RU.UTF-8"
LC_IDENTIFICATION="ru_RU.UTF-8"
LC_ALL=

доброго времени. gendocs, который идёт с файлами библиотеки, не даёт доков, http://common-lisp.net/project/cl-opengl/public_html/manual/ --> 404 где найти доки?

Уж извините за такой вопрос, но как скачать эту либу? Проблема, что её нету нигде.

Здесь нету: http://www.cliki.net/cl-opengl http://common-lisp.net/project/cl-opengl/

Единственное, исходники есть тут - http://common-lisp.net/project/cl-opengl/darcs/cl-opengl/_darcs/current/ но не может же быть, что только так их можно скачать, отдельно по файлу.

Всем добрый вечер.

Хочу узнать, можно ли как нибудь указать какой массив должна возратить remove-if(-not) ?

просто получается так:

massiv <-- (make-array 0 :fill-pointer 0 adjustable t)
massiv <-- remove-if(massiv)

Добрый) Не понимаю что за чертовщина творится):

(defparameter *db* (make-instance 'mp3-db))

(defun load-db (db)
  (setf db (cl-store:restore *db-place*)))

(load-db *db*)

у меня вот какой вопрос, имеется объект lisp:

obj <-- (make-array 0 :fill-pointer 0 :adjustable t)

или нельзя и прийдётся в 2 этапа действовать:

1.создавать объект

2.вручную добавлять элементы

Добрый вечер. Помогите разобраться в проблеме - при вызове функции, которая читает из одного потока и пишет в другой вылетает 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)))

Заранее спасибо :)