(read-set! keywords 'prefix) (display (keyword? :test))(newline) (display (keyword? #:test))(newline)