       (x  downcased-str))))
 
 (defun xr ()
-  "xraw, x-current-line-or-region,  but case sensitive, w/o case-toggle"
+  "xRaw, send current-line-or-region to startx-buffer,
+  but case sensitive, w/o case-toggle"
   (interactive)
   (xm 't))
 

(defun 2slime (str)
  (cadr (slime-eval `(swank:eval-and-grab-output ,str))))

;; 
(defmacro use-defun (fun-name)
  "Use the same name fun from CL"
  `(defun ,fun-name (&optional arg1 arg2)
     (if arg1

;;   (let ((cmd-gen (format "(x- \"%s\")" ∂)))
;;     (slime-eval `(swank::pprint-eval ,cmd-gen))))


;; TODO *output* od. mini-buffer weiterleiten
;; echo area sync, (message) hack 

;; TODO arg als list
(use x+)
(use x-)
(use x)
(use a)

;;; global kontrol/ start y end
(use-i startx)
(use-i agur)

;;; kontrol
(use stm)
(use netz)

;; (defun kali (&optional posx tglx)
;;   (interactive)
