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
3d541104
Commit
3d541104
authored
Feb 21, 2013
by
Dave Cooper
Browse files
removed all warnings for asdf compile.
parent
d2054fd7
Changes
4
Hide whitespace changes
Inline
Side-by-side
demos/gdl-demos.asd
View file @
3d541104
(
asdf:defsystem
#:gdl-demos
:description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2012051300"
:depends-on
(
:gdl-gwl-graphics
)
:components
((
:file
"robot/source/package"
)
(
:file
"robot/source/assembly"
)
(
:file
"newsite/source/package"
)
(
:file
"newsite/source/locales"
)
(
:file
"newsite/source/Services"
)
(
:file
"newsite/source/assembly"
)
(
:file
"newsite/source/configurator-engine"
)
(
:file
"newsite/source/configurator"
)
(
:file
"newsite/source/contact-us"
)
(
:file
"newsite/source/demos"
)
(
:file
"newsite/source/documentation"
)
(
:file
"newsite/source/downloads"
)
(
:file
"newsite/source/explanations"
)
(
:file
"newsite/source/index"
)
(
:file
"newsite/source/language"
)
(
:file
"newsite/source/licensing"
)
(
:file
"newsite/source/mixins"
)
(
:file
"newsite/source/news"
)
(
:file
"newsite/source/people"
)
(
:file
"newsite/source/product-descriptions"
)
(
:file
"newsite/source/products"
)
(
:file
"newsite/source/publish"
)
(
:file
"twenty-four/source/infpre"
)
(
:file
"twenty-four/source/assembly"
)
(
:file
"twenty-four/source/cards-by-number"
)
(
:file
"twenty-four/source/find"
)
(
: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"
)
(
:file
"bus/source/frame-rail"
)
(
:file
"bus/source/frame"
)
(
:file
"bus/source/html-writer-assembly"
)
(
:file
"bus/source/html-writer-body"
)
(
:file
"bus/source/html-writer-chassis"
)
(
:file
"bus/source/html-writer-interior"
)
(
:file
"bus/source/html-writer-rule-ackermann"
)
(
:file
"bus/source/inter-seat-clearance-check"
)
(
:file
"bus/source/inter-seat-spacing"
)
(
:file
"bus/source/knuckle"
)
(
:file
"bus/source/parameters"
)
(
:file
"bus/source/publish"
)
(
:file
"bus/source/rear-axle"
)
(
:file
"bus/source/seat"
)
(
:file
"bus/source/seating-section"
)
(
:file
"bus/source/seating-side"
)
(
:file
"bus/source/wheel"
)
(
:file
"glassbox/source/assembly"
)
(
:file
"glassbox/source/eco-tree"
)
(
:file
"ledger/source/package"
)
(
:file
"ledger/source/assembly"
)
(
:file
"ledger/source/html"
)
(
:file
"site/source/package"
)
(
:file
"site/source/assembly"
)
(
:file
"site/source/contact"
)
(
:file
"site/source/demos"
)
(
:file
"site/source/glossary"
)
(
:file
"site/source/index"
)
(
:file
"site/source/landing"
)
(
:file
"site/source/licensing"
)
(
:file
"site/source/maintenance"
)
(
:file
"site/source/make"
)
(
:file
"site/source/mixins"
)
(
:file
"site/source/new"
)
(
: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/package"
)
(
:file
"wire-world/source/assembly"
)))
\ No newline at end of file
(
asdf:defsystem
#:gdl-demos
:description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2013022100"
:depends-on
(
:gdl-gwl-graphics
)
:components
((
:file
"robot/source/package"
)
(
:file
"robot/source/assembly"
)
(
:file
"newsite/source/package"
)
(
:file
"newsite/source/locales"
)
(
:file
"newsite/source/Services"
)
(
:file
"newsite/source/assembly"
)
(
:file
"newsite/source/configurator-engine"
)
(
:file
"newsite/source/configurator"
)
(
:file
"newsite/source/contact-us"
)
(
:file
"newsite/source/demos"
)
(
:file
"newsite/source/documentation"
)
(
:file
"newsite/source/downloads"
)
(
:file
"newsite/source/explanations"
)
(
:file
"newsite/source/index"
)
(
:file
"newsite/source/language"
)
(
:file
"newsite/source/licensing"
)
(
:file
"newsite/source/mixins"
)
(
:file
"newsite/source/news"
)
(
:file
"newsite/source/people"
)
(
:file
"newsite/source/product-descriptions"
)
(
:file
"newsite/source/products"
)
(
:file
"newsite/source/publish"
)
(
:file
"twenty-four/source/infpre"
)
(
:file
"twenty-four/source/cards-by-number"
)
(
:file
"twenty-four/source/assembly"
)
(
:file
"twenty-four/source/find"
)
(
: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"
)
(
:file
"bus/source/frame-rail"
)
(
:file
"bus/source/frame"
)
(
:file
"bus/source/html-writer-assembly"
)
(
:file
"bus/source/html-writer-body"
)
(
:file
"bus/source/html-writer-chassis"
)
(
:file
"bus/source/html-writer-interior"
)
(
:file
"bus/source/html-writer-rule-ackermann"
)
(
:file
"bus/source/inter-seat-clearance-check"
)
(
:file
"bus/source/inter-seat-spacing"
)
(
:file
"bus/source/knuckle"
)
(
:file
"bus/source/parameters"
)
(
:file
"bus/source/publish"
)
(
:file
"bus/source/rear-axle"
)
(
:file
"bus/source/seat"
)
(
:file
"bus/source/seating-section"
)
(
:file
"bus/source/seating-side"
)
(
:file
"bus/source/wheel"
)
(
:file
"glassbox/source/assembly"
)
(
:file
"glassbox/source/eco-tree"
)
(
:file
"ledger/source/package"
)
(
:file
"ledger/source/assembly"
)
(
:file
"ledger/source/html"
)
(
:file
"site/source/package"
)
(
:file
"site/source/assembly"
)
(
:file
"site/source/contact"
)
(
:file
"site/source/demos"
)
(
:file
"site/source/glossary"
)
(
:file
"site/source/index"
)
(
:file
"site/source/landing"
)
(
:file
"site/source/licensing"
)
(
:file
"site/source/maintenance"
)
(
:file
"site/source/make"
)
(
:file
"site/source/mixins"
)
(
:file
"site/source/new"
)
(
: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/package"
)
(
:file
"wire-world/source/assembly"
)))
\ No newline at end of file
demos/newsite/source/contact-us.lisp
View file @
3d541104
...
...
@@ -23,6 +23,7 @@
(
in-package
:www.genworks.com
)
(
defparameter
*smtp-server*
"smtp.comcast.net"
)
(
defparameter
*licensed-emails*
nil
)
(
define-object
contact-us
(
base-site-sheet
)
...
...
@@ -149,5 +150,5 @@ provide the appropriate level of service.")
(
defparameter
*licensed-emails*
nil
)
demos/twenty-four/source/file-ordering.isc
View file @
3d541104
("infpre")
\ No newline at end of file
("infpre" "cards-by-number")
\ No newline at end of file
demos/twenty-four/source/find.lisp
View file @
3d541104
...
...
@@ -18,6 +18,7 @@
(
defparameter
*c*
nil
)
(
defparameter
*d*
nil
)
(
defparameter
*all-exprs*
nil
)
(
defun
twenty-four
(
a
b
c
d
&key
(
target
24
))
...
...
@@ -107,7 +108,7 @@
:nums
(
rest
(
the
nums
)))))
(
defparameter
*all-exprs*
(
append
(
the-object
(
make-object
'twenty-four
)
all-exprs
)
(
flat-exprs
)
))
(
setq
*all-exprs*
(
append
(
the-object
(
make-object
'twenty-four
)
all-exprs
)
(
flat-exprs
)
))
...
...
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