anchor.diff:  (defvar *initd* nil)
   
   ;;======================================================================
  -;; api v1
  +;; api v2
   
   (defgeneric sdl-init (&rest init-flags)
     (:method (&rest init-flags)
  
positive.code: 
  ;;----------------------------------------------------------------------
  
  (defclass sdl-api (cepl.host:api-1)
    (;;
     (supports-multiple-contexts-p :initform nil)
     ;;
  
negative.code:    ;;
     (surface-title-function :initform #'sdl-surface-title)
     ;;
     (set-surface-title-function :initform #'sdl-set-surface-title)
     ;;
     (make-gl-context-shared-with-current-context-function
      :initform #'make-shared-sdl-context)))
  
  (register-host 'sdl-api)
  
  