That looks sort of like the old subvector -- check (*s7* 'version); if s7 is up-to-date, maybe try (procedure-source subvector) -- for a built-in function it will return ().