Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
5cc60a14
Commit
5cc60a14
authored
May 23, 2013
by
Dave Cooper
Browse files
removed warnings from gendl.lisp
parent
c7379bf9
Changes
4
Hide whitespace changes
Inline
Side-by-side
.gitignore
View file @
5cc60a14
...
...
@@ -12,6 +12,7 @@ bin
*.toc
configure.el
systems.txt
# Ignore (generated) html files,
# *.html
...
...
documentation/training/g102/examples/source/drawing.lisp
View file @
5cc60a14
...
...
@@ -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
20
0
))
(
tt:table
(
:col-widths
(
list
220
(
-
(
the
width
)
2
20
)
))
(
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
))))
...
...
emacs/gendl.lisp
View file @
5cc60a14
...
...
@@ -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."
...
...
system-index.txt
deleted
100644 → 0
View file @
c7379bf9
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
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment