(rplacd cell new-cdr)

      (defun fun (args ...)
        body
        body
        ...
      )

      (progn
        body
        body
        ...
      )

      (if cond then-body
          else-body)

      (format T "This is ~S and ~S~%" expr expr)

      (do
        ((iterator init increment)
         ...
        )
        (end-cond
         end-body
         ...
         ret-val)
        body
        ...
      )

      (zerop number)

      (consp expr)

      (numberp expr)

      (cond
        (cond expr)
        ...
      )

      (let
        ((var value)
         ...
        )
        body
        ...
      )

      (eql expr expr)