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
0c967aba
Commit
0c967aba
authored
May 23, 2013
by
Dave Cooper
Browse files
added crinkles file
parent
15b26564
Changes
4
Hide whitespace changes
Inline
Side-by-side
documentation/training/g102/examples/source/drawing.lisp
View file @
0c967aba
...
...
@@ -13,6 +13,8 @@
:arm-angle-left
(
the
robot-assembly
arm-angle-left
)
:head-angle
(
the
robot-assembly
head-angle
)
:body-angle
(
the
robot-assembly
body-angle
)))
:objects
((
text-view
:type
'base-view
...
...
@@ -53,7 +55,7 @@
:dim-scale
(
/
(
the
top-view
view-scale
))
:witness-line-length
20
:witness-line-gap
70
:witness-line-ext
5
:witness-line-ext
5
:start-point
(
the
top-view
(
view-point
(
the
robot-assembly
robot
body
(
arms
0
)
(
vertex
:rear
:left
:top
))))
:end-point
(
the
top-view
(
view-point
(
the
robot-assembly
robot
body
(
arms
1
)
(
vertex
:rear
:right
:top
)))))
...
...
emacs/glime-crinkles.lisp
0 → 100644
View file @
0c967aba
1.
the-child
is
not
picking
up
the
type
of
current
child
--
it
still
appears
to
be
working
based
off
the
enclosing
define-object
type.
2.
When
placing
the
"("
after
"(the ("
it
does
toggle
to
display
available
GDL
Functions,
but
it
should
also
suppress
display
of
non-Function
slots
and
it
does
not
appear
to
be
doing
this.
3.
slime-autodoc-use-multiline-p
does
not
appear
to
be
activated.
4.
Sequence
(
quantified
)
objects
are
not
behaving
like
GDL
Functions
for
"(the ("
as
they
should
5.
Reference-chains
do
not
appear
to
work.
emacs/glime.lisp
View file @
0c967aba
...
...
@@ -2,13 +2,13 @@
(
in-package
:swank
)
;;
GENDL.LISP
;;
glime.lisp
;; Nick Levine, Ravenbrook Limited, 2013-05-02
;;
;; 1. INTRODUCTION
;;
;; The purpose of this document is to implement GENDL customi
s
ations
;; for SLIME
.
;; The purpose of this document is to implement GENDL customi
z
ations
;; for SLIME
(collectively known as "Glime(TM)")
;;
;; The following features have been implemented so far:
;;
...
...
gendl.asd
View file @
0c967aba
...
...
@@ -7,7 +7,9 @@
:serial
t
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:version
"2013031600"
:depends-on
(
:cl-lite
:gwl-graphics
:tasty
:robot
:yadd
))
:depends-on
(
:cl-lite
:gwl-graphics
:tasty
:robot
:yadd
)
:components
((
:file
#+
:swank
"emacs/glime"
)))
(
defmethod
perform
:after
((
op
load-op
)
(
system
(
eql
(
find-system
"gendl"
))))
(
declare
(
ignore
op
))
...
...
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