home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / setf / gensym.el next >
Encoding:
Text File  |  1992-04-22  |  359 b   |  14 lines
  1. ;;; $Header: /home/user3/miles/src/elisp/RCS/gensym.el,v 1.2 1992/04/16 13:43:43 miles Exp $
  2.  
  3. (provide 'gensym)
  4.  
  5. (defvar gensym-counter 0)
  6.  
  7. (defun gensym (&optional pfx)
  8.   (prog1 (make-symbol
  9.       (concat (if pfx
  10.               (if (symbolp pfx) (symbol-name pfx) pfx)
  11.               "G")
  12.           (int-to-string gensym-counter)))
  13.     (setq gensym-counter (1+  gensym-counter))))
  14.