Function: ensure-prefix-slash

Source

(defun ensure-prefix-slash (url)
  (when (equal url "") (return-from ensure-prefix-slash "/"))
  (if (eql (char url 0) #\/)
      url
      (strcat "/" url)))