Доброго времени суток!
Имеется следующий код:
(in-package :cl-user)
'#.(ql:quickload :hunchentoot)
(defvar *single-acceptor* nil)
(declaim (optimize (debug 3) (safety 3)
(speed 0) (space 0) (compilation-speed 0)))
(proclaim '(optimize (debug 3) (safety 3)
(speed 0) (space 0) (compilation-speed 0)))
(defun inner-fun () (break) "<p>blah-blah-blah</p>")
(defun my-page (&rest ignore)
(declare (ignore ignore))
(concatenate 'string "<html><body>"
(string-downcase (inner-fun))
"</body></html>"))
(defun restart-server ()
(setf hunchentoot:*catch-errors-p* nil)
(when *single-acceptor*
(hunchentoot:stop *single-acceptor*))
(setf *single-acceptor*
(make-instance 'hunchentoot:easy-acceptor :port 2800))
(hunchentoot:start *single-acceptor*)
(hunchentoot:define-easy-handler
(mypage-symbol :uri "/mypage") () (my-page)))
(restart-server)
Я его скомпилировал и загрузил из SLIME. Запускаю my-page, она падает в отладчик. Переключаюсь в режим шагов с помощью буквы «s», могу шагать.
Теперь открываю в браузере http://127.0.0.1:2800/mypage Опять падаю в дебаггер. Нажимаю «s», появляется в минибуфере сообщение «Evaluation aborted on NIL» и выполнение продолжается (страница передаётся в браузер).
Куда копать?
