Re: request for a new function, say, `sequence'

[Thien-Thi Nguyen]

here's another implementation that builds the list from the end.
also, the individual input conditions are handled directly.

thi

________________________________________________
(defun number-sequence (from &optional to)
  (cond ((not to) (list from))
        ((< to from) nil)
        (t (let ((ans (list to)))
             (while (< from to)
               (setq ans (cons (setq to (1- to)) ans)))
             ans))))