foo.lisp

(defun foo ()
  (let* ((line (make-instance 'cluffer-standard-line:line))
         (buf (make-instance 'cluffer-standard-buffer:buffer :initial-line line))
         (cursor (make-instance 'cluffer-standard-line:right-sticky-cursor)))
    (cluffer:attach-cursor cursor line)
    (cluffer:insert-item cursor "foo")
    (cluffer:insert-item cursor "bar")
    buf))

#| Output:
There is no applicable method for the generic function
  #<STANDARD-GENERIC-FUNCTION CLUFFER:ITEM-COUNT (6)>
when called with arguments
  (#<CLUFFER-STANDARD-LINE:LINE {100A96A3F3}>).
   [Condition of type SB-PCL::NO-APPLICABLE-METHOD-ERROR]
See also:
  Common Lisp Hyperspec, 7.6.6 [:section]
|#