From c42a864dc07721a3e9504094b5b8095cb5f3d03f Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 12 Jun 2004 11:19:03 +0000 Subject: [PATCH] r9592: ready for boa --- web-utils.lisp | 25 +++---------------------- 1 file changed, 3 insertions(+), 22 deletions(-) diff --git a/web-utils.lisp b/web-utils.lisp index 40cb040..cc8f52a 100644 --- a/web-utils.lisp +++ b/web-utils.lisp @@ -56,34 +56,15 @@ (if vars (let ((first-var (first vars))) (concatenate 'string - "?" (car first-var) "=" (cadr first-var) + "?" (car first-var) "=" (cdr first-var) (mapcar-append-string #'(lambda (var) - (when (and (car var) (cadr var)) + (when (and (car var) (cdr var)) (concatenate 'string - amp (car var) "=" (cadr var)))) + amp (car var) "=" (cdr var)))) (rest vars)))) "")))) -(defun make-url-new (page-name &key (base-dir *base-url*) (format :html) - (vars nil)) - (let ((amp (ecase format - (:html "&") - ((:xml :ie-xml) "&")))) - (concatenate 'string - base-dir page-name - (if vars - (let ((first-var (first vars))) - (concatenate 'string - "?" (car first-var) "=" (cadr first-var) - (mapcar-append-string - #'(lambda (var) - (when (and (car var) (cadr var)) - (concatenate 'string - amp (car var) "=" (cadr var)))) - (rest vars)))) - "")))) - (defun decode-uri-query-string (s) "Decode a URI query string field" (declare (simple-string s) -- 2.34.1