diff options
| author | Stefan Monnier | 2004-11-16 04:04:50 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-11-16 04:04:50 +0000 |
| commit | ab3d4bb2ac8a986f4d36dfad770815fda26a01bd (patch) | |
| tree | 73342008910ab527169c2c5f29c689e326552147 | |
| parent | ce2bbf6a2fb43d0030809de7c540f772b11bf096 (diff) | |
| download | emacs-ab3d4bb2ac8a986f4d36dfad770815fda26a01bd.tar.gz emacs-ab3d4bb2ac8a986f4d36dfad770815fda26a01bd.zip | |
(pair-with-newsyms): Use make-symbol.
| -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 @@ | |||
| 1 | ;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility) | 1 | ;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility) |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993, 2004 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Dave Gillespie <daveg@synaptics.com> | 5 | ;; Author: Dave Gillespie <daveg@synaptics.com> |
| 6 | ;; Version: 2.02 | 6 | ;; Version: 2.02 |
| @@ -139,7 +139,7 @@ | |||
| 139 | ;; Internal routines. | 139 | ;; Internal routines. |
| 140 | 140 | ||
| 141 | (defun pair-with-newsyms (oldforms) | 141 | (defun pair-with-newsyms (oldforms) |
| 142 | (let ((newsyms (mapcar (function (lambda (x) (gensym))) oldforms))) | 142 | (let ((newsyms (mapcar (lambda (x) (make-symbol "--cl-var--")) oldforms))) |
| 143 | (Values (mapcar* 'list newsyms oldforms) newsyms))) | 143 | (Values (mapcar* 'list newsyms oldforms) newsyms))) |
| 144 | 144 | ||
| 145 | (defun zip-lists (evens odds) | 145 | (defun zip-lists (evens odds) |
| @@ -185,5 +185,5 @@ | |||
| 185 | 185 | ||
| 186 | (provide 'cl-compat) | 186 | (provide 'cl-compat) |
| 187 | 187 | ||
| 188 | ;;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163 | 188 | ;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163 |
| 189 | ;;; cl-compat.el ends here | 189 | ;;; cl-compat.el ends here |