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

[Miles Bader]

Index: emacs/lisp/emacs-lisp/cl-compat.el
diff -c emacs/lisp/emacs-lisp/cl-compat.el:1.7.8.1 
emacs/lisp/emacs-lisp/cl-compat.el:1.7.8.2
*** emacs/lisp/emacs-lisp/cl-compat.el:1.7.8.1  Tue Oct 14 23:32:20 2003
--- emacs/lisp/emacs-lisp/cl-compat.el  Wed Dec  8 23:31:40 2004
***************
*** 1,6 ****
  ;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility)
  
! ;; Copyright (C) 1993 Free Software Foundation, Inc.
  
  ;; Author: Dave Gillespie <address@hidden>
  ;; Version: 2.02
--- 1,6 ----
  ;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility)
  
! ;; Copyright (C) 1993, 2004  Free Software Foundation, Inc.
  
  ;; Author: Dave Gillespie <address@hidden>
  ;; Version: 2.02
***************
*** 139,145 ****
  ;; Internal routines.
  
  (defun pair-with-newsyms (oldforms)
!   (let ((newsyms (mapcar (function (lambda (x) (gensym))) oldforms)))
      (Values (mapcar* 'list newsyms oldforms) newsyms)))
  
  (defun zip-lists (evens odds)
--- 139,145 ----
  ;; Internal routines.
  
  (defun pair-with-newsyms (oldforms)
!   (let ((newsyms (mapcar (lambda (x) (make-symbol "--cl-var--")) oldforms)))
      (Values (mapcar* 'list newsyms oldforms) newsyms)))
  
  (defun zip-lists (evens odds)
***************
*** 185,189 ****
  
  (provide 'cl-compat)
  
! ;;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163
  ;;; cl-compat.el ends here
--- 185,189 ----
  
  (provide 'cl-compat)
  
! ;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163
  ;;; cl-compat.el ends here