cl-who-devel

Download

cl-who-devel@common-lisp.net

November 2006

3 participants
2 discussions

[cl-who-devel] Newbie confusion
by Vamsee Kanakala 18 Nov '06

18 Nov '06

Hi, I suspect this has got to do with not properly understanding what gensym does, but I think this should work, but I'm only getting empty <li> elements from the list-items function. Where am I going wrong? (defun list-items () (let ((=value= (gensym))) (loop for =value= to 15 collecting `((:li (write-to-string ,=value=)))))) (defmacro show-errors () `(with-html-output (*standard-output*) (:div :id "errorExplanation" (:ul ,@(list-items))))) Thanks, Vamsee.

1 1

[cl-who-devel] CL-WHO transformation rule not working?
by Nico de Jager 15 Nov '06

15 Nov '06

Hi It seems that the last transformation rule (and example) for attribute values described in CL-WHO's documentation is not working. I am using: LispWorks 5.0 for Linux (Debian Sarge) CL-WHO-0.6.2 HUNCHENTOOT-0.4.9 E.g. (defun logon-page-html () ;logon-action) (with-html-output (*standard-output*) (:html (:head (:title "test")) (:body "Some text" (:table :border "3" ; Going to change this! (:tr (:td "1-1") (:td "1-2"))))))) gives the following in 2 browsers: Some text 1-1 1-2 html: <html><head><title>test</title></head><body>Some text<table border='3'><tr><td>1-1</td><td>1-2</td></tr></table></body></html> While: (defun logon-page-html () ;logon-action) (with-html-output (*standard-output*) (:html (:head (:title "test")) (:body "Some text" (:table :border (+ 1 2) ;Substituted (+ 1 2) for "3". (:tr (:td "1-1") (:td "1-2"))))))) only gives the following in the same browsers: >1-11-2 html: ><tr><td>1-1</td><td>1-2</td></tr></table></body></html> The output of both cl-who:show-html-expansion and cl-who:with-html-output appear correct in the listener, though: CL-USER 11 > (cl-who:show-html-expansion (*standard-output*) (:html (:head (:title "test")) (:body "Some text" (:table :border (+ 1 2) (:tr (:td "1-1") (:td "1-2")))))) (LET ((*STANDARD-OUTPUT* *STANDARD-OUTPUT*)) (PROGN NIL (WRITE-STRING "<html><head><title>test</title></head><body>Some text<table" *STANDARD-OUTPUT*) (LET ((#:G4088 (+ 1 2))) (COND ((NULL #:G4088)) ((AND (EQ #:G4088 T) (EQ CL-WHO::*HTML-MODE* :XML)) (PROGN (WRITE-STRING " border='border'" *STANDARD-OUTPUT*))) ((AND (EQ #:G4088 T) (EQ CL-WHO::*HTML-MODE* :SGML)) (PROGN (WRITE-STRING " border" *STANDARD-OUTPUT*))) (T (PROGN (WRITE-STRING " border='" *STANDARD-OUTPUT*) (PRINC #:G4088 *STANDARD-OUTPUT*) (WRITE-STRING "'" *STANDARD-OUTPUT*))))) (WRITE-STRING "><tr><td>1-1</td><td>1-2</td></tr></table></body></html>" *STANDARD-OUTPUT*))) It seems that only the output of the last "write-string" is sent to the browser for the second example. Thanks. Nico

2 2