Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
G
gendl
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
47
Issues
47
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gendl
gendl
Commits
a8f878f3
Commit
a8f878f3
authored
May 23, 2013
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
updated glime-crinkles, added ignore-errors to this-the-from-form in glime.lisp
parent
0c967aba
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
74 additions
and
26 deletions
+74
-26
documentation/training/g102/examples/source/drawing.lisp
documentation/training/g102/examples/source/drawing.lisp
+1
-1
emacs/glime-crinkles.lisp
emacs/glime-crinkles.lisp
+48
-10
emacs/glime.lisp
emacs/glime.lisp
+25
-15
No files found.
documentation/training/g102/examples/source/drawing.lisp
View file @
a8f878f3
...
...
@@ -26,7 +26,7 @@
:width
(
half
(
the
width
))
:projection-vector
(
getf
*standard-views*
:top
)
:center
(
translate
(
the
center
)
:rear
(
half
(
the-child
length
))
:right
(
half
(
the-child
width
))))
:right
(
half
(
the-child
width
))))
(
tri-view
:type
'base-view
:border-box?
t
...
...
emacs/glime-crinkles.lisp
View file @
a8f878f3
1.
the-child
is
not
picking
up
the
type
of
current
child
--
it
still
1.
Reference-chains
entered
into
Slime
REPL
throw
an
"error in process
filter"
e.g.:
GDL-USER>
;; Error: Odd length keyword list: (SWANK::%CURSOR-MARKER%)
;; Error: Odd length keyword list: (SWANK::%CURSOR-MARKER%)
;; Error: Odd length keyword list: (SWANK::%CURSOR-MARKER%)
; No value
GDL-USER>
(
the
foo
...
This
is
fixed
temporarily
with
an
ignore-errors
around
body
of
this-the-from-form
in
emacs/glime.lisp
genworks
'
current
slime-devel
branch.
Ignore-errors
should
probably
still
be
there
just
to
catch
any
unforeseen
situations,
but
probably
with
a
multiple-value-bind
to
catch
the
error
and
handle
it
somehow
or
at
least
print
a
warning
message
about
it.
2.
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
3
.
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.
non-Function
slots,
and
it
does
not
appear
to
be
doing
this.
4.
slime-autodoc-use-multiline-p
does
not
appear
to
be
activated.
5.
Sequence
(
quantified
)
objects
are
not
behaving
like
GDL
Functions
for
"(the ("
as
they
should.
6.
Reference-chains
do
not
appear
to
pick
up
the
inferred
type
of
each
element
along
the
chain,
as
theoretically
should
(
at
least
sometimes
)
be
possible,
using
e.g.
(
the
(
slot-source
...
))
and
pulling
out
the
:type
for
messages
which
name
:objects
or
:hidden-objects.
7.
Functions-in-this-form
(
which
are
not
compiled
into
object
yet
)
are
not
being
picked
up.
8.
Things
to
start
thinking
about
for
future:
What
are
some
good
places/contexts
to
start
pulling
up
and
presenting
the
docstrings
(
i.e.
the
message-remarks
)
for
input-slots/computed-slots/functions
etc?
(
so
far
we
haven
't
done
anything
with
message-remarks
)
.
And
how
about
best
ways
to
specify/interrogate/present
documentation
for
individual
arguments
to
GDL
Functions?
(
currently
they
are
documented
using
a
tortured
convention
within
the
doc-string,
which
has
to
be
kept
manually
in
sync
with
the
actual
lambda
list
---
it
would
be
nice
to
be
able
to
have
the
documentation
embedded
right
there
in
the
lambda
list
along
with
the
args
---
borrowing
some
meta-data
ideas
from
Clojure
perhaps?
)
emacs/glime.lisp
View file @
a8f878f3
...
...
@@ -465,23 +465,33 @@ each returning a list of proposed messages.")
;; Try repeating the name of this function, many times, fast, and in a darkened room.
(
defun
this-the-from-form
(
form
)
;; A bit like messages-in-this-form below, best done as a separate cycle.
(
destructuring-bind
(
classname
&optional
mixins
&key
input-slots
computed-slots
objects
hidden-objects
functions
methods
&allow-other-keys
)
(
cdr
form
)
(
declare
(
ignore
classname
mixins
))
(
loop
for
section
in
(
list
input-slots
computed-slots
objects
hidden-objects
functions
methods
)
as
section-name
in
'
(
input-slots
computed-slots
objects
hidden-objects
functions
methods
)
do
(
loop
for
item
in
section
when
(
consp
item
)
do
(
let
((
form-with-cursor-marker
(
form-with-cursor-marker
item
)))
(
when
form-with-cursor-marker
(
return-from
this-the-from-form
(
make-this-the
section-name
item
form-with-cursor-marker
))))))))
;;
;;
;; FLAG DJC -- this ignore-errors MUST BE REMOVED (or at least catch
;; the error)! Put as a band-aid by DJC in order to get
;; some work done without quitting & restarting the
;; system.
;;
(
ignore-errors
(
destructuring-bind
(
classname
&optional
mixins
&key
input-slots
computed-slots
objects
hidden-objects
functions
methods
&allow-other-keys
)
(
cdr
form
)
(
declare
(
ignore
classname
mixins
))
(
loop
for
section
in
(
list
input-slots
computed-slots
objects
hidden-objects
functions
methods
)
as
section-name
in
'
(
input-slots
computed-slots
objects
hidden-objects
functions
methods
)
do
(
loop
for
item
in
section
when
(
consp
item
)
do
(
let
((
form-with-cursor-marker
(
form-with-cursor-marker
item
)))
(
when
form-with-cursor-marker
(
return-from
this-the-from-form
(
make-this-the
section-name
item
form-with-cursor-marker
)))))))))
(
defun
form-with-cursor-marker
(
form
)
;; Return, if any, the innermost (the ...) form containing the
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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