diff options
| author | Cyrus Harmon <cyrus@bobobeach.com> | 2017-06-10 08:06:00 -0700 |
|---|---|---|
| committer | Cyrus Harmon <cyrus@bobobeach.com> | 2017-06-12 17:15:53 -0700 |
| commit | 96457654668a01540b1547e778b5aa446513fac7 (patch) | |
| tree | 84aa3c5deb4fd8fd1d67132fc6035f85e0bd0aed /Apps/Scigraph | |
| parent | 6acbd6a2bafad7c2789537e77e3f0cee538f4bc7 (diff) | |
another ignore decl
Diffstat (limited to 'Apps/Scigraph')
| -rw-r--r-- | Apps/Scigraph/scigraph/mouse.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Apps/Scigraph/scigraph/mouse.lisp b/Apps/Scigraph/scigraph/mouse.lisp index a8ca6220..88ea7e64 100644 --- a/Apps/Scigraph/scigraph/mouse.lisp +++ b/Apps/Scigraph/scigraph/mouse.lisp @@ -253,6 +253,7 @@ advised of the possiblity of such damages. (defun select-screen-polygon (stream &optional (cursor :position)) "Select a sequence of points in screen coordinates. Finish by clicking on first point." + (declare (ignore cursor)) (with-output-recording-disabled (stream) (multiple-value-bind (lastx lasty) (device-mouse-point stream) (when lastx |