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
7c39282e
Commit
7c39282e
authored
Mar 14, 2014
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
doing local runtime builds
parent
fd66f3f9
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
22 additions
and
14 deletions
+22
-14
base/rest/source/vanilla-mixin.lisp
base/rest/source/vanilla-mixin.lisp
+18
-10
demos/bus/bus.asd
demos/bus/bus.asd
+1
-1
demos/bus/depends-on.isc
demos/bus/depends-on.isc
+1
-1
demos/robot/depends-on.isc
demos/robot/depends-on.isc
+1
-1
demos/robot/robot.asd
demos/robot/robot.asd
+1
-1
No files found.
base/rest/source/vanilla-mixin.lisp
View file @
7c39282e
...
...
@@ -28,10 +28,11 @@
:no-vanilla-mixin?
t
:documentation
(
:description
"Vanilla-Mixin is automatically inherited by every object
created in GDL. It provides basic messages which are common to all GDL objects defined
with the define-object macro, unless <tt>:no-vanilla-mixin t</tt> is specified at the toplevel
of the define-object form."
)
:documentation
(
:description
"Vanilla-Mixin is automatically
inherited by every object created in GDL. It provides basic messages
which are common to all GDL objects defined with the define-object
macro, unless <tt>:no-vanilla-mixin t</tt> is specified at the
toplevel of the define-object form."
)
:input-slots
(
...
...
@@ -46,21 +47,24 @@ of the define-object form.")
(
%aggregate%
nil
)
(
%index%
nil
)
(
"String or List of Strings. Determines how the name of objects of this type will be printed in most places.
This defaults to the name-for-display (generally the part's name as specified in its
parent), followed by an index number if the part is an element of a sequence."
strings-for-display
(
format
nil
"~a~a~a"
(
the
:name-for-display
)
(
"String or List of Strings. Determines how the name of objects of
this type will be printed in most places. This defaults to the
name-for-display (generally the part's name as specified in its
parent), followed by an index number if the part is an element of a
sequence."
strings-for-display
(
format
nil
"~a~a~a"
(
the
:name-for-display
)
(
if
(
the
:index
)
" "
""
)
(
or
(
the
:index
)
""
)))
(
parent-tree
nil
)
(
"List of GDL Instances. Additional objects to display in Tatu tree. Typically this would be a subset of hidden-children. Defaults to NIL."
(
"List of GDL Instances. Additional objects to display in Tatu
tree. Typically this would be a subset of
hidden-children. Defaults to NIL."
visible-children
nil
)
(
"GDL Instance. The root-level node in this object's ``tree'' (instance hierarchy)."
root
(
if
(
the
:parent
)
(
the
:parent
:root
)
self
))
...
...
@@ -427,6 +431,10 @@ reading from databases or external files). Defaults to nil.\")"
(
unless
(
funcall
equality-function
value
current
)
(
the
(
set-slot!
slot
value
:remember?
remember?
)))))))
;;
;; FLAG -- notify trobertson@whitebox.com if any changes to %version-tree% structure!!
;;
(
"NIL. Forcibly sets the value of the given slot to the given value. The slot must be defined
...
...
demos/bus/bus.asd
View file @
7c39282e
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:bus
:description
"The Gendl™ Wireframe School Bus Demo"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140227"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"20140227"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/bus/depends-on.isc
View file @
7c39282e
(:gwl-graphics)
\ No newline at end of file
nil ;;(:gwl-graphics)
\ No newline at end of file
demos/robot/depends-on.isc
View file @
7c39282e
(:gwl-graphics)
\ No newline at end of file
() ;;(:gwl-graphics)
\ No newline at end of file
demos/robot/robot.asd
View file @
7c39282e
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Simplified Android Robot example "
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140227"
:depends-on
(
:gwl-graphics
)
:version
"20140227"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
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