[Phemlock-cvs] CVS update: phemlock/src/clim/foo.lisp

[Aleksandar Bakic]

Update of /project/phemlock/cvsroot/phemlock/src/clim
In directory common-lisp.net:/tmp/cvs-serv4954/src/clim

Modified Files:
	foo.lisp 
Log Message:
Changes to get rid of warnings and notes. As a side-effect, more code
has been commented out. There should be no more warnings nor notes
with CMUCL, and only two style warnings with SBCL. Not tested with
other implementations yet. TODO: spread key bindings to different
files.

Date: Sat Sep  4 01:06:50 2004
Author: abakic

Index: phemlock/src/clim/foo.lisp
diff -u phemlock/src/clim/foo.lisp:1.2 phemlock/src/clim/foo.lisp:1.3
--- phemlock/src/clim/foo.lisp:1.2	Fri Jul  9 17:16:14 2004
+++ phemlock/src/clim/foo.lisp	Sat Sep  4 01:06:50 2004
@@ -108,6 +108,7 @@
            :documentation "Extended input stream we read from.")) )
 
 (defmethod get-key-event ((stream clim-editor-input) &optional ignore-abort-attempts-p)
+  (declare (ignorable ignore-abort-attempts-p))
   (or (hi::dq-event stream)
       ;;
       (progn                            ;###
@@ -173,6 +174,10 @@
                                          (command-unparser 'command-line-command-unparser)
                                          (partial-command-parser 'command-line-read-remaining-arguments-for-partial-command)
                                          (prompt "Command: "))
+  (declare (ignorable command-parser
+		      command-unparser
+		      partial-command-parser
+		      prompt))
   (let ((clim:*application-frame* frame))
     (setf *sheet* (clim:frame-standard-output frame))
     (let ((*window-list* *window-list*)
@@ -420,7 +425,7 @@
          (buffer *current-buffer*)
          (start (buffer-start-mark buffer))
          (first (cons dummy-line the-sentinel)) )
-
+    (declare (ignorable start first))
     (setf (slot-value hunk 'ts) (clim:make-text-style :fixed :roman :normal))
     #+NIL
     (setf (slot-value hunk 'ts) (clim:make-device-font-text-style
@@ -536,6 +541,7 @@
          (w (slot-value hunk 'cw))
          (xo 5)
          (yo 5))
+    (declare (ignorable stream))
     ;; (print dl *trace-output*)(finish-output *trace-output*)
     (unless (zerop (dis-line-flags dl))
       (setf (hi::dis-line-tick dl) (incf *tick*)))