Mercurial > emacs

changeset 58254:e64002f85cf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pair-with-newsyms): Use make-symbol.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 16 Nov 2004 04:04:50 +0000
parents a88bf92c239d
children 65bbc782c81c
files lisp/emacs-lisp/cl-compat.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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