X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=0de5f034180ae19413cfe211989393718014c978;hb=3d9d3088982414ca5617caf62bd37b4fecac29b6;hp=f32e88dd9304e10533d1220e858b32ad8d2be1d0;hpb=3bb2fb5b9ecdeebecaded4ac6e5af0f653be8867;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index f32e88d..0de5f03 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -3290,7 +3290,12 @@ initially undefined function references:~2%")
 	  (dolist (obj structs)
 	    (out-to
 	     (string-downcase (string (sb!vm:primitive-object-name obj)))
-	     (write-primitive-object obj))))
+	     (write-primitive-object obj)))
+	  (out-to "primitive-objects"
+		  (dolist (obj structs)
+		    (format t "~&#include \"~A.h\"~%"
+			    (string-downcase 
+			     (string (sb!vm:primitive-object-name obj)))))))
 	(out-to "static-symbols" (write-static-symbols))
 	
       (when core-file-name