Using GENTEMP instead of our hand-made MAKE-HANDLER-NAME.

chaitanyagupta · May 31, 2009 · 9aa5b8f · 9aa5b8f
1 parent c005918
commit 9aa5b8f
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/src/handlers.lisp b/src/handlers.lisp
@@ -26,11 +26,7 @@
 (defun find-class-handlers (class)
   (remove class *handlers* :key #'handler-class :test (complement #'eql)))
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defun make-handler-name ()
-    (intern (format nil "HANDLE-~A" (incf *gensym-counter*)) :chronicity)))
-
-(defmacro define-handler ((class &optional (name (make-handler-name)))
+(defmacro define-handler ((class &optional (name (gentemp "HANDLE-" :chronicity)))
                           lambda-list patterns
                           &body body)
   `(progn