[pg-cvs] CVS pg

[emarsden]

Update of /project/pg/cvsroot/pg
In directory clnet:/tmp/cvs-serv12304

Modified Files:
	sysdep.lisp 
Log Message:
Make comparison in IMPLEMENTATION-NAME-FOR-ENCODING case-insensitive
(from ya007 at yandex.ru).


--- /project/pg/cvsroot/pg/sysdep.lisp	2006/01/27 18:03:39	1.13
+++ /project/pg/cvsroot/pg/sysdep.lisp	2006/09/18 21:33:10	1.14
@@ -1,7 +1,7 @@
 ;;; sysdep.lisp -- system-dependent parts of pg-dot-lisp
 ;;;
 ;;; Author: Eric Marsden <eric.marsden at free.fr>
-;;; Time-stamp: <2006-01-27 emarsden>
+;;; Time-stamp: <2006-09-18 emarsden>
 ;;
 ;;
 
@@ -327,22 +327,22 @@
 (defun implementation-name-for-encoding (encoding)
   (%sysdep "client encoding to external format name"
      #+(and clisp unicode)
-     (cond ((string= encoding "SQL_ASCII") charset:ascii)
-           ((string= encoding "LATIN1") charset:iso-8859-1)
-           ((string= encoding "LATIN9") charset:iso-8859-9)
-           ((string= encoding "UTF8") charset:utf-8)
+     (cond ((string-equal encoding "SQL_ASCII") charset:ascii)
+           ((string-equal encoding "LATIN1") charset:iso-8859-1)
+           ((string-equal encoding "LATIN9") charset:iso-8859-9)
+           ((string-equal encoding "UTF8") charset:utf-8)
            (t (error "unknown encoding ~A" encoding)))
      #+(and allegro ics)
-     (cond ((string= encoding "SQL_ASCII") :ascii)
-           ((string= encoding "LATIN1") :latin1)
-           ((string= encoding "LATIN9") :latin9)
-           ((string= encoding "UTF8") :utf8)
+     (cond ((string-equal encoding "SQL_ASCII") :ascii)
+           ((string-equal encoding "LATIN1") :latin1)
+           ((string-equal encoding "LATIN9") :latin9)
+           ((string-equal encoding "UTF8") :utf8)
            (t (error "unknown encoding ~A" encoding)))
      #+(and sbcl sb-unicode)
-     (cond ((string= encoding "SQL_ASCII") :ascii)
-           ((string= encoding  "LATIN1") :latin1)
-           ((string= encoding "LATIN9") :latin9)
-           ((string= encoding "UTF8") :utf8)
+     (cond ((string-equal encoding "SQL_ASCII") :ascii)
+           ((string-equal encoding  "LATIN1") :latin1)
+           ((string-equal encoding "LATIN9") :latin9)
+           ((string-equal encoding "UTF8") :utf8)
            (t (error "unknown encoding ~A" encoding)))
      #+(or cmu gcl ecl abcl openmcl)
      nil))