[Sbcl-devel] More host's gensyms

[Manuel G. <ma...@le...>]

Hi,

Back to my quest for "less differences in fasl output between host",
I've come up with the following patch that reduces differences from 150
files to 97 between SBCL and CLISP and from 140 files to 115 between
SBCL and ECL.

Maybe those "sb-xc:gensym" are starting to be too invasive and we should
have them "shadowed" instead.

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index c27d31c9b..12043c4ee 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -166,7 +166,7 @@
   (declare (type functional fun))
   (etypecase fun
     (clambda
-     (let* ((n-supplied (gensym))
+     (let* ((n-supplied (sb-xc:gensym))
             (nargs (length (lambda-vars fun)))
             (temps (make-gensym-list nargs)))
        `(lambda (,n-supplied ,@temps)
@@ -179,7 +179,7 @@
      (let* ((min (optional-dispatch-min-args fun))
             (max (optional-dispatch-max-args fun))
             (more (optional-dispatch-more-entry fun))
-            (n-supplied (gensym))
+            (n-supplied (sb-xc:gensym))
             (temps (make-gensym-list max))
             (main (optional-dispatch-main-entry fun))
             (optional-vars (nthcdr min (lambda-vars main)))

-- 
Manuel Giraud