site/home.lisp


1
2
3
4
5
6
7
8
9
10

(in-package #:vampire)

(defun home-page (user)
  (format nil "hey ~a" (user-name user)))

(wknd:defendpoint home
  :using user-known
  :get :route ""
  :returns "text/html"
  :handle (home-page user))