Plaster
New
List
Login
common-lisp
default
anonymous
2018.10.17 07:41:19
(defvar *request* nil) (defun puts (format-control &rest args) (unless *request* (error "*REQUEST* not specified. Use WITH-CGI-PUTS to specify it.")) (sb-fastcgi:fcgx-puts *request* (apply #'format nil format-control args))) (defmacro with-fcgi-puts ((request) &body body) `(let ((*request* ,request)) ,@body)) (defun genwords (request) (with-fcgi-puts (request) (puts "Content-Type: text/plain~%~%%") (puts "~A~%" (generate-word))))
Raw
Annotate
Repaste
Edit