ClozureCL и lisper.ru

Немного подправил код lisper.ru и смог запустить его на Clozure CL. Радость была, однако, недолгой... Попробовал провести нагрузочное тестирование с помощью ab, но оказалось, что если указывать для ab параметр -c больше 1 (в этом случае тестирование ведётся в несколько потоков), то hunchentoot валится без вариантов. При тестировании в одном потоке (-с 1) SBCL отдаёт примерно в 8 раз больше запросов в секунду, чем Clozure CL. Печально...

Убить ClozureCL

Оказывает это просто (по крайней мере, версию 1.3), такой вот код:

(asdf:operate 'asdf:load-op :lift)

(defpackage :clozure.lift.test
 (:use :cl :lift)
 (:export :test))

(in-package #:clozure.lift.test)

(deftestsuite clozure-lift-test () ())

(addtest (clozure-lift-test)
 test1
 (ensure-same 6000
              (length (let ((str ""))
                        (dotimes (i 1000)
                          (setf str
                                (concatenate 'string
                                             str
                                            "Привет")))
                        (length str)))))

(defun test ()
 (run-tests :suite 'clozure-lift-test :report-pathname nil))

Приводит к

An unhandled error condition has been signalled: value #<BOGUS object @ #x14BF07EE> is not of the expected type SEQUENCE.

Теперь контрольный выстрел:

(clozure.lift.test:test)

В итоге, ошибка сегментирования и скоропостижный конец...