anchor.diff:  
   ;;; Display
   
  +#-debug-ref-counting
  +(defmethod print-object ((display display) stream)
  +  (if (and (proxy-valid-p display) (slot-boundp display 'name))
  +      (print-unreadable-object (display stream :type t :identity nil)
  +        (format stream "~S at 0x~X" 
  +	 (display-name display) (pointer-address (foreign-location display))))
  +    (call-next-method)))
  +
   (defbinding %display-open () display
     (display-name (or null string)))
   
   (defun display-open (&optional display-name)
  -  (let ((display (%display-open display-name)))
  +  (let ((display (or
  +		  (%display-open display-name)
  +		  (error "Opening display failed: ~A" display-name))))
       (unless (display-get-default)
         (display-set-default display))
       display))
  
positive.code:     (&optional (display (display-get-default))) int
    (display display))
  
  
  
  ;;; Display manager
  
  (defbinding display-get-default () display)
  
  (defbinding (display-manager "gdk_display_manager_get") () display-manager)
  
  (defbinding (display-set-default "gdk_display_manager_set_default_display")
      (display) nil
    ((display-manager) display-manager)
    (display display))
  
  
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gdk.lisp,v 1.34 2007-04-06 14:19:08 espen Exp $
  
  
  (in-package "GDK")
  