Skip to content
Snippets Groups Projects
Commit 886a6a41 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

typos: rename gemsym to gensym

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