Index: /branches/gz-working/cocoa-ide/hemlock/src/filecoms.lisp
===================================================================
--- /branches/gz-working/cocoa-ide/hemlock/src/filecoms.lisp	(revision 8448)
+++ /branches/gz-working/cocoa-ide/hemlock/src/filecoms.lisp	(revision 8449)
@@ -364,4 +364,5 @@
    otherwise make a new buffer with the same name as the file and
    read the file into it."
+  (declare (ignore p))
   (hi::open-document))