[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: list building and argz_smob
From: |
Thien-Thi Nguyen |
Subject: |
Re: list building and argz_smob |
Date: |
Mon, 09 Feb 2004 20:49:13 +0100 |
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