Moving to beginning and end of a list

[Nordlöw]

I have found these two functions very useful especially when do lisp
hacking and designing clever macros:

(defun move-beginning-of-list ()
  "Move to beginning of list, before first element."
  (interactive)
  (while (ignore-errors (backward-sexp) t)))
(global-set-key [(meta shift ?a)] 'move-beginning-of-list)

(defun move-end-of-list ()
  "Move to end of list, after first element."
  (interactive)
  (while (ignore-errors (forward-sexp) t)))
(global-set-key [(meta shift ?e)] 'move-end-of-list)

Does Emacs contain something similar by default.

/Nordlöw