Commit 5cc60a14 authored by Dave Cooper's avatar Dave Cooper

removed warnings from gendl.lisp

parent c7379bf9
......@@ -12,6 +12,7 @@ bin
*.toc
configure.el
systems.txt
# Ignore (generated) html files,
# *.html
......
......@@ -5,6 +5,8 @@
:hidden-objects ((robot-assembly :type 'robot:assembly)
(text-block :type 'robot-text-block
:width (the text-view width)
:length (the text-view length)
:robot-width (the robot-assembly height)
:robot-length (the robot-assembly length)
:arm-angle-left (the robot-assembly arm-angle-left)
......@@ -13,10 +15,13 @@
:objects
((text-view :type 'base-view
:left-margin 0
:front-margin 0
:border-box? t
:objects (list (the text-block))
:length (half (the length))
:width (half (the width))
:projection-vector (getf *standard-views* :top)
:center (translate (the center) :rear (half (the-child length))
:right (half (the-child width))))
......@@ -89,8 +94,9 @@
((content
()
(tt:compile-text (:font "Helvetica" :font-size 12.0)
(tt:vspace 100)
(tt:paragraph () "Robot Data")
(tt:table (:col-widths '(220 200))
(tt:table (:col-widths (list 220 (- (the width) 220)))
(dolist (slot (list :robot-width :robot-length :body-angle :arm-angle-left :head-angle))
(tt:row ()
(tt:cell (:background-color "#00FF00") (tt:put-string (format nil "~a" (string-capitalize slot))))
......
......@@ -390,7 +390,14 @@ can. Otherwise, fall back on make-self."
;; 9. HELP ON MESSAGES FOR THE
(defparameter *message-locators*
'(messages-in-this-form
messages-from-classes)
"A list of functions, each taking a (gendl:define-object ...) form,
each returning a list of proposed messages.")
(defmethod compute-enriched-decoded-arglist ((operator (eql 'gendl:the)) arguments)
(declare (ignorable arguments))
(let* ((whole-form *form-with-arglist*)
(messages (when (and (consp whole-form)
(eq (car whole-form) 'gendl:define-object))
......@@ -406,12 +413,6 @@ can. Otherwise, fall back on make-self."
nil t)
(call-next-method))))
(defparameter *message-locators*
'(messages-in-this-form
messages-from-classes)
"A list of functions, each taking a (gendl:define-object ...) form,
each returning a list of proposed messages.")
(defun messages-in-this-form (form)
"Do what define-object itself does, to figure out the messages being
defined by this form."
......
gendl.asd
gwl/gwl.asd
base/base.asd
surf/surf.asd
glisp/glisp.asd
apps/ta2/ta2.asd
demos/bus/bus.asd
apps/tree/tree.asd
apps/yadd/yadd.asd
cl-lite/cl-lite.asd
apps/tasty/tasty.asd
demos/robot/robot.asd
demos/ledger/ledger.asd
geom-base/geom-base.asd
regression/regression.asd
gwl-graphics/gwl-graphics.asd
demos/wire-world/wire-world.asd
apps/translators/translators.asd
documentation/training/training.asd
documentation/training/g102-tud/examples/examples.asd
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