don't export ellipse math symbols at all

* just grab them from climi:: as needed.
McCLIM · Oct 15, 2018 · b03bf6a · b03bf6a
1 parent 467b99e
commit b03bf6a
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 15 deletions.
diff --git a/Backends/PDF/package.lisp b/Backends/PDF/package.lisp
@@ -27,8 +27,7 @@
                 #:map-repeated-sequence
                 #:with-transformed-position
                 #:get-environment-variable
-                #:port-text-style-mappings)
-  (:import-from #:clim-backend
+                #:port-text-style-mappings
                 ;; ellipses
                 #:reparameterize-ellipse
                 #:ellipse-cubic-bezier-points

diff --git a/Examples/drawing-tests.lisp b/Examples/drawing-tests.lisp
@@ -831,7 +831,7 @@ min-y and max-y are (extremum points) are."
          args)
   (when draw-ellipse-parameters
     (multiple-value-bind (a b theta)
-        (climb:reparameterize-ellipse radius-1-dx radius-1-dy radius-2-dx radius-2-dy)
+        (climi::reparameterize-ellipse radius-1-dx radius-1-dy radius-2-dx radius-2-dy)
       (draw-line* sheet center-x center-y
                   (+ center-x (* a (cos theta)))
                   (+ center-y (* a (sin theta)))

diff --git a/package.lisp b/package.lisp
@@ -2040,18 +2040,7 @@
    ;; CLIM-EXTENSIONS
    #:medium-miter-limit
    #:medium-draw-glyph
-   #:medium-draw-circle*
-   ;; ellipses
-   #:reparameterize-ellipse
-   #:ellipse-point
-   #:ellipse-point*
-   #:ellipse-derivative
-   #:ellipse-cubic-bezier-control-points
-   #:ellipse-cubic-bezier-control-points*
-   #:ellipse-cubic-bezier-points
-   #:ellipse-cubic-bezier-points*
-   #:transformation-angle
-   #:transform-angle))
+   #:medium-draw-circle*))
 
 (defpackage :clim-internals
   (:use :clim :clim-sys :clim-extensions :clim-backend :clim-lisp)