procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(pair-with-newsyms): Use make-symbol.

Browse source
This commit is contained in:
Stefan Monnier 2004-11-16 04:04:50 +00:00
parent ce2bbf6a2f
commit ab3d4bb2ac
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/cl-compat.el
View file

@ -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