Commit fb33adba authored by Dave Cooper's avatar Dave Cooper

update for relaunch of genworks.com.

parent ded32e7b
...@@ -251,15 +251,18 @@ ...@@ -251,15 +251,18 @@
:radius 19 :radius 19
:inner-radius 7) :inner-radius 7)
(rule-ackermann :type 'rule-ackermann (rule-ackermann :type 'rule-ackermann
:ackermann-data (list :left (getf (the ackermann-data) :left) :ackermann-data (list :left (getf (the ackermann-data) :left)
:right (getf (the ackermann-data) :right)) :right (getf (the ackermann-data) :right))
:ackermann-data-ideal (list :left (getf (the ackermann-data) :left) :ackermann-data-ideal (list :left (getf (the ackermann-data) :left)
:right (getf (the ackermann-data) :ideal-right)))) :right (getf (the ackermann-data) :ideal-right)))
)
:hidden-objects :hidden-objects
((knuckles-straight (
(knuckles-straight
:type 'knuckle :type 'knuckle
:sequence (:size 2) :sequence (:size 2)
:center (the (:axles 0) (:kingpins (the-child :index)) :center) :center (the (:axles 0) (:kingpins (the-child :index)) :center)
......
...@@ -108,7 +108,10 @@ ...@@ -108,7 +108,10 @@
(declare (ignore header?))) (declare (ignore header?)))
(cad-output-tree (cad-output-tree
(&key (header? nil)) (&key (header? nil))
(declare (ignore header?))))) (declare (ignore header?)))
(shape (&rest args)
(declare (ignore args)))
))
......
...@@ -189,6 +189,8 @@ Default is the standard doctype for HTML5 and later." ...@@ -189,6 +189,8 @@ Default is the standard doctype for HTML5 and later."
doctype-string "<!DOCTYPE HTML>") doctype-string "<!DOCTYPE HTML>")
(use-ajax? t ) ;; of course because this is base-ajax-sheet. But we can override if needed.
("Boolean. Include jquery javascript libraries in the page header? ("Boolean. Include jquery javascript libraries in the page header?
Default nil." Default nil."
use-jquery? nil :settable) use-jquery? nil :settable)
...@@ -245,7 +247,7 @@ interface. Defaults to nil." ...@@ -245,7 +247,7 @@ interface. Defaults to nil."
development-links development-links
(with-cl-who-string () (write-the development-links)))) (with-cl-who-string () (write-the development-links))))
:objects :hidden-objects
((standard-javascript-section ((standard-javascript-section
:type 'sheet-section :type 'sheet-section
:js-to-eval :parse :js-to-eval :parse
......
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