Commit 886a6a41 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

typos: rename gemsym to gensym

Fixes #11.
parent 0bab4466
......@@ -309,7 +309,7 @@
(doc "FOO11"))
(eval `(defun ,sym () (declare (special *x*)) *x*))
(eval `(define-setf-expander ,sym ()
(let ((g (gemsym)))
(let ((g (gensym)))
(values nil nil (list g) `(locally (declare (special *x*)) (setf *x* ,g))
'(locally (declare (special *x*)) *x*)))))
(multiple-value-prog1
......@@ -325,7 +325,7 @@
(doc "FOO12"))
(eval `(defmacro ,sym () `(locally (declare (special *x*)) *x*)))
(eval `(define-setf-expander ,sym ()
(let ((g (gemsym)))
(let ((g (gensym)))
(values nil nil (list g) `(locally (declare (special *x*)) (setf *x* ,g))
'(locally (declare (special *x*)) *x*)))))
(multiple-value-prog1
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment