[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv26494

Modified Files:
	symbols.lisp 
Log Message:
Add gentemp.


--- /project/movitz/cvsroot/movitz/losp/muerte/symbols.lisp	2007/02/22 22:11:21	1.28
+++ /project/movitz/cvsroot/movitz/losp/muerte/symbols.lisp	2007/04/07 08:02:35	1.29
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Sep  4 23:55:41 2001
 ;;;;                
-;;;; $Id: symbols.lisp,v 1.28 2007/02/22 22:11:21 ffjeld Exp $
+;;;; $Id: symbols.lisp,v 1.29 2007/04/07 08:02:35 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -246,6 +246,14 @@
      (make-symbol (format nil "~A~D" x (prog1 *gensym-counter*
 					 (incf *gensym-counter*)))))))
 
+(defvar *gentemp-counter* 0)
+
+(defun gentemp (&optional (prefix "T") (package *package*))
+  (intern (do ((name #0=(format nil "~A~D" prefix *gentemp-counter*) #0#))
+              ((not (find-symbol name package)) name)
+            (incf *gentemp-counter*))
+          package))
+
 (defun get (symbol indicator &optional default)
   (getf (symbol-plist symbol) indicator default))