anchor.diff:  			 (go terminal))
   		    (#\= (push (if (= (pop stack) (pop stack)) 1 0) stack)
   			 (go terminal))
  -		    (#\> (push (if (> (pop stack) (pop stack)) 1 0) stack)
  -			 (go terminal))
  -		    (#\< (push (if (< (pop stack) (pop stack)) 1 0) stack)
  -			 (go terminal))
  -		    (#\A (push (if (and (pop stack) (pop stack)) 1 0) stack)
  -			 (go terminal))
  -		    (#\O (push (if (or (pop stack) (pop stack)) 1 0) stack)
  +		    (#\> (push (if (<= (pop stack) (pop stack)) 1 0) stack)
  +			 (go terminal))
  +		    (#\< (push (if (>= (pop stack) (pop stack)) 1 0) stack)
  +			 (go terminal))
  +		    (#\A (push (if (or (zerop (pop stack))
  +				       (zerop (pop stack)))
  +				   0
  +				   1)
  +			       stack)
  +			 (go terminal))
  +		    (#\O (push (if (and (zerop (pop stack))
  +					(zerop (pop stack)))
  +				   0
  +				   1)
  +			       stack)
   			 (go terminal))
   		    (#\! (push (if (zerop (pop stack)) 1 0) stack)
   			 (go terminal))
  
positive.code: 
  (in-package "TERMINFO")
  
  (export '(*terminfo-directories* *terminfo* capability tparm tputs
  	  set-terminal))
  
  (defvar *terminfo-directories* '("/etc/terminfo/"
  				 "/lib/terminfo/"
  				 "/usr/share/terminfo/"
  				 "/usr/share/misc/terminfo/"))
  
  (defvar *terminfo* nil)
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defvar *capabilities* (make-hash-table :size 494)))
  
negative.code: 			     (incf (second args))))
  			 (go terminal))
  		    (#\? (go state14))
  		    (#\t (go state15))
  		    (#\e (go state16))
  		    (#\; (go state17))
  		    (otherwise (error "Unknown %-control character: ~C" c)))
  		state1
  		  (let ((next (peek-char nil in nil)))
  