anchor.diff:           0))))
   
   (defun correct-context? (major minor)
  -  (multiple-value-bind (maj min) 
  +  (multiple-value-bind (maj min)
         (parse-gl-version-string-values (foreign-string-to-lisp (get-string (foreign-enum-value 'gl-enum :version))))
       (unless (and (>= maj major) (>= min minor))
         (error "unable to create requested context"))))
  
positive.code:       ;; set title
        (glop-x11::x-store-name (x11-window-display win) (x11-window-id win) title)
        (setf (slot-value win 'title) title)
        (format t "Creating Contexts ~%Window structure: ~S~%" win)
        ;; create a GL context and make it current same as for the visual regarding to major/minor
        ;; values
        (setf (window-gl-context win) (create-gl-context win :major major :minor minor
  
negative.code: (defmethod create-gl-context ((win x11-window) &key (make-current t) major minor)
      (let ((ctx (make-glx-context
                  :ctx (if (and major minor)
                           (glop-x11::glx-create-specific-context (x11-window-display win)
                                                                  (x11-window-fb-config win)
                                                                  `(:major-version ,major :minor-version ,minor))
                           (glop-x11::glx-create-context (x11-window-display win)
                                                         (x11-window-visual-infos win)))
                  :display (x11-window-display win))))
        (when make-current
          (attach-gl-context win ctx))
        (when (and major minor)
          (glop-x11::correct-context? major minor))
        ctx))
  
  (defmethod destroy-gl-context (ctx)
  