[Mit-cadr-cvs] r304 - trunk/lisp/sys

[rswindells at common-lisp.net]

Author: rswindells
Date: Sat May  5 10:10:59 2012
New Revision: 304

Log:
Add missing call to FASD-START-FILE in MA-WRITE-MCLAP-PROPS, fixes
build of UCINIT.QFASL.

Modified:
   trunk/lisp/sys/mlap.lisp

Modified: trunk/lisp/sys/mlap.lisp
==============================================================================
--- trunk/lisp/sys/mlap.lisp	Sat May  5 10:07:28 2012	(r303)
+++ trunk/lisp/sys/mlap.lisp	Sat May  5 10:10:59 2012	(r304)
@@ -529,6 +529,7 @@
 						    "QFASL"))
 	 (FASD-INITIALIZE)
 	 (WITH-OPEN-FILE (FASD-STREAM FILENAME '(:WRITE :FIXNUM))
+	   (FASD-START-FILE)
 	   (DOLIST (FCTN LIST-OF-FCTNS)
 	     (FASD-FORM `(DEFPROP ,FCTN ,(GET FCTN 'MCLAP) MCLAP)))
 	   (IF EXP (FASD-FORM EXP))