diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-16 04:04:50 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-16 04:04:50 +0000 |
| commit | ab3d4bb2ac8a986f4d36dfad770815fda26a01bd (patch) | |
| tree | 73342008910ab527169c2c5f29c689e326552147 /lisp/emacs-lisp/cl-compat.el | |
| parent | ce2bbf6a2fb43d0030809de7c540f772b11bf096 (diff) | |
| download | emacs-ab3d4bb2ac8a986f4d36dfad770815fda26a01bd.tar.gz emacs-ab3d4bb2ac8a986f4d36dfad770815fda26a01bd.tar.bz2 emacs-ab3d4bb2ac8a986f4d36dfad770815fda26a01bd.zip | |
(pair-with-newsyms): Use make-symbol.
Diffstat (limited to 'lisp/emacs-lisp/cl-compat.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-compat.el | 6 |
1 files 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 <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 |