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