[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el [lexbind]

[Miles Bader]

Index: emacs/lisp/emacs-lisp/cl-macs.el
diff -c emacs/lisp/emacs-lisp/cl-macs.el:1.34.4.5 
emacs/lisp/emacs-lisp/cl-macs.el:1.34.4.6
*** emacs/lisp/emacs-lisp/cl-macs.el:1.34.4.5   Wed Dec  8 23:31:40 2004
--- emacs/lisp/emacs-lisp/cl-macs.el    Wed Dec  8 23:36:31 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)