1. Kurt Miebach
  2. dragonfly-newlisp

Commits

Greg Slepak  committed 211caf4

fixed a bug in Response:cookie

  • Participants
  • Parent commits 223849e
  • Branches default

Comments (0)

Files changed (1)

File example-site/dragonfly-framework/lib/response.lsp

View file
 ;; cookie is deleted, otherwise it is updated with the value and the rest of the parameters.</p>
 (define (cookie key)
 	(local (value expires path domain http-only)
-		(map set '(value expires path domain http-only) $args)
+		(map (fn(k v) (if v (set k v))) '(value expires path domain http-only) $args)
 		(if (nil? key) cookies
 			(empty? $args) (lookup key cookies)
 			(nil? value) (pop cookies (find key cookies comp-func))