(lambda ()
"supposed to give me a string built from buffername and date"
(let
 ((head (file-name-nondirectory (file-name-sans-extension (buffer-file-name))))))

(let
 ((tail
 (format-time-string "%Y-%m-%-d.%H%M"(current-time)))))

(let
  ((filename
  (concat head "." tail))))

(message filename))