cl-who code
in [Lisp]
|
Prev: ANNC: qooxlisp 0.1: Driving Miss qooxdoo (from Common Lisp)
Next: What kind of open source license do you use...
From: Haris Bogdanovi� on 30 May 2010 14:38 Why doesn't this piece of code work ? ------------------------------------------------------ (defun index () (with-html-output (*standard-output* nil) (:html (:head (:title "Test page")) (:body (dotimes (x 10) (:htm (:p "Text")))))) ----------------------------------------------------------- It says Internal server error (hunchentoot). If I remove "(dotimes (x 10)" then it prints out "Text".
From: vanekl on 30 May 2010 16:25 Haris Bogdanovi� wrote: > Why doesn't this piece of code work ? > ------------------------------------------------------ > (defun index () > (with-html-output (*standard-output* nil) > (:html > (:head > (:title "Test page")) > (:body > (dotimes (x 10) > (:htm > (:p "Text")))))) > ----------------------------------------------------------- > It says Internal server error (hunchentoot). > If I remove "(dotimes (x 10)" then it prints out "Text" this works as expected for me: (cl-who:with-html-output-to-string (str) (:html (:head (:title "Test page")) (:body (dotimes (x 10) (cl-who:htm (:p "Text")))))).
From: Haris Bogdanovi� on 31 May 2010 03:13 > (cl-who:with-html-output-to-string (str) > (:html > (:head > (:title "Test page")) > (:body > (dotimes (x 10) > (cl-who:htm > (:p "Text")))))). If I try to evaluate this expression then I get: "The variable LET is unbound." Where is the problem now ?
From: Haris Bogdanovi� on 31 May 2010 03:38 ------------------------------------------------------ > (defun index () > (with-html-output (*standard-output* nil) > (:html > (:head > (:title "Test page")) > (:body > (dotimes (x 10) > (:htm > (:p "Text")))))) > ----------------------------------------------------------- Page source (firefox) from this code is just: ------------------------------ </body> </html> --------------------------------
From: Rob Warnock on 31 May 2010 04:13
Haris Bogdanovi� <fbogdanovic(a)xnet.hr> wrote: +--------------- | > (cl-who:with-html-output-to-string (str) | > (:html | > (:head | > (:title "Test page")) | > (:body | > (dotimes (x 10) | > (cl-who:htm | > (:p "Text")))))). | | If I try to evaluate this expression then I get: | "The variable LET is unbound." Where is the problem now ? +--------------- Works for me: > (cl-who:with-html-output-to-string (str) (:html (:head (:title "Test page")) (:body (dotimes (x 10) (cl-who:htm (:p "Text")))))) "<html><head><title>Test page</title></head><body><p>Text</p><p>Text</p><p>Text</p><p>Text</p><p>Text</p><p>Text</p><p>Text</p><p>Text</p><p>Text</p><p>Text</p></body></html>" > -Rob ----- Rob Warnock <rpw3(a)rpw3.org> 627 26th Avenue <URL:http://rpw3.org/> San Mateo, CA 94403 (650)572-2607 |