(write-line "@end menu" out)
(terpri out)
(dolist (texi-file texi-files)
- (format out "@include ~A~%"
+ (format out "@page~%@include ~A~%"
(namestring (make-pathname
:directory (list* :relative :up :up
(last
:name (pathname-name texi-file)
:type (pathname-type texi-file)))))))
-(sb-ext:quit)
\ No newline at end of file
+(sb-ext:quit)