- (format nil "~a\"~a?func=~a~akey=~a~a\""
- (link-href-start view)
- (make-url (link-page-name view))
- fieldfunc
- (link-ampersand view) fieldvalue
- (if refvars
- (let ((varstr ""))
- (dolist (var refvars)
- (string-append
- varstr (link-ampersand view)
- (format nil "~a=~a" (car var) (cadr var))))
- varstr)
- "")))
-
+ (with-output-to-string (s)
+ (write-string (link-href-start view) s)
+ (write-char #\" s)
+ (write-string (make-url (link-page-name view)) s)
+ (write-string "?func=" s)
+ (write-string fieldfunc s)
+ (write-string (link-ampersand view) s)
+ (write-string "key=" s)
+ (write-string fieldvalue s)
+ (dolist (var refvars)
+ (write-string (link-ampersand view) s)
+ (write-string (car var) s)
+ (write-char #\= s)
+ (write-string (cdr var) s))
+ (write-char #\" s)))
+