X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fobjects.lisp;h=d17f30225b390d3cc4ce63d5e7ccc501eefc9486;hb=cff8a2497b3f111a43d819476b55bfad2b447532;hp=9f61624d52ad875d6746626342421910405f6f63;hpb=f2a0eb003af406415567c9f8545455ede786db87;p=clsql.git

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 9f61624..d17f302 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -704,13 +704,14 @@ DATABASE-NULL-VALUE on the type of the slot."))
 (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)