Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
ef194da9
Commit
ef194da9
authored
Mar 03, 2012
by
Dave Cooper
Browse files
added wire-world demo
parent
46bc6c63
Changes
6
Show whitespace changes
Inline
Side-by-side
demos/gdl-demos.asd
View file @
ef194da9
...
...
@@ -13,14 +13,7 @@
:depends-on
(
:gdl-gwl-graphics
)
:components
((
:file
"aero-demo-1/source/package"
)
(
:file
"aero-demo-1/source/interior-ref-surf"
)
(
:file
"aero-demo-1/source/material"
)
(
:file
"aero-demo-1/source/parameters"
)
(
:file
"aero-demo-1/source/ref-surface"
)
(
:file
"aero-demo-1/source/surface-trim"
)
(
:file
"aero-demo-1/source/utilities"
)
(
:file
"bus/source/package"
)
(
:file
"bus/source/assembly"
)
((
:file
"bus/source/package"
)
(
:file
"bus/source/assembly"
)
(
:file
"bus/source/body"
)
(
:file
"bus/source/chassis"
)
(
:file
"bus/source/interior"
)
(
:file
"bus/source/rule-ackermann"
)
(
:file
"bus/source/axle"
)
(
:file
"bus/source/fleet"
)
...
...
@@ -49,6 +42,5 @@
(
:file
"site/source/opportunities"
)
(
:file
"site/source/options"
)
(
:file
"site/source/people"
)
(
:file
"site/source/pricing"
)
(
:file
"site/source/products"
)
(
:file
"site/source/publish"
)
(
:file
"site/source/security"
)
(
:file
"wire-world/source/assembly"
)
(
:file
"wire-world/source/package"
)))
\ No newline at end of file
(
:file
"site/source/security"
)
(
:file
"wire-world/source/package"
)
(
:file
"wire-world/source/assembly"
)))
\ No newline at end of file
demos/ignore-list.isc
View file @
ef194da9
("4bar" "missile")
(
"aero-demo-1"
"4bar" "missile")
demos/site/source/#make.lisp#
deleted
100644 → 0
View file @
46bc6c63
(in-package :genworks.com)
demos/wire-world/source/file-ordering.isc
0 → 100644
View file @
ef194da9
("package")
\ No newline at end of file
gdl/base/expanders/source/computed-slots.lisp
View file @
ef194da9
...
...
@@ -109,7 +109,7 @@
;;
;; FLAG -- duplicated from objects.lisp, inputs.lisp, functions.lisp, and above in this file.
;;
`
(
unless
(
and
(
fboundp
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-inputs
))
`
(
unless
nil
#+
nil
(
and
(
fboundp
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-inputs
))
(
find-method
(
symbol-function
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-inputs
))
nil
(
list
(
find-class
'gdl-basis
)
(
find-class
t
)
(
find-class
'gdl-basis
))
nil
))
(
defmethod
,
(
glisp:intern
(
symbol-name
slot
)
:gdl-inputs
)
((
,
parent-arg
gdl-basis
)
...
...
@@ -127,7 +127,7 @@
(
trickle-down-basis
,
self-arg
',slot
,
args-arg
)))
`
(
unless
nil
#+
nil
(
and
(
fboundp
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
))
`
(
unless
nil
#+
nil
(
and
(
fboundp
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
))
(
find-method
(
symbol-function
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
))
nil
(
list
(
find-class
'gdl-basis
))
nil
))
(
defmethod
,
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
)
((
,
self-arg
gdl-basis
)
&rest
,
args-arg
)
...
...
gdl/base/expanders/source/functions.lisp
View file @
ef194da9
...
...
@@ -101,7 +101,8 @@
;;
;; FLAG -- duplicated from inputs.lisp, objects.lisp, and computed-slots.lisp
;;
`
(
unless
(
and
(
fboundp
',
(
glisp:intern
(
symbol-name
attr-sym
)
:gdl-inputs
))
`
(
unless
nil
#+
nil
(
and
(
fboundp
',
(
glisp:intern
(
symbol-name
attr-sym
)
:gdl-inputs
))
(
find-method
(
symbol-function
',
(
glisp:intern
(
symbol-name
attr-sym
)
:gdl-inputs
))
nil
(
list
(
find-class
'gdl-basis
)
(
find-class
t
)
(
find-class
'gdl-basis
))
nil
))
(
defmethod
,
(
glisp:intern
(
symbol-name
attr-sym
)
:gdl-inputs
)
((
,
parent-arg
gdl-basis
)
...
...
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