Skip to content

Instantly share code, notes, and snippets.

@KingC100

KingC100/hello-request-handler.lisp

Created February 4, 2016 13:56
Show Gist options
  • Save KingC100/412d79165bf02f7fd991 to your computer and use it in GitHub Desktop.
Save KingC100/412d79165bf02f7fd991 to your computer and use it in GitHub Desktop.
Download ZIP
p.262
Raw
hello-request-handler.lisp
(defun hello-request-handler (path header params)
(if (equal path "greeting")
(let ((name (assoc 'name params)))
(format t "HTTP/1.0 200 OK~2%")
(if (not name)
(princ "<form>What is your name?<input name='name' /></form>")
(format t "Nice to meet you, ~a!" (cdr name))))
(princ "Sorry... I don't know that page.")))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment