Function File-Package

Part of:

package metabang.utilities
( file-package < pathname > )

Tries to determine the package of a file by reading it one form at a time and looking for in-package forms. Though it does handle the case of a file with multiple in-package and defpackages forms -- in which case it returns the last in-package encountered -- it not handle the general case of files with multiple in-package forms.