<cd> ` echo \'(defun p (str) (format T "~A" str)) (defun pn (str) (format T "~A~%" str))\' > ../etc/clinit.cl
#!/bin/bash
[[ "$1" == ?*//* ]] || { echo usage: "mk[x]" file//contents >&2; exit 1; }; key="${1%%//*}"; value="${1#*//}"; echo "$value" > "$(echo-p "$key")" && echo "$key"