Re: list building and argz_smob

[Thien-Thi Nguyen]

   From: address@hidden (Paul Jarc)
   Date: Mon, 09 Feb 2004 13:41:05 -0500

     (let ((nop-item (and cgi-http-cookie (cgi:cookie "nop_item"))))
       (if nop-item
         (string-append "nop_item=\"" (frobnicate nop-item) "\"")
         "no_nop_item"))

alternatively:

(or (and=> (and cgi-http-cookie (cgi:cookie "nop_item"))
           (lambda (nop-item)
             (string-append ...)))
    "no_nop_item")

this is similar to: (cond (EXP => (lambda (VAL) ...)) (else DEFAULT))
but slightly less verbose.  i think the code is close to beautiful now;
finishing touch would be to zonk `string-append' somehow.

thi