CLIM-EMACS> (funcall (data-lens:• #'null
                                  #'cdr
                                  (data-lens:compress-runs :test #'eql)
                                  (data-lens:over 'length))
                     #((1 2 3) (2 3 4)))
T
CLIM-EMACS> (funcall (data-lens:• #'null
                                  #'cdr
                                  (data-lens:compress-runs :test #'eql)
                                  (data-lens:over 'length))
                     #((1 2 3) (2 3 4 5)))
NIL
CLIM-EMACS> (funcall (data-lens:• #'null
                                  #'cdr
                                  (data-lens:compress-runs :test #'eql)
                                  (data-lens:over 'length))
                     #((1 2 3) (2 3 4 5)))
NIL
CLIM-EMACS> (funcall (data-lens:• #'null
                                  #'cdr
                                  (data-lens:compress-runs :test #'eql)
                                  (data-lens:over 'length))
                     #())
T