[Openmcl-cvs-notifications] r11217 - /trunk/source/level-0/l0-io.lisp

[rme at clozure.com]

Author: rme
Date: Thu Oct 23 23:00:50 2008
New Revision: 11217

Log:
PATHNAME-ENCODING-NAME: add ignorable declaration to squelch compiler
warning when targeting Darwin and Windows.

Modified:
    trunk/source/level-0/l0-io.lisp

Modified: trunk/source/level-0/l0-io.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-0/l0-io.lisp (original)
+++ trunk/source/level-0/l0-io.lisp Thu Oct 23 23:00:50 2008
@@ -195,6 +195,7 @@
 =

 =

 (let* ((pathname-encoding-name ()))
+  (declare (ignorable pathname-encoding-name))
   (defun pathname-encoding-name ()
     #+darwin-target :utf-8
     #+windows-target :utf-16le