X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=web-utils.lisp;h=da7d6b73918bdd50e21b27c9be90628eec154c54;hp=cc8f52aa0c6327c9522731bbd1218d767d5a1b3f;hb=86a868a95313178cdc7a83d35856ccf5c2cf315f;hpb=c42a864dc07721a3e9504094b5b8095cb5f3d03f

diff --git a/web-utils.lisp b/web-utils.lisp
index cc8f52a..da7d6b7 100644
--- a/web-utils.lisp
+++ b/web-utils.lisp
@@ -45,7 +45,7 @@
 (defun base-url! (url)
   (setq *base-url* url))
 
-(defun make-url (page-name &key (base-dir *base-url*) (format :html) (vars nil))
+(defun make-url (page-name &key (base-dir *base-url*) (format :html) vars anchor)
   (let ((amp (case format
 	       (:html
 		"&")
@@ -61,8 +61,11 @@
 	       #'(lambda (var) 
 		   (when (and (car var) (cdr var))
 		     (concatenate 'string 
-		       amp (car var) "=" (cdr var))))
+		       amp (string-downcase (car var)) "=" (cdr var))))
 	       (rest vars))))
+	"")
+      (if anchor
+	  (concatenate 'string "#" anchor)
 	""))))
 
 (defun decode-uri-query-string (s)