Bracketless lisp test

gistfile1.txt

(defun id (x)
  x)

(defconstant o nil)

(defun bracketless (args &optional level)
  (do ((result)
       (arg (car args) (car args))
       (args (cdr args) (cdr args)))
      (nil)
    (if (and (symbolp arg) (fboundp arg))
        (multiple-value-bind (new-arg new-args) (bracketless args t)
          (push (cons arg new-arg) result)
          (setf args new-args))
        (progn
          (unless (eq arg 'o)
            (push arg result))
          (if level
              (return (values (reverse result) args))
              (setf result (list `(progn ,@(reverse result)))))))
    (unless args
      (return (reverse result)))))

(defmacro without-brackets (&body body)
  `(progn ,@(bracketless body)))

(without-brackets print + id 1 id 2 3 o print = * + id 1 2 3 9 o values)