; не обращайте внимания на отступы - это писалось в gedit
(defun somepage (request)
"This is somepage")
(defun otherpage (request)
"This is otherpage")
(setq hunchentoot:*dispatch-table*
(list
'somepage-h
(hunchentoot:create-regex-dispatcher
"^/some/.*" 'somepage)
(hunchentoot:create-regex-dispatcher
"^/other/.*" "aa")
(hunchentoot:create-regex-dispatcher
"*" "aa")))
При переходе на localhost/fuck выдает нет такой страницы, что в общем-то и правильно. При переходе на localhost/some/tralala выдает internal error 500.
Запускаю сервер вот так:
(defvar *acceptor* (make-instance 'hunchentoot:acceptor :port 9000))
(hunchentoot:start *acceptor*)
Перерыл кучу манов и туториалов, не знаю, в чем ошибка. Подскажите пожалуйста, куда копать.