(in-package :my-tools)
(use-package :oli)

(defun get-date-time-machine-string ()
  (let (my-time)
    (multiple-value-bind (d_sec d_min d_hour d_day d_mon d_year) (get-decoded-time)
      (setq my-time (format nil "~4D~2,'0D~2,'0D_~2,'0D~2,'0D"
			                         d_year d_mon d_day d_hour d_min)) ;  d_sec))
			    )
			  ;; return
    (format nil "~A_~A_~A" my-time (sd-sys-getenv "COMPUTERNAME") (sd-inq-username))
    )
  )

#|

in einem icon commando o. ä. muesste dann als action stehen

 (oli::sd-put-buffer (my-tools::get-date-time-machine-string))

|#