Commit 2d1055bb authored by Dave Cooper's avatar Dave Cooper

squash warnings.

parent 338419a4
......@@ -3,7 +3,7 @@
(asdf:defsystem #:geysr :description
"The Gendl® geysr Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20181129" :depends-on (:gwl-graphics)
:serial t :version "20181204" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings :gendl-asdf)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode (:gendl-asdf)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......@@ -11,5 +11,5 @@
((:gdl "source/package") (:gdl "source/assembly")
(:gdl "source/initialize") (:gdl "source/inspector")
(:gdl "source/menu-node") (:gdl "source/menu")
(:file "source/parameters") (:gdl "source/tree")
(:gdl "source/parameters") (:gdl "source/tree")
(:gdl "source/viewport") (:gdl "source/zzinit")))
......@@ -15,5 +15,5 @@
(gwl:define-package :geysr
(:export #:assembly #:viewport #:inspector #:status-object #:menu-section
#:*suppress-%%-messages?* #:*suppress-$$-messages?*))
#:*internal-keywords* #:*suppress-%%-messages?* #:*suppress-$$-messages?*))
......@@ -171,7 +171,6 @@ x3draw();
(append (the operations-list)
(list (list :operation :add-leaves* :object object))))))
#+nil
(leaves-displayed?
(object)
(gethash (the-object (first (the-object object leaves)) root-path)
......@@ -302,7 +301,6 @@ x3draw();
(:links (the (write-geometry-links)))
(:svg (write-the svg-vector-graphics))
(:raphael (write-the vector-graphics))
(:raphael )
((:png :jpeg) (write-the raster-graphics))
(:x3dom (the (write-embedded-x3dom-world :include-view-controls? nil)))))))
......
......@@ -29,6 +29,12 @@
;; FLAG -- this will move back to internal codebase on the next build.
;;
(define-object surf:arc-curve ())
(define-object surf:curve () :computed-slots ((knot-vector nil)))
(define-object surf:linear-curve ())
(define-object base-drawing (base-object)
:documentation (:description "Generic container object for displaying one or more scaled
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment