From: Andreas E. <ar...@us...> - 2009-03-13 14:49:38
|
Update of /cvsroot/maxima/maxima/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv6060/src Modified Files: intl.lisp Log Message: declare encoding as ingnorable in octets-to-string and string-to-octets, as long as there are lisps that do not use it. Index: intl.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/intl.lisp,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- intl.lisp 1 Mar 2009 22:43:30 -0000 1.7 +++ intl.lisp 13 Mar 2009 14:49:17 -0000 1.8 @@ -115,6 +115,7 @@ (load-domain domain locale locale-dir)))) (defun string-to-octets (string encoding) + (declare (ignorable encoding)) #+(and CMU Unicode) (ext:string-to-octets string :external-format encoding) ;;@@ add other implementations @@ -123,6 +124,7 @@ #'char-code string)) (defun octets-to-string (octets encoding) + (declare (ignorable encoding)) #+(and CMU Unicode) (ext:octets-to-string octets :external-format encoding) ;;@@ add other implementations |