X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsrctran.lisp;h=c808988499c711bd19b13aba32bafd4761a24a64;hb=8c773ad69a6dd73e3588f5a4ff89e1e26f05e3a0;hp=b09518a5f2ef1b9fc1699a19ed264392dbc5bbdb;hpb=151fa3c5d85e3fd4621f65ee9676822a73ffbb57;p=sbcl.git

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index b09518a..c808988 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -242,7 +242,7 @@
    (t (values nil t))))
 (define-source-transform get (&rest args)
   (case (length args)
-   (2 `(sb!impl::get2 ,@args))
+   (2 `(sb!impl::get3 ,@args nil))
    (3 `(sb!impl::get3 ,@args))
    (t (values nil t))))