       (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 xm (arg)
"xmark, x-current-line-or-region
if ARG not null, case sensitive"
  (interactive "P")
  (save-excursion

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

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