gosh> (use gauche.parameter)
#<undef>
gosh> (define x
  (do ((i (make-parameter 0))
       (l '() (cons i l)))
      ((>= (i) 5) l)
    (i (+ (i) 1))))
x
gosh> (map (lambda (e) (e)) x)
(5 5 5 5 5)
gosh>