*lisp

лисперы, может я чего-то не знаю, что такие функции пишу?
(defun list→hash-table (key-fn list)
(let ((hash (make-hash-table)))
(loop
for val in list
for key = (funcall key-fn val)
do (setf (gethash key hash) val))
hash))
или все норм и в стандарте/александрии такого нет?

#tfegie

4 comments

Решение проблемы с развертыванием образов, содержащих clsql: ситуация, когда clsql'ные foreign-библиотеки на целевой системе лежат в другом месте. Может кому пригодится: https://gist.github.com/4279042

#tfigtn

10 comments

лисперы, а если ли способ получить бэктрейс прилетевшего condition'а? Например в виде строки (лучше, конечно, списка). Лучше переносимо, но сгодится и sbcl-way. Чтот пока не нахожу. trivial-backtrace дает бэктрейсы точки вызова (print-backtrace err), а не точки выброса этого самого err.

#ttffge

add comment