[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el |
Date: |
Fri, 26 Nov 2004 19:25:41 -0500 |
Index: emacs/lisp/emacs-lisp/cl-macs.el
diff -c emacs/lisp/emacs-lisp/cl-macs.el:1.46
emacs/lisp/emacs-lisp/cl-macs.el:1.47
*** emacs/lisp/emacs-lisp/cl-macs.el:1.46 Tue Nov 16 04:05:29 2004
--- emacs/lisp/emacs-lisp/cl-macs.el Sat Nov 27 00:18:14 2004
***************
*** 715,721 ****
(let ((loop-for-bindings nil) (loop-for-sets nil) (loop-for-steps nil)
(ands nil))
(while
! (let ((var (or (pop args) (make-symbol "--cl-var--"))))
(setq word (pop args))
(if (eq word 'being) (setq word (pop args)))
(if (memq word '(the each)) (setq word (pop args)))
--- 715,724 ----
(let ((loop-for-bindings nil) (loop-for-sets nil) (loop-for-steps nil)
(ands nil))
(while
! ;; Use `gensym' rather than `make-symbol'. It's important that
! ;; (not (eq (symbol-name var1) (symbol-name var2))) because
! ;; these vars get added to the cl-macro-environment.
! (let ((var (or (pop args) (gensym "--cl-var--"))))
(setq word (pop args))
(if (eq word 'being) (setq word (pop args)))
(if (memq word '(the each)) (setq word (pop args)))
***************
*** 1314,1320 ****
\(fn ((FUNC ARGLIST BODY...) ...) FORM...)"
(let ((vars nil) (sets nil) (cl-macro-environment cl-macro-environment))
(while bindings
! (let ((var (make-symbol "--cl-var--")))
(push var vars)
(push (list 'function* (cons 'lambda (cdar bindings))) sets)
(push var sets)
--- 1317,1326 ----
\(fn ((FUNC ARGLIST BODY...) ...) FORM...)"
(let ((vars nil) (sets nil) (cl-macro-environment cl-macro-environment))
(while bindings
! ;; Use `gensym' rather than `make-symbol'. It's important that
! ;; (not (eq (symbol-name var1) (symbol-name var2))) because these
! ;; vars get added to the cl-macro-environment.
! (let ((var (gensym "--cl-var--")))
(push var vars)
(push (list 'function* (cons 'lambda (cdar bindings))) sets)
(push var sets)