Function System-Source-Directory

Part of:

package asdf
( system-source-directory < system-name > )