Source

lisp-random / generators.lisp

Diff from to

generators.lisp

      (lambda ()
        (prog1 (funcall key n)
          (incf n step))))))
+
+(defun const (x)
+  "Generate a stream of values always containing X. Name derived from
+Haskell's `const'."
+  (generator (lambda () x)))