X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fvop.lisp;h=9f7ace36579da8936a34ecc1df2f74779dd3b3fa;hb=dcd86042bba514f5dfc39246de9cdbb030648569;hp=fbd00564cb4e3a7d68e732b102461bc7be05cd6d;hpb=21cc22ee56f70684b2a90734c1ad243f323af4b8;p=sbcl.git

diff --git a/src/compiler/vop.lisp b/src/compiler/vop.lisp
index fbd0056..9f7ace3 100644
--- a/src/compiler/vop.lisp
+++ b/src/compiler/vop.lisp
@@ -430,7 +430,7 @@
   ;;
   ;;    :STRANGE
   ;;        A segment of a "strange loop" in a non-reducible flow graph.
-  (kind (required-argument) :type (member :outer :natural :strange))
+  (kind (missing-arg) :type (member :outer :natural :strange))
   ;; The first and last blocks in the loop.  There may be more than one tail,
   ;; since there may be multiple back branches to the same head.
   (head nil :type (or cblock null))
@@ -446,7 +446,9 @@
   (depth 0 :type fixnum)
   ;; The head of the list of blocks directly within this loop.  We must recurse
   ;; on INFERIORS to find all the blocks.
-  (blocks nil :type (or null cblock)))
+  (blocks nil :type (or null cblock))
+  ;; Backend saves the first emitted block of each loop here.
+  (info nil))
 
 (defprinter (cloop :conc-name loop-)
   kind