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
883224be
Commit
883224be
authored
Feb 25, 2016
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fixed args passing for not-handled for chase-up-trickle-downs
parent
ed20e049
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
40 additions
and
2 deletions
+40
-2
base/rest/source/bodies.lisp
base/rest/source/bodies.lisp
+2
-2
patches/1590/p001.lisp
patches/1590/p001.lisp
+7
-0
patches/1590/p002.lisp
patches/1590/p002.lisp
+31
-0
No files found.
base/rest/source/bodies.lisp
View file @
883224be
...
...
@@ -48,14 +48,14 @@
(
gethash
keyword
(
the-object
parent
%trickle-down-slots%
))
(
apply
(
symbol-function
slot-symbol
)
parent
args
))
(
t
(
apply
(
symbol-function
(
glisp:intern
slot-symbol
:gdl-trickle-downs
))
parent
args
))))))
(
if
(
eql
result
'gdl-rule:%not-handled%
)
(
not-handled
self
keyword
)
result
))
(
if
(
eql
result
'gdl-rule:%not-handled%
)
(
not-handled
self
keyword
args
)
result
))
result
))))))
(
defun
trickle-down-basis
(
self
slot
args
)
(
let
((
keyword
(
make-keyword
slot
)))
(
let
(
*error-on-not-handled?*
(
parent
(
the
parent
)))
(
cond
((
null
parent
)
(
not-handled
self
keyword
))
(
cond
((
null
parent
)
(
not-handled
self
keyword
args
))
(
;;(member keyword (the-object parent %trickle-down-slots%))
(
gethash
keyword
(
the-object
parent
%trickle-down-slots%
))
(
apply
(
symbol-function
(
glisp:intern
slot
:gdl-slots
))
parent
args
))
...
...
patches/1590/p001.lisp
View file @
883224be
...
...
@@ -19,6 +19,11 @@
;; <http://www.gnu.org/licenses/>.
;;
These
changes
have
been
merged
into
codebase.
#|
(in-package :gdl)
...
...
@@ -292,3 +297,5 @@ The path to the containing object is: ~s"
(if (null ,parent-arg) (not-handled ,self-arg ,(make-keyword key) ,args-arg)
(,(glisp:intern key :gdl-inputs)
,parent-arg (the-object ,self-arg :%name%) ,self-arg)))))) object-input-keys))))))
|#
patches/1590/p002.lisp
0 → 100644
View file @
883224be
(
in-package
:gdl
)
(
excl:without-package-locks
(
excl:without-redefinition-warnings
(
defun
chase-up-trickle-down
(
slot-symbol
self
args
)
(
let
((
keyword
(
make-keyword
slot-symbol
)))
(
let
((
parent
(
the-object
self
parent
)))
(
if
(
null
parent
)
(
not-handled
self
keyword
)
(
let
((
result
(
let
(
*error-on-not-handled?*
)
(
funcall
(
symbol-function
(
glisp:intern
slot-symbol
:gdl-inputs
))
parent
(
the
%name%
)
self
))))
(
if
(
eql
result
'gdl-rule:%not-handled%
)
(
let
((
result
(
let
(
*error-on-not-handled?*
)
(
cond
(
;;(member keyword (the-object parent %trickle-down-slots%))
(
gethash
keyword
(
the-object
parent
%trickle-down-slots%
))
(
apply
(
symbol-function
slot-symbol
)
parent
args
))
(
t
(
apply
(
symbol-function
(
glisp:intern
slot-symbol
:gdl-trickle-downs
))
parent
args
))))))
(
if
(
eql
result
'gdl-rule:%not-handled%
)
(
not-handled
self
keyword
args
)
result
))
result
))))))
(
defun
trickle-down-basis
(
self
slot
args
)
(
let
((
keyword
(
make-keyword
slot
)))
(
let
(
*error-on-not-handled?*
(
parent
(
the
parent
)))
(
cond
((
null
parent
)
(
not-handled
self
keyword
args
))
(
;;(member keyword (the-object parent %trickle-down-slots%))
(
gethash
keyword
(
the-object
parent
%trickle-down-slots%
))
(
apply
(
symbol-function
(
glisp:intern
slot
:gdl-slots
))
parent
args
))
(
t
(
apply
(
symbol-function
(
glisp:intern
slot
:gdl-trickle-downs
))
parent
args
))))))))
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