+ (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)))
+
+
+(defun make-link-start-old (view fieldfunc fieldvalue refvars)