X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=edd8074cc788600cedaac8cdf76ab496b012ca71;hb=4ec0d70e08ea4b512d45ddbd6c82e8f6a91a914f;hp=db3ca48423d846ce8de1fcbbbb5396f7aba079ee;hpb=9184392783512f76eb971b7e316c875e2a1eb94c;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index db3ca48..edd8074 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -2778,7 +2778,8 @@ core and return a descriptor to it."
               (maybe-record-with-translated-name '("-SIZE") 6)
               (maybe-record-with-translated-name '("-START" "-END" "-PAGE-BYTES") 7 :large t)
               (maybe-record-with-translated-name '("-CORE-ENTRY-TYPE-CODE") 8)
-              (maybe-record-with-translated-name '("-CORE-SPACE-ID") 9))))))
+              (maybe-record-with-translated-name '("-CORE-SPACE-ID") 9)
+              (maybe-record-with-translated-name '("-GENERATION+") 10))))))
     ;; KLUDGE: these constants are sort of important, but there's no
     ;; pleasing way to inform the code above about them.  So we fake
     ;; it for now.  nikodemus on #lisp (2004-08-09) suggested simply