(defmethod read-sql-value (val (type (eql 'keyword)) database)
(declare (ignore database))
(when (< 0 (length val))
- (intern (string-upcase val) "KEYWORD")))
+ (intern (symbol-name-default-case val)
+ (find-package '#:keyword))))
(defmethod read-sql-value (val (type (eql 'symbol)) database)
(declare (ignore database))
(when (< 0 (length val))
- (unless (string= val "NIL")
- (intern (string-upcase val)
+ (unless (string= val (clsql-base-sys:symbol-name-default-case "NIL"))
+ (intern (clsql-base-sys:symbol-name-default-case val)
(symbol-package *update-context*)))))
(defmethod read-sql-value (val (type (eql 'integer)) database)