From 2b52aaa01165d7dee9b165d687a7ae919cf075cf Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 17 Aug 2007 14:02:12 +0000 Subject: [PATCH] Generate more informative gensyms. --- code/interr.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/interr.lisp b/code/interr.lisp index 338911581..02a014abd 100644 --- a/code/interr.lisp +++ b/code/interr.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.46 2006/11/08 22:09:56 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.47 2007/08/17 14:02:12 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -37,9 +37,9 @@ (defmacro deferr (name args &rest body) (let* ((rest-pos (position '&rest args)) (required (if rest-pos (subseq args 0 rest-pos) args)) - (fp (gensym)) - (sigcontext (gensym)) - (sc-offsets (gensym)) + (fp (gensym "FP-")) + (sigcontext (gensym "SIGCONTEXT-")) + (sc-offsets (gensym "SC-OFFSETS-")) (temp (gensym)) (fn-name (symbolicate name "-HANDLER"))) `(progn -- GitLab