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