(fastcgi:out "Content-type: text/plain" #\Newline #\Newline) (fastcgi:out "CLisp running with FastCGI support via Apache web server" #\Newline #\Newline "I am running in mode: " (if (fastcgi:is-cgi) "CGI" "FastCGI") #\Newline "The browser string is '" (fastcgi:getenv "HTTP_USER_AGENT") "'" #\Newline #\Newline "- CGI Environment variables are -" #\Newline) (apply #'fastcgi:out (mapcar #'(lambda (arg) (list (car arg) ": " (cdr arg) ", ")) (fastcgi:getenv))) (fastcgi:out #\Newline #\Newline "- Host Environment variables are -" #\Newline) (apply #'fastcgi:out (mapcar #'(lambda (arg) (list (car arg) ": " (cdr arg) ", ")) (ext:getenv)))