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*)))