doseq (untested); string and regtest 033; 025 does not yet pass

      (eval-list body))

    (eval resultform)))

(defspecial doseq (formargs &rest body)

  "(doseq (loopvar seq resultform) . body)"

  (let ((var (car formargs))

        (seq (eval (cadr formargs)))

        resultform)

    (let ((list (if (stringp seq)

                    (split-string "" seq)

                  seq)))

      (when (consp (cddr formargs))

        (setq resultform (caddr formargs)))

      (while (consp list)

        (set var (pop list))

        (eval-list body))

      (eval resultform))))

(defun sequencep (object)

  "return t if OBJECT is a sequence (list or string), nil else"

  (or (listp object) (stringp object)))

           (apply #'/= (cons n (cddr args)))

           (apply #'/= (cdr args))))))

(defun string (&rest args)

  "make a string from all args and return it"

  (apply #'concat (mapcar #'princs args)))

(defun string<= (&rest args)

  "return t if string args are in ascending order (non-strict), else nil"

  (if (or (null args) (null (cdr args)))

  * Brandom

  * read: does not recognize missong close paren on EOF

  * start/end args for dolist/doseq?

  @ fix regtests; 024

  + better argument checking (number, types) for Builtins (instead

(testcmp "string of nothing" '(string) "")

(testcmp "string single list" '(string '(a b c)) "(a b c)")

(testcmp "string symbols" '(string 'abc 'def) "abcdef")

(testcmp "string strings" '(string "a" "b") "ab")

(testcmp "string mixed" '(string "a" t nil 'huhu (cons 'd '(e f)) 112)

         "atnilhuhu(d e f)112")