X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=3cddab43f5904ec4a489a441072a99400f9cfff7;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=fdcac0cefbae6933ea4b107fd53a87aa973d4854;hpb=3b46c751d4b14431841b2a2922e83394833047bb;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index fdcac0c..3cddab4 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -475,7 +475,7 @@
 (sb!xc:define-setf-expander get (symbol prop &optional default)
   (let ((symbol-temp (gensym))
         (prop-temp (gensym))
-        (def-temp (gensym))
+        (def-temp (if default (gensym)))
         (newval (gensym)))
     (values `(,symbol-temp ,prop-temp ,@(if default `(,def-temp)))
             `(,symbol ,prop ,@(if default `(,default)))
@@ -487,7 +487,7 @@
 (sb!xc:define-setf-expander gethash (key hashtable &optional default)
   (let ((key-temp (gensym))
         (hashtable-temp (gensym))
-        (default-temp (gensym))
+        (default-temp (if default (gensym)))
         (new-value-temp (gensym)))
     (values
      `(,key-temp ,hashtable-temp ,@(if default `(,default-temp)))