From ab3d4bb2ac8a986f4d36dfad770815fda26a01bd Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 16 Nov 2004 04:04:50 +0000 Subject: [PATCH] (pair-with-newsyms): Use make-symbol. --- lisp/emacs-lisp/cl-compat.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/cl-compat.el b/lisp/emacs-lisp/cl-compat.el index c3fbbe0993b..baef6cb069d 100644 --- a/lisp/emacs-lisp/cl-compat.el +++ b/lisp/emacs-lisp/cl-compat.el @@ -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 ;; 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 -- 2.39.2