 
 
 (defun xm (arg)
-"xmark, x-current-line-or-region
+"xMark, send current-line-or-region to startx-buffer
 if ARG not null, case sensitive"
   (interactive "P")
   (save-excursion

;; 	(cmd-gen (format "(kali %d %d)" pos tgl)))
;;     (slime-eval `(swank::pprint-eval ,cmd-gen))))

(use-defun-interactive kali)

(use-defun-interactive abal)

(use-defun kredit)

(defun aksel (pos &optional accel-var)
  (interactive)

	   (2slime (format "(%s \"%s\")" ',fun-name arg1)))
       (2slime (format "(%s)" ',fun-name)))))

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