buglist todo 336: getdatabase should handle special forms

This code should not exist. Fix getdatabase to return the right answer.

    ((BOOT-EQUAL name '|Union|) '(|Union| (|:| |a| A) (|:| |b| B)))
    ((BOOT-EQUAL name '|UntaggedUnion|) '(|Union| A B))
    ((BOOT-EQUAL name '|Record|) '(|Record| (|:| |a| A) (|:| |b| B)))
    ((BOOT-EQUAL name '|Mapping|) '(|Mapping| T S))
    ((BOOT-EQUAL name '|Enumeration|) '(|Enumeration| |a| |b|))
    (t (GETDATABASE name 'CONSTRUCTORFORM))))