Reads an asd file and returns the first defsystem declaration with default values
for missing properties. Since we don't want to screw around with evaling
in-package forms, etc. we look for the defsystem using string=.
find-defsystem < pathname > |
find-defsystem < stream > |
find-defsystem < string > |