anchor.diff:      (dolist (it (rest items-rev))
         (setf inner `(lazy-seq (cons ,it ,inner))))
       inner))
  +
  +(example
  + (take 4 (lazy-list* 1 2 '(3 4)))
  + => '(1 2 3 4))
  +
  +(example
  + (take 4 (lazy-list* 1 2 (nats 0)))
  + => '(1 2 0 1))
  +
  +(example
  + (take 4 (lazy-list* 1 2 (lazy-list 3 4)))
  + => '(1 2 3 4))
   
   ;;; lazy-ref-cell structure
   
  
positive.code:     inner))
  
  (example
   (take 3 (lazy-list 1 2 3))
   => '(1 2 3))
  
  (defmacro lazy-list* (&rest items)
    "Construct a lazy sequence from given ITEMS.
  
negative.code: #|
   Defines:
  
     lazy-list, lazy-list*     Create lazy sequences conveniently
     self-ref        Self-referential lazy sequences
     alazy-list, alazy-list*   Anamorphic macro variants for self referencing
     lazy-labels     Creates scope in which mutually recursive lazy sequences can be defined
  |#
  
  (in-package #:lazyseq)
  
  