1 |
;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility) |
;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility) |
2 |
|
|
3 |
;; Copyright (C) 1993 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Dave Gillespie <daveg@synaptics.com> |
;; Author: Dave Gillespie <daveg@synaptics.com> |
6 |
;; Version: 2.02 |
;; Version: 2.02 |
139 |
;; Internal routines. |
;; Internal routines. |
140 |
|
|
141 |
(defun pair-with-newsyms (oldforms) |
(defun pair-with-newsyms (oldforms) |
142 |
(let ((newsyms (mapcar (function (lambda (x) (gensym))) oldforms))) |
(let ((newsyms (mapcar (lambda (x) (make-symbol "--cl-var--")) oldforms))) |
143 |
(Values (mapcar* 'list newsyms oldforms) newsyms))) |
(Values (mapcar* 'list newsyms oldforms) newsyms))) |
144 |
|
|
145 |
(defun zip-lists (evens odds) |
(defun zip-lists (evens odds) |
185 |
|
|
186 |
(provide 'cl-compat) |
(provide 'cl-compat) |
187 |
|
|
188 |
;;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163 |
;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163 |
189 |
;;; cl-compat.el ends here |
;;; cl-compat.el ends here |