anchor.diff:  (defvar *speicher-dir* #P"~/arte7/")
   
   (defparameter *tmp* nil)
  -(defparameter *prozess* '())
  +(defparameter *prozess* nil)
   
   (defun cd (&optional dir)
     "Change directory and set default pathname"
  
positive.code:          (colon-2-o (x)
             (cl-ppcre:regex-replace-all ":" x "_"))
           (and-2-y (x)
             (cl-ppcre:regex-replace-all "&" x "y"))
           )
      (asciify (and-2-y (colon-2-o (slash-2-.s (apo-2--2-bar (apo-2-bar  (blanko-2-underbar string)))))))))
  
  (defun info (key tbl)
    (alexandria:ensure-gethash key tbl))
  
negative.code:   (let ((foo (getf (nth n *prozess*) :proz))
          (titl (getf (nth n *prozess*) :titl))
          (id (getf (nth n *prozess*) :id)))
      (format t "~&~2,D ~S ~% ~A ~A ~A ~%"
              n titl id (ccl:external-process-id foo) (ccl:external-process-status foo))))
  
  (defun check ()
  