From 0b6824e576ca91bcfdc71b2614dcdbdda1afc4c2 Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@common-lisp.net>
Date: Wed, 7 Jan 2009 01:52:23 +0100
Subject: [PATCH] Use SHARED-INITIALIZE instead of INITIALIZE-INSTANCE for
 FILE-DEVICEs.

---
 io.streams/zeta/file-unix.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/io.streams/zeta/file-unix.lisp b/io.streams/zeta/file-unix.lisp
index daec2de..886684f 100644
--- a/io.streams/zeta/file-unix.lisp
+++ b/io.streams/zeta/file-unix.lisp
@@ -46,9 +46,10 @@
 ;;; Constructors
 ;;;-------------------------------------------------------------------------
 
-(defmethod initialize-instance :after
-    ((device file-device) &key handle filename flags
+(defmethod shared-initialize :after
+    ((device file-device) slot-names &key handle filename flags
      (mode *default-open-mode*) delete-if-exists)
+  (declare (ignore slot-names))
   (setf (filename-of device) (copy-seq filename))
   (with-device (device)
     (device-open device :handle handle :filename filename :flags flags
-- 
2.11.4.GIT