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@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@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))
-
emarsden