buffer.lisp

(defparameter *buffers* (list "a" "b" "c"))
(defparameter *active-buffer* (nth 0 *buffers*)

(defun delete-active-buffer ()
  (when (> (length *buffers*) 1)
    (let ((former-active-buffer *active-buffer*))
      ;; switch-buffer-next changes value of *active-buffer*
      ;; which in turn changes the value of former-active-buffer
      (switch-buffer-next)
      ;; therefore delete actually deletes the new *active-buffer*
      (delete former-active-buffer *buffers*)
      (interface:delete-view (view former-active-buffer)))))