# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1100577890 0
# Node ID e64002f85cf66953604a0f07dd5c94af0cea3914
# Parent  a88bf92c239d35f0804444b70c92c326f65e9f3c
(pair-with-newsyms): Use make-symbol.

diff -r a88bf92c239d -r e64002f85cf6 lisp/emacs-lisp/cl-compat.el
--- a/lisp/emacs-lisp/cl-compat.el	Tue Nov 16 02:56:49 2004 +0000
+++ b/lisp/emacs-lisp/cl-compat.el	Tue Nov 16 04:04:50 2004 +0000
@@ -1,6 +1,6 @@
 ;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility)
 
-;; Copyright (C) 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 2004  Free Software Foundation, Inc.
 
 ;; Author: Dave Gillespie <daveg@synaptics.com>
 ;; Version: 2.02
@@ -139,7 +139,7 @@
 ;; Internal routines.
 
 (defun pair-with-newsyms (oldforms)
-  (let ((newsyms (mapcar (function (lambda (x) (gensym))) oldforms)))
+  (let ((newsyms (mapcar (lambda (x) (make-symbol "--cl-var--")) oldforms)))
     (Values (mapcar* 'list newsyms oldforms) newsyms)))
 
 (defun zip-lists (evens odds)
@@ -185,5 +185,5 @@
 
 (provide 'cl-compat)
 
-;;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163
+;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163
 ;;; cl-compat.el ends here