anchor.diff:  ;#run.0
   (defparameter *status* '((1 . 0)(2 . 0)(3 . 0)(4 . 0)(5 . 0)(6 . 0)(7 . 0)(8 . 0)
                            (9 . 0)(10 . 0)(11 . 0)(12 . 0)(13 . 0)(14 . 0)(15. 0)(16 . 0)
  -                         ("kali" . 0) ("stm" . 0) ("NULL" . 0) ("netz" . 0)))
  +                         ("kali" . 0) ("stm" . 0) ("NULL" . 0) ("netz" . 0)
  +                         ("each" . 0)))
   ;(assoc "kali" *status* :test #'equalp)
   ;(assoc 0 *status* :test #'equalp)
   
  
positive.code:   (2startx "/alle/FBK" 0))
  
  ;; ** TODO SYNTAX-HIGHLIGHT
  ;; ** (WARTE-BIS-<= n)
  
negative.code: 
  ;; ;; emacs defun
  ;; (defun vue ()
  ;;   (async-shell-command   "open -a vlc --args rtsp://mut.dlinkddns.com:554/ch0_1.h264 &"))
  ;; (defun vnc-editmode ()
  ;;   (async-shell-command   "ssh pi@mut.dlinkddns.com 'vncserver -geometry 650x800 -depth 8 -rfbport 5910' &" ))
  ;; (defun vnc-editmode-2 ()
  