X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftypedefs.lisp;h=d9403c205fce4a09f94e1e58ac2f957df1118758;hb=9837343101c3da7b3a8f94609ec116ec5025436a;hp=340d3ddece87e739221c8ccf2552a098d0936433;hpb=a987d443ea0935bfdfa2eb8547218fef9730a14f;p=sbcl.git

diff --git a/src/code/typedefs.lisp b/src/code/typedefs.lisp
index 340d3dd..d9403c2 100644
--- a/src/code/typedefs.lisp
+++ b/src/code/typedefs.lisp
@@ -42,7 +42,7 @@
   (multiple-value-bind (whole wholeless-arglist)
       (if (eq '&whole (car arglist))
           (values (cadr arglist) (cddr arglist))
-          (values (gensym) arglist))
+          (values (sb!xc:gensym) arglist))
     (multiple-value-bind (forms decls)
         (parse-body body :doc-string-allowed nil)
       `(progn