From 3c89f6cdcbe67e042dc8767119546acf0e58d195 Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@common-lisp.net>
Date: Thu, 22 Jan 2009 02:10:33 +0100
Subject: [PATCH] Remove old IGNORE declaration.

---
 io.streams/zeta/file-unix.lisp | 1 -
 1 file changed, 1 deletion(-)

diff --git a/io.streams/zeta/file-unix.lisp b/io.streams/zeta/file-unix.lisp
index c532b16..2275e32 100644
--- a/io.streams/zeta/file-unix.lisp
+++ b/io.streams/zeta/file-unix.lisp
@@ -42,7 +42,6 @@
 (defmethod shared-initialize :after
     ((device file-device) slot-names &rest initargs
      &key handle filename flags (mode *default-open-mode*) delete-if-exists)
-  (declare (ignore slot-names))
   ;; FIXME: use new pathnames
   (check-type filename string)
   (setf (file-device-filename device) (copy-seq filename))
-- 
2.11.4.GIT