Is the :selected attribute for the option tag supported?
e.g.
(dolist (day (through 1 31))
(if (eq day 22)
(html (:option (:princ day) :selected))
;;(html (:option (:princ day)))
(html (:option (:princ day)))))
gives me an error
------------------------------
unknown html keyword :SELECTED
Restart actions (select using :continue):
0: retry the compilation of catalogs.lisp
1: continue compiling catalogs.lisp but generate no output file
2: Abort #<PROCESS Initial Lisp Listener waiting for input>
<<Please enter any comments or explanations here>>
Since you want to put something inside the <option> tag
you'll want to use double parens.
Futher whereas <option selected> is not legal html, it's
still accepted by most browsers. The correct
form is <option selected=selected>
Thus combining both bits of info, what you want is
Is the :selected attribute for the option tag supported?
e.g.
(dolist (day (through 1 31))
(if (eq day 22)
(html (:option (:princ day) :selected))
;;(html (:option (:princ day)))
(html (:option (:princ day)))))
gives me an error
------------------------------
unknown html keyword :SELECTED
Restart actions (select using :continue):
0: retry the compilation of catalogs.lisp
1: continue compiling catalogs.lisp but generate no output file
2: Abort #<PROCESS Initial Lisp Listener waiting for input>
<<Please enter any comments or explanations here>>
------------------------------
Evaluation stack:
(EXCL::INTERNAL-INVOKE-DEBUGGER "Error" #<SIMPLE-ERROR @ #x20705fda> NIL) (ERROR "unknown html keyword ~s" :SELECTED)>(NET.HTML.GENERATOR::PROCESS-HTML-FORMS ((:PRINC DAY) :SELECTED)) ((FLET NET.HTML.GENERATOR::PROCESS-HTML-FORMS NET.HTML.GENERATOR::DO-ENT) (:OPTION T NET.HTML.GENERATOR::WITH-HTML-OPTION NIL #<Function HTML-STANDARD-PRINT>) NIL T ((:PRINC DAY) :SELECTED)) (NET.HTML.GENERATOR::PROCESS-HTML-FORMS ((:OPTION (:PRINC DAY) :SELECTED))) (HTML (HTML (:OPTION (:PRINC DAY) :SELECTED)) (:COMPILATION-ENVIRONMENT NIL)) (SYS::..RUNTIME-OPERATION #<Function HTML @ #x202f5262>) (FUNCALL #<Function HTML @ #x202f5262> (HTML (:OPTION (:PRINC DAY) :SELECTED)) (:COMPILATION-ENVIRONMENT NIL)) (COMP::TRANS (HTML (:OPTION (:PRINC DAY) :SELECTED))) (COMP::PA-COMPILE (HTML (:OPTION (:PRINC DAY) :SELECTED)) NIL) [ COMP::PA-PROGN ] (COMP::PA-COND (((EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED))) (T (HTML (:OPTION (:PRINC DAY)))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (COND ((EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED))) (T (HTML (:OPTION (:PRINC DAY))))) NIL) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY)))) NIL) (COMP::PA-TAGBODY ((IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY)))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (TAGBODY (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY))))) NIL) (COMP::PA-TAGBODY (#:|Tag22| (COND ((NULL #:G217) (RETURN-FROM NIL (PROGN)))) (TAGBODY (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY))))) (SETQ #:G217 (CDR #:G217) DAY (CAR #:G217)) (GO #:|Tag22|))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (TAGBODY #:|Tag22| (COND ((NULL #:G217) (RETURN-FROM NIL (PROGN)))) (TAGBODY (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY))))) (SETQ #:G217 (CDR #:G217) DAY (CAR #:G217)) (GO #:|Tag22|)) NIL) [ COMP::PA-PROGN ] (COMP::PA-BLOCK (NIL (TAGBODY #:|Tag22| (COND ((NULL #:G217) (RETURN-FROM NIL (PROGN)))) (TAGBODY (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY))))) (SETQ #:G217 (CDR #:G217) DAY (CAR #:G217)) (GO #:|Tag22|)))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (BLOCK NIL (TAGBODY #:|Tag22| (COND ((NULL #:G217) (RETURN-FROM NIL (PROGN)))) (TAGBODY (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY))))) (SETQ #:G217 (CDR #:G217) DAY (CAR #:G217)) (GO #:|Tag22|))) NIL) [ COMP::PA-PROGN ] (COMP::PA-LET* (((#:G217 (THROUGH 1 31)) (DAY (CAR #:G217))) (DECLARE) (BLOCK NIL (TAGBODY #:|Tag22| (COND ((NULL #:G217) (RETURN-FROM NIL (PROGN)))) (TAGBODY (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY))))) (SETQ #:G217 (CDR #:G217) DAY (CAR #:G217)) (GO #:|Tag22|))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (DOLIST (DAY (THROUGH 1 31)) (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY))))) NIL) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (PROGN (DOLIST (DAY (THROUGH 1 31)) (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY)))))) NIL) (COMP::PA-PROGN ((WRITE-STRING "<select" *HTML-STREAM*) (WRITE-STRING " SIZE=" *HTML-STREAM*) (NET.HTML.GENERATOR::PRIN1-SAFE-HTTP-STRING 1) (WRITE-STRING " NAME=" *HTML-STREAM*) (NET.HTML.GENERATOR::PRIN1-SAFE-HTTP-STRING "day") (WRITE-STRING ">" *HTML-STREAM*) (PROGN (DOLIST (DAY (THROUGH 1 31)) (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY)))))) (WRITE-STRING "</select>" *HTML-STREAM*))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN (DOLIST (DAY (THROUGH 1 31)) (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY))))))) NIL) (COMP::PA-PROGN ((WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN (DOLIST (YEAR YEARS) (HTML (:OPTION (:PRINC YEAR)))))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN (DOLIST (MONTH *MONTH-NAMES-ABBREV*) (HTML (:OPTION (:PRINC MONTH)))))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN (DOLIST (DAY (THROUGH 1 31)) (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY))))))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (PROGN (WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN (DOLIST (YEAR YEARS) (HTML (:OPTION (:PRINC YEAR)))))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN (DOLIST (MONTH *MONTH-NAMES-ABBREV*) (HTML (:OPTION (:PRINC MONTH)))))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN (DOLIST (DAY (THROUGH 1 31)) (IF (EQ DAY 22) (HTML (:OPTION (:PRINC DAY) :SELECTED)) (HTML (:OPTION (:PRINC DAY)))))))) NIL) (COMP::PA-PROGN ((WRITE-STRING "<form" *HTML-STREAM*) (WRITE-STRING " ACTION=" *HTML-STREAM*) (NET.HTML.GENERATOR::PRIN1-SAFE-HTTP-STRING "date") (WRITE-STRING " METHOD=" *HTML-STREAM*) (NET.HTML.GENERATOR::PRIN1-SAFE-HTTP-STRING "POST") (WRITE-STRING ">" *HTML-STREAM*) (PROGN (WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN (DOLIST (YEAR YEARS) (HTML (:OPTION (:PRINC YEAR)))))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN (DOLIST (MONTH *MONTH-NAMES-ABBREV*) (HTML (:OPTION (:PRINC MONTH)))))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN (DOLIST (DAY (THROUGH 1 31)) (IF (EQ DAY 22) (HTML (:OPTION # :SELECTED)) (HTML (:OPTION #))))))) (WRITE-STRING "</form>" *HTML-STREAM*))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (NET.HTML.GENERATOR::WITH-HTML-FORM (:ACTION "date" :METHOD "POST") (PROGN (WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN (DOLIST (YEAR YEARS) (HTML (:OPTION (:PRINC YEAR)))))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN (DOLIST (MONTH *MONTH-NAMES-ABBREV*) (HTML (:OPTION (:PRINC MONTH)))))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN (DOLIST (DAY (THROUGH 1 31)) (IF (EQ DAY 22) (HTML (:OPTION # :SELECTED)) (HTML (:OPTION #)))))))) NIL) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (PROGN (NET.HTML.GENERATOR::WITH-HTML-FORM (:ACTION "date" :METHOD "POST") (PROGN (WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN (DOLIST (YEAR YEARS) (HTML (:OPTION #))))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN (DOLIST (MONTH *MONTH-NAMES-ABBREV*) (HTML (:OPTION #))))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN (DOLIST (DAY (THROUGH 1 31)) (IF (EQ DAY 22) (HTML #) (HTML #)))))))) NIL) (COMP::PA-PROGN ((WRITE-STRING "<body>" *HTML-STREAM*) (PROGN (NET.HTML.GENERATOR::WITH-HTML-FORM (:ACTION "date" :METHOD "POST") (PROGN (WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN (DOLIST (YEAR YEARS) (HTML #)))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN (DOLIST (MONTH *MONTH-NAMES-ABBREV*) (HTML #)))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN (DOLIST (DAY #) (IF # # #))))))) (WRITE-STRING "</body>" *HTML-STREAM*))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (NET.HTML.GENERATOR::WITH-HTML-BODY NIL (PROGN (NET.HTML.GENERATOR::WITH-HTML-FORM (:ACTION "date" :METHOD "POST") (PROGN (WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN (DOLIST (YEAR YEARS) (HTML #)))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN (DOLIST (MONTH *MONTH-NAMES-ABBREV*) (HTML #)))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN (DOLIST (DAY #) (IF # # #)))))))) NIL) (COMP::PA-PROGN ((NET.HTML.GENERATOR::WITH-HTML-HEAD NIL (PROGN (NET.HTML.GENERATOR::WITH-HTML-TITLE NIL (PROGN (WRITE-STRING "Specify catalogs" *HTML-STREAM*))))) (NET.HTML.GENERATOR::WITH-HTML-BODY NIL (PROGN (NET.HTML.GENERATOR::WITH-HTML-FORM (:ACTION "date" :METHOD "POST") (PROGN (WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN (DOLIST # #))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN (DOLIST # #))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN (DOLIST # #))))))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (PROGN (NET.HTML.GENERATOR::WITH-HTML-HEAD NIL (PROGN (NET.HTML.GENERATOR::WITH-HTML-TITLE NIL (PROGN (WRITE-STRING "Specify catalogs" *HTML-STREAM*))))) (NET.HTML.GENERATOR::WITH-HTML-BODY NIL (PROGN (NET.HTML.GENERATOR::WITH-HTML-FORM (:ACTION "date" :METHOD "POST") (PROGN (WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN (DOLIST # #))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN (DOLIST # #))) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN (DOLIST # #)))))))) NIL) (COMP::PA-PROGN ((WRITE-STRING "<html>" *HTML-STREAM*) (PROGN (NET.HTML.GENERATOR::WITH-HTML-HEAD NIL (PROGN (NET.HTML.GENERATOR::WITH-HTML-TITLE NIL (PROGN (WRITE-STRING "Specify catalogs" *HTML-STREAM*))))) (NET.HTML.GENERATOR::WITH-HTML-BODY NIL (PROGN (NET.HTML.GENERATOR::WITH-HTML-FORM (:ACTION "date" :METHOD "POST") (PROGN (WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN #)) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN #)) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN #))))))) (WRITE-STRING "</html>" *HTML-STREAM*))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (NET.HTML.GENERATOR::WITH-HTML-HTML NIL (PROGN (NET.HTML.GENERATOR::WITH-HTML-HEAD NIL (PROGN (NET.HTML.GENERATOR::WITH-HTML-TITLE NIL (PROGN (WRITE-STRING "Specify catalogs" *HTML-STREAM*))))) (NET.HTML.GENERATOR::WITH-HTML-BODY NIL (PROGN (NET.HTML.GENERATOR::WITH-HTML-FORM (:ACTION "date" :METHOD "POST") (PROGN (WRITE-STRING "Catalogs: " *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "year") (PROGN #)) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "month") (PROGN #)) (WRITE-STRING "-" *HTML-STREAM*) (NET.HTML.GENERATOR::WITH-HTML-SELECT (:SIZE 1 :NAME "day") (PROGN #)))))))) NIL) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (SELECT-ISO8601 YEARS) NIL) [ COMP::PA-PROGN ] (COMP::PA-COND ((NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B (:PRINC-SAFE NAME)))))) (T (SELECT-ISO8601 YEARS)))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (COND (NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B (:PRINC-SAFE NAME)))))) (T (SELECT-ISO8601 YEARS))) NIL) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (IF NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B (:PRINC-SAFE NAME))))) (SELECT-ISO8601 YEARS)) NIL) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (PROGN (IF NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B (:PRINC-SAFE NAME))))) (SELECT-ISO8601 YEARS))) NIL) [ COMP::PA-PROGN ] (COMP::PA-LET (((*HTML-STREAM* (REQUEST-REPLY-STREAM #:G207))) (PROGN (IF NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B (:PRINC-SAFE NAME))))) (SELECT-ISO8601 YEARS))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (LET ((*HTML-STREAM* (REQUEST-REPLY-STREAM #:G207))) (PROGN (IF NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B (:PRINC-SAFE NAME))))) (SELECT-ISO8601 YEARS)))) NIL) [ COMP::PA-PROGN ] (COMP::PA-COND (((NOT (MEMBER :OMIT-BODY (REQUEST-REPLY-STRATEGY #:G207))) (LET ((*HTML-STREAM* (REQUEST-REPLY-STREAM #:G207))) (PROGN (IF NAME (HTML (:HTML (:HEAD #) (:BODY "Catalogs selected: " #))) (SELECT-ISO8601 YEARS))))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (EXCL:IF* (NOT (MEMBER :OMIT-BODY (REQUEST-REPLY-STRATEGY #:G207))) THEN (LET ((*HTML-STREAM* (REQUEST-REPLY-STREAM #:G207))) (PROGN (IF NAME (HTML (:HTML (:HEAD #) (:BODY "Catalogs selected: " #))) (SELECT-ISO8601 YEARS))))) NIL) (COMP::PA-PROGN ((NET.ASERVE::COMPUTE-RESPONSE-STREAM #:G207 #:G208) (EXCL:IF* #:G210 THEN (NET.ASERVE::BULK-SET-REPLY-HEADERS #:G207 #:G210) (SETF (NET.ASERVE::REQUEST-REPLY-HEADERS #:G207) (APPEND #:G210 (NET.ASERVE::REQUEST-REPLY-HEADERS #:G207)))) (NET.ASERVE::SEND-RESPONSE-HEADERS #:G207 #:G208 :PRE) (EXCL:IF* (NOT (MEMBER :OMIT-BODY (REQUEST-REPLY-STRATEGY #:G207))) THEN (LET ((*HTML-STREAM* (REQUEST-REPLY-STREAM #:G207))) (PROGN (IF NAME (HTML (:HTML # #)) (SELECT-ISO8601 YEARS))))) (NET.ASERVE::SEND-RESPONSE-HEADERS #:G207 #:G208 :POST))) (COMP::PA-LET (((#:G207 REQ) (#:G208 ENT) (#:G209 NIL) (#:G210 NIL)) (DECLARE (EXCL:IGNORE-IF-UNUSED #:G207 #:G208 #:G209)) (NET.ASERVE::COMPUTE-RESPONSE-STREAM #:G207 #:G208) (EXCL:IF* #:G210 THEN (NET.ASERVE::BULK-SET-REPLY-HEADERS #:G207 #:G210) (SETF (NET.ASERVE::REQUEST-REPLY-HEADERS #:G207) (APPEND #:G210 (NET.ASERVE::REQUEST-REPLY-HEADERS #:G207)))) (NET.ASERVE::SEND-RESPONSE-HEADERS #:G207 #:G208 :PRE) (EXCL:IF* (NOT (MEMBER :OMIT-BODY (REQUEST-REPLY-STRATEGY #:G207))) THEN (LET ((*HTML-STREAM* (REQUEST-REPLY-STREAM #:G207))) (PROGN (IF NAME (HTML (:HTML # #)) (SELECT-ISO8601 YEARS))))) (NET.ASERVE::SEND-RESPONSE-HEADERS #:G207 #:G208 :POST))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B (:PRINC-SAFE NAME))))) (SELECT-ISO8601 YEARS))) COMP::MULTIPLE) (COMP::PA-PROGN ((SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*) (SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200)) (WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B (:PRINC-SAFE NAME))))) (SELECT-ISO8601 YEARS))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*) (SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200)) (WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B (:PRINC-SAFE NAME))))) (SELECT-ISO8601 YEARS)))) COMP::MULTIPLE) (COMP::PA-MULTIPLE-VALUE-LIST ((PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*) (SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200)) (WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B #)))) (SELECT-ISO8601 YEARS)))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (MULTIPLE-VALUE-LIST (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*) (SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200)) (WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML (:HTML (:HEAD (:TITLE "Catalog list ")) (:BODY "Catalogs selected: " (:B #)))) (SELECT-ISO8601 YEARS))))) T) [ COMP::PA-PROGN ] (COMP::PA-LET (((EXCL::*WITHOUT-INTERRUPTS* NIL)) (MULTIPLE-VALUE-LIST (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*) (SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200)) (WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML (:HTML (:HEAD #) (:BODY "Catalogs selected: " #))) (SELECT-ISO8601 YEARS))))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (LET ((EXCL::*WITHOUT-INTERRUPTS* NIL)) (MULTIPLE-VALUE-LIST (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*) (SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200)) (WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML (:HTML (:HEAD #) (:BODY "Catalogs selected: " #))) (SELECT-ISO8601 YEARS)))))) T) (COMP::PA-PROGN ((MP::ADD-TO-CLOCK-QUEUE MP::CLOCK-EVENT) (LET ((EXCL::*WITHOUT-INTERRUPTS* NIL)) (MULTIPLE-VALUE-LIST (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*) (SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200)) (WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML (:HTML # #)) (SELECT-ISO8601 YEARS)))))))) (COMP::PA-CATCH (MP::TAG (MP::ADD-TO-CLOCK-QUEUE MP::CLOCK-EVENT) (LET ((EXCL::*WITHOUT-INTERRUPTS* NIL)) (MULTIPLE-VALUE-LIST (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*) (SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200)) (WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML (:HTML # #)) (SELECT-ISO8601 YEARS)))))))) [... COMP::WHOLE-FORM ] (COMP::PA-COMPILE (CATCH MP::TAG (MP::ADD-TO-CLOCK-QUEUE MP::CLOCK-EVENT) (LET ((EXCL::*WITHOUT-INTERRUPTS* NIL)) (MULTIPLE-VALUE-LIST (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*) (SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200)) (WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML (:HTML # #)) (SELECT-ISO8601 YEARS))))))) T) (COMP::PA-SETQ (MP::RET (CATCH MP::TAG (MP::ADD-TO-CLOCK-QUEUE MP::CLOCK-EVENT) (LET ((EXCL::*WITHOUT-INTERRUPTS* NIL)) (MULTIPLE-VALUE-LIST (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*) (SETF (REQUEST-REPLY-CONTENT-TYPE #:G199)(NET.ASERVE::CONTENT-TYPE #:G200))(WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML #) (SELECT-ISO8601 YEARS)))))))))[... COMP::WHOLE-FORM ](COMP::PA-COMPILE(SETQ MP::RET(CATCH MP::TAG(MP::ADD-TO-CLOCK-QUEUE MP::CLOCK-EVENT)(LET ((EXCL::*WITHOUT-INTERRUPTS* NIL))(MULTIPLE-VALUE-LIST (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*)(SETF (REQUEST-REPLY-CONTENT-TYPE #:G199)(NET.ASERVE::CONTENT-TYPE #:G200))(WITH-HTTP-BODY (REQ ENT)(IF NAME (HTML #) (SELECT-ISO8601 YEARS)))))))))(COMP::PA-UNWIND-PROTECT((SETQ MP::RET(CATCH MP::TAG(MP::ADD-TO-CLOCK-QUEUE MP::CLOCK-EVENT)(LET ((EXCL::*WITHOUT-INTERRUPTS* NIL))(MULTIPLE-VALUE-LIST (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*)(SETF (REQUEST-REPLY-CONTENT-TYPE #:G199)(NET.ASERVE::CONTENT-TYPE #:G200))(WITH-HTTP-BODY (REQ ENT) (IF NAME # #)))))))(EXCL:IF* (EQ MP::RET T)(LET ((EXCL::*WITHOUT-INTERRUPTS* NIL))(SETQ MP::RET (MULTIPLE-VALUE-LIST (PROGN (NET.ASERVE::TIMEDOUT-RESPONSE #:G199 #:G200)))))(MP::REMOVE-FROM-CLOCK-QUEUE MP::CLOCK-EVENT))(EXCL::DEALLOCATE-RESOURCE 'MP::CLOCK-EVENT MP::CLOCK-EVENT)))[... COMP::WHOLE-FORM ](COMP::PA-COMPILE(UNWIND-PROTECT(SETQ MP::RET(CATCH MP::TAG(MP::ADD-TO-CLOCK-QUEUE MP::CLOCK-EVENT)(LET ((EXCL::*WITHOUT-INTERRUPTS* NIL))(MULTIPLE-VALUE-LIST (PROGN (SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*)(SETF (REQUEST-REPLY-CONTENT-TYPE #:G199)(NET.ASERVE::CONTENT-TYPE #:G200))(WITH-HTTP-BODY (REQ ENT) (IF NAME # #)))))))(EXCL:IF* (EQ MP::RET T)(LET ((EXCL::*WITHOUT-INTERRUPTS* NIL))(SETQ MP::RET (MULTIPLE-VALUE-LIST (PROGN (NET.ASERVE::TIMEDOUT-RESPONSE #:G199 #:G200)))))(MP::REMOVE-FROM-CLOCK-QUEUE MP::CLOCK-EVENT))(EXCL::DEALLOCATE-RESOURCE 'MP::CLOCK-EVENT MP::CLOCK-EVENT)))(COMP::PA-PROGN((UNWIND-PROTECT(SETQ MP::RET(CATCH MP::TAG(MP::ADD-TO-CLOCK-QUEUE MP::CLOCK-EVENT)(LET ((EXCL::*WITHOUT-INTERRUPTS* NIL))(MULTIPLE-VALUE-LIST (PROGN (SETF # *RESPONSE-OK*) (SETF # #) (WITH-HTTP-BODY # #))))))(EXCL:IF* (EQ MP::RET T)(LET ((EXCL::*WITHOUT-INTERRUPTS* NIL)) (SETQ MP::RET (MULTIPLE-VALUE-LIST (PROGN #))))(MP::REMOVE-FROM-CLOCK-QUEUE MP::CLOCK-EVENT))(EXCL::DEALLOCATE-RESOURCE 'MP::CLOCK-EVENT MP::CLOCK-EVENT))(VALUES-LIST MP::RET)))(COMP::PA-LET*(((MP::TAG (CONS 'MP:WITH-TIMEOUT NIL))(MP::CLOCK-EVENT(MP::CLOCK-QUEUE-EVENT (EXCL:IF* (AND (EXCL:FIXNUMP #:G201) (#:G201 0))#:G201)#'MP::WITH-TIMEOUT-KICKER (LIST MP::TAG SYS:*CURRENT-PROCESS*)))(EXCL::*WITHOUT-INTERRUPTS* T) MP::RET)(UNWIND-PROTECT(SETQ MP::RET(CATCH MP::TAG(MP::ADD-TO-CLOCK-QUEUE MP::CLOCK-EVENT)(LET ((EXCL::*WITHOUT-INTERRUPTS* NIL))(MULTIPLE-VALUE-LIST (PROGN (SETF # *RESPONSE-OK*) (SETF # #) (WITH-HTTP-BODY # #))))))(EXCL:IF* (EQ MP::RET T)(LET ((EXCL::*WITHOUT-INTERRUPTS* NIL)) (SETQ MP::RET (MULTIPLE-VALUE-LIST (PROGN #))))(MP::REMOVE-FROM-CLOCK-QUEUE MP::CLOCK-EVENT))(EXCL::DEALLOCATE-RESOURCE 'MP::CLOCK-EVENT MP::CLOCK-EVENT))(VALUES-LIST MP::RET)))[... COMP::WHOLE-FORM ](COMP::PA-COMPILE(MP:WITH-TIMEOUT ((EXCL:IF* (AND (EXCL:FIXNUMP #:G201) (#:G201 0))#:G201)(NET.ASERVE::TIMEDOUT-RESPONSE #:G199 #:G200))(SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*)(SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200))(WITH-HTTP-BODY (REQ ENT)(IF NAME(HTML (:HTML (:HEAD (:TITLE ))(:BODY (:B (:PRINC-SAFE NAME)))))(SELECT-ISO8601 YEARS)))))(COMP::PA-PROGN((COMPUTE-STRATEGY #:G199 #:G200) (NET.ASERVE::UP-TO-DATE-CHECK #:G202 #:G199 #:G200)(MP:WITH-TIMEOUT ((EXCL:IF* (AND (EXCL:FIXNUMP #:G201) (#:G201 0))#:G201)(NET.ASERVE::TIMEDOUT-RESPONSE #:G199 #:G200))(SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*)(SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200))(WITH-HTTP-BODY (REQ ENT)(IF NAME(HTML (:HTML (:HEAD (:TITLE ))(:BODY (:B #))))(SELECT-ISO8601 YEARS))))))(COMP::PA-CATCH('WITH-HTTP-RESPONSE (COMPUTE-STRATEGY #:G199 #:G200) (NET.ASERVE::UP-TO-DATE-CHECK #:G202 #:G199 #:G200)(MP:WITH-TIMEOUT ((EXCL:IF* (AND (EXCL:FIXNUMP #:G201) (#:G201 0))#:G201)(NET.ASERVE::TIMEDOUT-RESPONSE #:G199 #:G200))(SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*)(SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200))(WITH-HTTP-BODY (REQ ENT)(IF NAME(HTML (:HTML (:HEAD (:TITLE ))(:BODY (:B #))))(SELECT-ISO8601 YEARS))))))[... COMP::WHOLE-FORM ](COMP::PA-COMPILE(CATCH 'WITH-HTTP-RESPONSE(COMPUTE-STRATEGY #:G199 #:G200)(NET.ASERVE::UP-TO-DATE-CHECK #:G202 #:G199 #:G200)(MP:WITH-TIMEOUT ((EXCL:IF* (AND (EXCL:FIXNUMP #:G201) (#:G201 0))#:G201)(NET.ASERVE::TIMEDOUT-RESPONSE #:G199 #:G200))(SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*)(SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200))(WITH-HTTP-BODY (REQ ENT)(IF NAME(HTML (:HTML (:HEAD (:TITLE ))(:BODY (:B #))))(SELECT-ISO8601 YEARS))))))[ COMP::PA-PROGN ](COMP::PA-LET(((#:G199 REQ) (#:G200 ENT) (#:G201 *HTTP-RESPONSE-TIMEOUT*) (#:G202 T))(CATCH 'WITH-HTTP-RESPONSE(COMPUTE-STRATEGY #:G199 #:G200)(NET.ASERVE::UP-TO-DATE-CHECK #:G202 #:G199 #:G200)(MP:WITH-TIMEOUT ((EXCL:IF* (AND (EXCL:FIXNUMP #:G201) (#:G201 0))#:G201)(NET.ASERVE::TIMEDOUT-RESPONSE #:G199 #:G200))(SETF (REQUEST-REPLY-CODE #:G199) *RESPONSE-OK*)(SETF (REQUEST-REPLY-CONTENT-TYPE #:G199) (NET.ASERVE::CONTENT-TYPE #:G200))(WITH-HTTP-BODY (REQ ENT)(IF NAME(HTML (:HTML (:HEAD #) (:BODY #)))(SELECT-ISO8601 YEARS)))))))[... COMP::WHOLE-FORM ](COMP::PA-COMPILE(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT)(IF NAME(HTML (:HTML (:HEAD (:TITLE ))(:BODY (:B (:PRINC-SAFE NAME)))))(SELECT-ISO8601 YEARS)))))[ COMP::PA-PROGN ](COMP::PA-LET(((NAME (CDR (ASSOC (REQUEST-QUERY REQ) :TEST #'EQUAL))))(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT)(IF NAME(HTML (:HTML (:HEAD (:TITLE ))(:BODY (:B #))))(SELECT-ISO8601 YEARS))))))[... COMP::WHOLE-FORM ](COMP::PA-COMPILE(LET ((NAME (CDR (ASSOC (REQUEST-QUERY REQ) :TEST #'EQUAL))))(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT)(IF NAME(HTML (:HTML (:HEAD (:TITLE ))(:BODY (:B #))))(SELECT-ISO8601 YEARS))))))[ COMP::PA-PROGN ](COMP::PA-LET(((YEARS (THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR (ASSOC (REQUEST-QUERY REQ) :TEST #'EQUAL))))(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT)(IF NAME(HTML (:HTML (:HEAD #) (:BODY #)))(SELECT-ISO8601 YEARS)))))))[... COMP::WHOLE-FORM ](COMP::PA-COMPILE(LET ((YEARS (THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR (ASSOC (REQUEST-QUERY REQ) :TEST #'EQUAL))))(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT)(IF NAME(HTML (:HTML (:HEAD #) (:BODY #)))(SELECT-ISO8601 YEARS)))))))[ COMP::PA-PROGN ](COMP::PA-LET(((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS (THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR (ASSOC (REQUEST-QUERY REQ) :TEST #'EQUAL))))(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT)(IF NAME (HTML (:HTML # #)) (SELECT-ISO8601 YEARS))))))))[... COMP::WHOLE-FORM ](COMP::PA-COMPILE(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS (THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR (ASSOC (REQUEST-QUERY REQ) :TEST #'EQUAL))))(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT)(IF NAME (HTML (:HTML # #)) (SELECT-ISO8601 YEARS))))))))[ COMP::PA-PROGN ](COMP::PA-BLOCK(SELECT-DATE(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS (THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR (ASSOC # :TEST #'EQUAL))))(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML #) (SELECT-ISO8601 YEARS)))))))))[... COMP::WHOLE-FORM ](COMP::PA-COMPILE(BLOCK SELECT-DATE(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS (THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR (ASSOC # :TEST #'EQUAL))))(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML #) (SELECT-ISO8601 YEARS)))))))))[... COMP::WHOLE-FORM ](COMP::PA-COMPILE(PROGN (BLOCK SELECT-DATE(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS(THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE)(TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR #)))(WITH-HTTP-RESPONSE (REQ ENT) (WITH-HTTP-BODY (REQ ENT) (IF NAME # #)))))))))(COMP::PA-COMPILE-LAMBDA(LAMBDA (PREFIX REQ ENT)(BLOCK SELECT-DATE(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS(THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR #))) (WITH-HTTP-RESPONSE (REQ ENT) (WITH-HTTP-BODY (REQ ENT) (IF NAME # #)))))))))(COMP::PA-START-COMPILE(LAMBDA (PREFIX REQ ENT)(BLOCK SELECT-DATE(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS(THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR #))) (WITH-HTTP-RESPONSE (REQ ENT) (WITH-HTTP-BODY (REQ ENT) (IF NAME # #)))))))))(COMP::COMPILE-LE(LAMBDA (PREFIX REQ ENT)(BLOCK SELECT-DATE(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS(THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR #))) (WITH-HTTP-RESPONSE (REQ ENT) (WITH-HTTP-BODY (REQ ENT) (IF NAME # #)))))))))(COMP::COMPILE-TO-LAPS(LAMBDA (PREFIX REQ ENT)(BLOCK SELECT-DATE(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS(THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR #))) (WITH-HTTP-RESPONSE (REQ ENT) (WITH-HTTP-BODY (REQ ENT) (IF NAME # #)))))))))(COMP::COMPILE-FUNCTION-GROUP(LAMBDA (PREFIX REQ ENT)(BLOCK SELECT-DATE(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS(THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR #))) (WITH-HTTP-RESPONSE (REQ ENT) (WITH-HTTP-BODY (REQ ENT) (IF NAME # #)))))))))(COMP::COMPILE-P-DEFUN(DEFUN SELECT-DATE (PREFIX REQ ENT)(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS (THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR (ASSOC # :TEST #'EQUAL))))(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML #) (SELECT-ISO8601 YEARS)))))))))(COMP::COMPILE-PROCESS-FORM(DEFUN SELECT-DATE (PREFIX REQ ENT)(LET ((MOST-RECENT-CATALOG-DATE (DATIME-TIMEPARSE (CAAR (LAST *ALL-CATALOGS*))))(FIRST-CATALOG-DATE (DATIME-TIMEPARSE (CAAR *ALL-CATALOGS*))))(LET ((YEARS (THROUGH (TIMEPARSE-YEAR MOST-RECENT-CATALOG-DATE) (TIMEPARSE-YEAR FIRST-CATALOG-DATE))))(LET ((NAME (CDR (ASSOC # :TEST #'EQUAL))))(WITH-HTTP-RESPONSE (REQ ENT)(WITH-HTTP-BODY (REQ ENT) (IF NAME (HTML #) (SELECT-ISO8601 YEARS))))))))#p)((FLET COMPILE-FILE COMP::CONTINUATION))(COMPILE-FILE )(SYS::..RUNTIME-OPERATION . :UNKNOWN-ARGS)(EXCL:COMPILE-FILE-IF-NEEDED )(TPL::CLOAD-COMMAND )(SYS::..RUNTIME-OPERATION TPL::CLOAD-COMMAND ())(TPL::READ-EVAL-PRINT-ONE-COMMAND NIL NIL)(EXCL::READ-EVAL-PRINT-LOOP :LEVEL 0)(TPL::TOP-LEVEL-READ-EVAL-PRINT-LOOP1)(TPL:TOP-LEVEL-READ-EVAL-PRINT-LOOP)(SYS::..RUNTIME-OPERATION #)(TPL:START-INTERACTIVE-TOP-LEVEL#[initial terminal io] fd 0/1 @ #x2000687a#)(EXCL::START-LISP-EXECUTION)(EXCL::SETUP-REQUIRED-STACK-GROUP-BINDINGS #)(EXCL::START-REBORN-LISP)
Since you want to put something inside the <option> tag
you'll want to use double parens.
Futher whereas <option selected> is not legal html, it's
still accepted by most browsers. The correct
form is <option selected=selected>
Thus combining both bits of info, what you want is
(html ((:option :selected "selected") (:princ day)))