diff options
author | Cyrus Harmon <cyrus@bobobeach.com> | 2017-06-10 07:08:06 -0700 |
---|---|---|
committer | Cyrus Harmon <cyrus@bobobeach.com> | 2017-06-12 17:15:53 -0700 |
commit | 9a9518231e24ded9cee39a6b9e5c1b4c94e671d1 (patch) | |
tree | 7c26b42de88e2a6facd2ac3c5dbb64d0fbeb7cbb /Apps/Scigraph | |
parent | a688791e2059d767baa5380c33ae801c349abf53 (diff) |
remove (old-style) inline proclamations for drawing functions
Diffstat (limited to 'Apps/Scigraph')
-rw-r--r-- | Apps/Scigraph/scigraph/draw.lisp | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/Apps/Scigraph/scigraph/draw.lisp b/Apps/Scigraph/scigraph/draw.lisp index 2dcc3b37..ae61a619 100644 --- a/Apps/Scigraph/scigraph/draw.lisp +++ b/Apps/Scigraph/scigraph/draw.lisp @@ -125,11 +125,6 @@ and should be avoided in the future. JPM 1-29-91.] (with-drawing-options (,stream :clipping-region *clim-clip-rectangle*) ,@body))) -(eval-when (compile load eval) - (proclaim '(inline device-draw-point)) - (proclaim '(inline POINT-IN-RECTANGLE-P)) - (proclaim '(inline POINT-IN-CLIP-RECTANGLE-P))) - (defun POINT-IN-RECTANGLE-P (x y left right bottom top) (declare (fixnum x y left right bottom top)) (and (< left x right) (< bottom y top))) |