anchor.diff:      (let ((s (%el-gets e count)))
         (values s (mem-ref count :int)))))
   
  -#|
  -(defcfun (el-wgets "el_wgets" :library libedit) :pointer ;; to wchar
  -  (e editline-ptr)
  -  (count (:pointer :int)))
  -|#
  -
   (defcfun (el-getc "el_getc" :library libedit) :int
     (e editline-ptr)
     (ch (:pointer :char)))
   
  -#|
  -(defcfun (el-wgetc "el_wgetc" :library libedit) :int
  -  (e editline-ptr)
  -  (wc :pointer #| to wchar |#))
  -|#
  -
   (defcfun (el-push "el_push" :library libedit) :void
     (e editline-ptr)
     (mbs :string))
  -
  -#|
  -(defcfun (el-wpush "el_wpush" :library libedit) :void
  -  (e editline-ptr)
  -  (wcs :pointer #| to wchar |#))
  -|#
   
   (defcfun (el-parse "el_parse" :library libedit) :int
     (e editline-ptr)
     (argc :int)
     (argv string-table))
  -
  -#|
  -(defcfun (el-wparse "el_wparse" :library libedit) :int
  -  (e editline-ptr)
  -  (argc :int)
  -  (argv :pointer #| to wchar strings |#))
  -|#
   
   (defcfun (el-set "el_set" :library libedit) :int
     (e editline-ptr)
  
positive.code: the EL_BIND sub-routine of `el-set'."
    (el-set e +el-bind+ :string key :string command :pointer (null-pointer)))
  
  (defcfun (el-wset "el_wset" :library libedit) :int
    (e editline-ptr)
    (op :int)
    &rest)
  
  (defcfun (el-get "el_get" :library libedit) :int
    (e editline-ptr)
    (op :int)
    &rest)
  
  (defcfun (el-wget "el_wget" :library libedit) :int
    (e editline-ptr)
    (op :int)
    &rest)
  
  (defcfun (el-source "el_source" :library libedit) :int
    (e editline-ptr)
    (file :string))
  
negative.code: (defcfun (el-line "el_line" :library libedit) (:pointer (:struct lineinfo))
    (e editline-ptr))
  
  (defcfun (el-insertstr "el_insertstr" :library libedit) :int
    (e editline-ptr)
    (str :string))
  
  (defcfun (el-deletestr "el_deletestr" :library libedit) :void
    (e editline-ptr)
    (count :int))
  
  (defcfun (history-init "history_init" :library libedit) history-ptr)
  
  (defcfun (history-end "history_end" :library libedit) :void
    (h history-ptr))
  
  (defcfun (history "history" :library libedit) :int
    (h history-ptr)
    (ev histevent-ptr)
    (op :int))
  
  (defvar *editline-sidetable* (make-hash-table)
  