 ;; 	(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)
+(use-i kali)
+
+(use-i abal)
+
+(use kredit)
 
 (defun aksel (pos &optional accel-var)
   (interactive)

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

(use-defun x+)
(use-defun x-)
(use-defun x)

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

;;; kontrol
(use-defun stm)
(use-defun netz)

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

(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
