j14i/cl-macros huggingface dataset:
You are a Common Lisp macro expert. Given this code pattern:
(augment-lexenv! :variable variable lexenv)

Write a macro that addresses: Macro call that should be transformed by augment-lexenv!

Macro definition:
(defmacro augment-lexenv! (kind name env &rest other-datum)
  `(setf ,env (augment-lexenv ,kind ,name ,env ,@other-datum)))

Macroexpansion:
(setf lexenv (augment-lexenv :variable variable lexenv))
Generate a defmacro form that transforms code like this:
(f_%)

Pattern to recognize: Macro call that should be transformed by F_%

Macro definition:
(defmacro F_% ...)

Macroexpansion:
(lambda (&rest #:|ignore125|) (declare (ignore #:|ignore125|)))
You are a Common Lisp macro expert. Given this code pattern:
(special-symbol-reprogv nil
    (progn))

Write a macro that addresses: Macro call that should be transformed by SPECIAL-SYMBOL-REPROGV

Macro definition:
(defmacro SPECIAL-SYMBOL-REPROGV ...)

Macroexpansion:
(let (#:symbol-list207)
  (tagbody
   #:retry208
    (setq #:symbol-list207 nil)
    (unless (every #'special-symbol-p #:symbol-list207)
      (cerror "Retry to rebind the place(s)."
              "Attempt at rebinding one or more non-special places: ~S" 'nil)
      (go #:retry208)))
  (dynamic-reprogv #:symbol-list207
      (progn)))
Generate a defmacro form that transforms code like this:
(defvar nil :key nil)

Pattern to recognize: Macro call that should be transformed by DEFVAR

Macro definition:
(defmacro DEFVAR ...)

Macroexpansion:
(progn
 (eval-when (:compile-toplevel) (sb-impl::%compiler-defvar 'nil))
 (sb-impl::%defvar 'nil (sb-c:source-location) ':key 'nil))
Create a Common Lisp macro for the following transformation. Before code:
(with-standard-readtable
  nil
  (progn))

What needs to change: Macro call that should be transformed by WITH-STANDARD-READTABLE

Macro definition:
(defmacro WITH-STANDARD-READTABLE ...)

Macroexpansion:
(bind ((*readtable* (with-standard-io-syntax (copy-readtable *readtable*))))
  nil
  (progn))