キーボードマクロ emacs [失敗]

キーボードマクロ保存の自動化をしようと

;; ------------------------------------------------------------------------
;; @ キーボードマクロをコマンド
(defvar kmacro-save-file "~/.emacs.d/init.el" "~/.kmacro")
(defun kmacro-save (symbol)
  (interactive "name for last kbd macro: ")
  (name-last-kbd-macro symbol)
  (with-current-buffer (find-file-noselect kmacro-save-file)
    (goto-char (point-max))
    (insert-kbd-macro symbol)
    (basic-save-buffer)))

と init.el に記載したものの、M-x kmacro-save で名前を入力すると

Please enter a number.

といわれてしまい、番号を入力すると

name-last-kbd-macro: Wrong type argument: symbolp, 1

といわれてしまい動かない。