(defun ocaml-build-email-address (name host)
(format nil "let name=~S and tld=~S in name ^ \"@\" ^ tld;;"
name host))
(defun ocaml-build-email-address-2 (name host)
(format nil "let name=~S and tld=~S in String.concat \"@\" [name;tld];;"
name host))
(defun snobol-build-email-address (name host &optional (revp nil))
(if revp
(concatenate 'string
"output = reverse("
(quotify (reverse host))
" "
(quotify (reverse name))
")")
(concatenate 'string
"output = ("
(quotify name) " " (quotify host) ")")))
(defun sql-build-email-address (name host)
(format nil "select '~A' || '~A';" name host))
(defun a+-build-email-address (name host)
(format nil "~S,~S" name host))
