Respect parameter case by default (i.e. make default reader respect readtable-case of the readtable)

[joaotavora]

This is a bug:

CL-USER> (let ((*readtable* (copy-readtable)))
           (setf (readtable-case *readtable*) :invert)
           (mapcar #'read-from-string '("foo" "Foo" "FOO")))
(FOO |Foo| |foo|)
CL-USER> (let ((*readtable* (copy-readtable)))
           (setf (readtable-case *readtable*) :invert)
           (mapcar #'snooze-safe-simple-read::safe-simple-read-from-string
                   '("foo" "Foo" "FOO")))
(FOO FOO FOO)
CL-USER> 

The way to fix this is probably to rewrite snooze-safe-simple-read to take advantage of the normal readtable turning off most of the character functions and preventing interning. This should also simplify a lot of the code.