anchor.diff:        (values))))
   
   (defun buffer-read-char (s hang-p)
  +  "Read a single character from an `editline-stream'."
     (with-slots (text) s
       (tagbody
        again
  
positive.code:   (count (:pointer :int)))
  
  (defun el-gets (e)
    (with-foreign-object (count :int)
      (let ((s (%el-gets e count)))
        (values s (mem-ref count :int)))))
  
negative.code:     (make-lineinfo :text buffer-text :cursor-index cursor-position)))
  
  (defun editline-line (e)
    "Retrieve information about the line the user is currently authoring.
  
  Returns a `lineinfo' instance."
    (with-slots (ptr) e
      (convert-lineinfo (el-line ptr))))
  
  