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

removed warnings from gendl.lisp

parent c7379bf9
...@@ -12,6 +12,7 @@ bin ...@@ -12,6 +12,7 @@ bin
*.toc *.toc
configure.el configure.el
systems.txt
# Ignore (generated) html files, # Ignore (generated) html files,
# *.html # *.html
......
...@@ -5,6 +5,8 @@ ...@@ -5,6 +5,8 @@
:hidden-objects ((robot-assembly :type 'robot:assembly) :hidden-objects ((robot-assembly :type 'robot:assembly)
(text-block :type 'robot-text-block (text-block :type 'robot-text-block
:width (the text-view width)
:length (the text-view length)
:robot-width (the robot-assembly height) :robot-width (the robot-assembly height)
:robot-length (the robot-assembly length) :robot-length (the robot-assembly length)
:arm-angle-left (the robot-assembly arm-angle-left) :arm-angle-left (the robot-assembly arm-angle-left)
...@@ -13,10 +15,13 @@ ...@@ -13,10 +15,13 @@
:objects :objects
((text-view :type 'base-view ((text-view :type 'base-view
:left-margin 0
:front-margin 0
:border-box? t :border-box? t
:objects (list (the text-block)) :objects (list (the text-block))
:length (half (the length)) :length (half (the length))
:width (half (the width)) :width (half (the width))
:projection-vector (getf *standard-views* :top)
:center (translate (the center) :rear (half (the-child length)) :center (translate (the center) :rear (half (the-child length))
:right (half (the-child width)))) :right (half (the-child width))))
...@@ -89,8 +94,9 @@ ...@@ -89,8 +94,9 @@
((content ((content
() ()
(tt:compile-text (:font "Helvetica" :font-size 12.0) (tt:compile-text (:font "Helvetica" :font-size 12.0)
(tt:vspace 100)
(tt:paragraph () "Robot Data") (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)) (dolist (slot (list :robot-width :robot-length :body-angle :arm-angle-left :head-angle))
(tt:row () (tt:row ()
(tt:cell (:background-color "#00FF00") (tt:put-string (format nil "~a" (string-capitalize slot)))) (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." ...@@ -390,7 +390,14 @@ can. Otherwise, fall back on make-self."
;; 9. HELP ON MESSAGES FOR THE ;; 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) (defmethod compute-enriched-decoded-arglist ((operator (eql 'gendl:the)) arguments)
(declare (ignorable arguments))
(let* ((whole-form *form-with-arglist*) (let* ((whole-form *form-with-arglist*)
(messages (when (and (consp whole-form) (messages (when (and (consp whole-form)
(eq (car whole-form) 'gendl:define-object)) (eq (car whole-form) 'gendl:define-object))
...@@ -406,12 +413,6 @@ can. Otherwise, fall back on make-self." ...@@ -406,12 +413,6 @@ can. Otherwise, fall back on make-self."
nil t) nil t)
(call-next-method)))) (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) (defun messages-in-this-form (form)
"Do what define-object itself does, to figure out the messages being "Do what define-object itself does, to figure out the messages being
defined by this form." 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