/[emacs]/emacs/lisp/emacs-lisp/cl-compat.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-compat.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7.8.1 by miles, Tue Oct 14 23:32:20 2003 UTC revision 1.7.8.2 by miles, Wed Dec 8 23:31:40 2004 UTC
# Line 1  Line 1 
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
# Line 139  Line 139 
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)
# Line 185  Line 185 
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

Legend:
Removed from v.1.7.8.1  
changed lines
  Added in v.1.7.8.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26