anchor.diff:  (defun window-delete (buffer arg)
     (declare (ignore arg))
     (cond
  -   ((null (cdr *buffer-list*))
  +   ((one-window-p)
       (mb-write "Can not delete this window")
       nil)
      (t
  
positive.code: 
  (defvar *current-cols*)
  (defvar *current-lines*)
  
  (defun window-init ()
    (setq *current-cols* cl-ncurses:*cols*)
  
negative.code:         (< (buffer-y b1) (buffer-y b2)))))
    t)
  
  (defun get-next-window (buffer)
    (let ((result (member buffer *buffer-list*)))
      (if (cdr result)
        (cadr result)
        (car *buffer-list*))))
  
  (add-command 'window-next 'other-window "C-xo")
  (defun window-next (buffer arg)
    (arg-repeat (arg t)
      (setq buffer (get-next-window buffer)))
    (setq *current-buffer* buffer)
    t)
  
  (defun window-move (buffer y x)
    (cl-ncurses:mvwin (buffer-win buffer) y x)
  