anchor.diff:  	 (return))
          (termbox:clear)
          (dotimes (i (length items))
  -	 (let ((fg (if (eq selected i) termbox:+white+ termbox:+default+))
  -	       (bg (if (eq selected i) termbox:+black+ termbox:+default+)))
  -	   (draw-text 1 (1+ i) (nth i items) fg bg)))
  +	 (apply #'draw-text 1 (1+ i) (nth i items) (if (eq selected i)
  +						       (list termbox:+white+ termbox:+black+)
  +						       (list termbox:+default+ termbox:+default+))))
          (termbox:present)
          (let* ((event (termbox:poll-event))
   	      (event-data (termbox:event-data event))
  
positive.code: 
  (defparameter *bindings* `(:ch (#\j :down
  				#\k :up
  				#\q :quit)
  			   :key (,termbox:+key-esc+ :quit)))
  
  (defun test ()
  
negative.code: 	     (:up
  	      (setf selected (mod (1- selected) (length items))))
  	     (:quit
  	      (setf running nil))
  	     (:delete
  	       (if (plusp (length items))
  		 (setf selected (max 0 (1- selected))
  		       items (remove (nth selected items) items :test #'string=)))))
  	   (case (getf bindings key)
  	     (:quit
  	      (setf running nil))))
  