Diff of /src/compiler/ir1tran.lisp [f2126a] .. [f3f677] Maximize Restore

  Switch to side-by-side view

--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -288,7 +288,10 @@
 		    #+sb-xc-host structure!object
 		    #-sb-xc-host instance
 		    (when (emit-make-load-form value)
-		      (dotimes (i (%instance-length value))
+		      (dotimes (i (- (%instance-length value)
+				     #+sb-xc-host 0
+				     #-sb-xc-host (layout-n-untagged-slots
+						   (%instance-ref value 0))))
 			(grovel (%instance-ref value i)))))
 		   (t
 		    (compiler-error