cl-who-devel November 2006

cl-who-devel@common-lisp.net

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cl-who-devel November 2006