Index: /branches/ide-1.0/ccl/examples/cocoa-doc.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-doc.lisp	(revision 6721)
+++ /branches/ide-1.0/ccl/examples/cocoa-doc.lisp	(revision 6722)
@@ -50,5 +50,5 @@
      (range :<NSR>ange)
      string)
-  (declare (ignore textview range string))
+  (declare (ignorable textview range string))
   nil)
 
@@ -76,5 +76,5 @@
 (defun hyperspec-root-url ()
   (or *hyperspec-root-url*
-      (set *hyperspec-root-url* (prompt-for-hypespec-root-url))))
+      (set *hyperspec-root-url* (prompt-for-hyperspec-root-url))))