LSP Example

User Agent

<%= (:princ-safe (or (net.aserve:header-slot-value com.lemonodor.lsp:request :user-agent) "None.")) %>

Referrer

<%= (:princ-safe (or (net.aserve:header-slot-value com.lemonodor.lsp:request :referer) "None.")) %>

Query Variables

<% (let ((queries (net.aserve:request-query com.lemonodor.lsp:request))) (if (null queries) (net.html.generator:html (:tr (:td "None."))) (dolist (query queries) (net.html.generator:html (:tr (:td (:princ-safe (car query))) (:td (:princ-safe (cdr query)))))))) %>

Loop Of Dynamism

<% (dotimes (i (+ (random 10) 1)) %> Hi!
<% ) %>