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
c794c62f
Commit
c794c62f
authored
Dec 08, 2013
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
cleaned up SBCL compile warnings/errors for December Quicklisp release.
parent
78c72d7a
Changes
43
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
43 changed files
with
1196 additions
and
1182 deletions
+1196
-1182
apps/ta2/ta2.asd
apps/ta2/ta2.asd
+25
-10
apps/tasty/tasty.asd
apps/tasty/tasty.asd
+30
-13
apps/translators/translators.asd
apps/translators/translators.asd
+17
-6
apps/tree/source/newertree.lisp
apps/tree/source/newertree.lisp
+2
-2
apps/tree/tree.asd
apps/tree/tree.asd
+17
-6
apps/yadd/yadd.asd
apps/yadd/yadd.asd
+25
-11
base/base.asd
base/base.asd
+32
-13
cl-lite/cl-lite.asd
cl-lite/cl-lite.asd
+18
-6
demos/bus/bus.asd
demos/bus/bus.asd
+32
-13
demos/bus/depends-on.isc
demos/bus/depends-on.isc
+1
-1
demos/ledger/depends-on.isc
demos/ledger/depends-on.isc
+1
-1
demos/ledger/ledger.asd
demos/ledger/ledger.asd
+18
-6
demos/robot/depends-on.isc
demos/robot/depends-on.isc
+1
-1
demos/robot/robot.asd
demos/robot/robot.asd
+18
-7
demos/wire-world/depends-on.isc
demos/wire-world/depends-on.isc
+1
-1
demos/wire-world/wire-world.asd
demos/wire-world/wire-world.asd
+15
-5
documentation/training/depends-on.isc
documentation/training/depends-on.isc
+1
-1
documentation/training/g101/examples/source/file-io.lisp
documentation/training/g101/examples/source/file-io.lisp
+1
-1
documentation/training/g102-tud/examples/depends-on.isc
documentation/training/g102-tud/examples/depends-on.isc
+1
-1
documentation/training/g102-tud/examples/examples.asd
documentation/training/g102-tud/examples/examples.asd
+18
-6
documentation/training/g102/examples/city/source/assembly.lisp
...entation/training/g102/examples/city/source/assembly.lisp
+1
-1
documentation/training/g102/examples/city/source/package.lisp
...mentation/training/g102/examples/city/source/package.lisp
+1
-1
documentation/training/g102/examples/solids/source/web-page.lisp
...tation/training/g102/examples/solids/source/web-page.lisp
+1
-1
documentation/training/g102/solutions/ackermann/source/package.lisp
...ion/training/g102/solutions/ackermann/source/package.lisp
+1
-1
documentation/training/g102/solutions/city/source/assembly.lisp
...ntation/training/g102/solutions/city/source/assembly.lisp
+1
-1
documentation/training/g102/solutions/city/source/building.lisp
...ntation/training/g102/solutions/city/source/building.lisp
+34
-29
documentation/training/g102/solutions/city/source/package.lisp
...entation/training/g102/solutions/city/source/package.lisp
+1
-1
documentation/training/g105/examples/source/drilled-block.lisp
...entation/training/g105/examples/source/drilled-block.lisp
+9
-3
documentation/training/g108/examples/source/examples.lisp
documentation/training/g108/examples/source/examples.lisp
+0
-4
documentation/training/g108/source/package.lisp
documentation/training/g108/source/package.lisp
+2
-2
documentation/training/training.asd
documentation/training/training.asd
+1
-1
documentation/tutorial/source/assembly.lisp
documentation/tutorial/source/assembly.lisp
+50
-47
geom-base/geom-base.asd
geom-base/geom-base.asd
+54
-24
glisp/glisp.asd
glisp/glisp.asd
+17
-6
gwl-graphics/gwl-graphics.asd
gwl-graphics/gwl-graphics.asd
+22
-8
gwl/ajax/source/base-ajax-sheet.lisp
gwl/ajax/source/base-ajax-sheet.lisp
+485
-485
gwl/gwl.asd
gwl/gwl.asd
+36
-15
gwl/static/gwl/js/gdlajax-swap.js
gwl/static/gwl/js/gdlajax-swap.js
+0
-331
gwl/static/gwl/js/gdlajax1585.js
gwl/static/gwl/js/gdlajax1585.js
+0
-0
regression/regression.asd
regression/regression.asd
+86
-40
surf/source/b-spline-curve.lisp
surf/source/b-spline-curve.lisp
+25
-24
surf/source/file-ordering.isc
surf/source/file-ordering.isc
+1
-1
surf/surf.asd
surf/surf.asd
+94
-45
No files found.
apps/ta2/ta2.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:ta2
:description
(
asdf:defsystem
#:ta2
:description
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
)
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
apps/tasty/tasty.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:tree
:gwl-graphics
)
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:tree
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
apps/translators/translators.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:translators
:description
(
asdf:defsystem
#:translators
:description
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl
)
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
(
:file
"xml/source/xml2gdl"
)))
apps/tree/source/newertree.lisp
View file @
c794c62f
...
...
@@ -160,8 +160,8 @@ Converting to a string to avoid error."
((
<
(
the
tatu-line-thickness
)
1
)
(
*
400
(
the
tatu-line-thickness
)))
((
<=
(
the
tatu-line-thickness
)
3
)
(
*
300
(
the
tatu-line-thickness
)))
(
t
900
))))
(
if
font-weight
(
format
nil
" font-weight: ~a; "
font-weight
)
""
))))
(
format
nil
" font-weight: ~a; "
font-weight
))))
:onclick
(
when
(
the
onclick-function
)
(
funcall
(
the
onclick-function
)
(
the
target-object
))))
...
...
apps/tree/tree.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tree
:description
(
asdf:defsystem
#:tree
:description
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
)
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/newertree"
)))
apps/yadd/yadd.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
#-
allegro
:cl-html-parse
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
(
:file
"source/define-object-documentation"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
:file
"source/format-documentation"
)
(
:file
"source/function-documentation"
)
(
:file
"source/initialize"
)
(
:file
"source/publish"
)
(
:file
"source/test-part"
)
(
:file
"source/variable-documentation"
)
(
:file
"source/zzinit"
)))
(
:file
"source/function-documentation"
)
(
:file
"source/initialize"
)
(
:file
"source/publish"
)
(
:file
"source/test-part"
)
(
:file
"source/variable-documentation"
)
(
:file
"source/zzinit"
)))
base/base.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:base
:description
"The Gendl™ Base Core Kernel Engine"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
nil
(
asdf:defsystem
#:base
:description
"The Gendl™ Base Core Kernel Engine"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/presets"
)
(
:file
"source/parameters"
)
(
:file
"source/metaclasses"
)
(
:file
"source/utilities"
)
(
:file
"source/start"
)
(
:file
"expanders/source/inputs"
)
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/presets"
)
(
:file
"source/parameters"
)
(
:file
"source/metaclasses"
)
(
:file
"source/utilities"
)
(
:file
"source/start"
)
(
:file
"expanders/source/inputs"
)
(
:file
"expanders/source/computed-slots"
)
(
:file
"expanders/source/functions"
)
(
:file
"expanders/source/methods"
)
...
...
@@ -22,10 +36,15 @@
(
:file
"macros/source/define-format"
)
(
:file
"rest/source/parameters"
)
(
:file
"rest/source/quantification"
)
(
:file
"rest/source/aggregate"
)
(
:file
"rest/source/utilities"
)
(
:file
"rest/source/null-part"
)
(
:file
"rest/source/vanilla-mixin"
)
(
:file
"rest/source/base-rule-object"
)
(
:file
"rest/source/bodies"
)
(
:file
"rest/source/aggregate"
)
(
:file
"rest/source/utilities"
)
(
:file
"rest/source/null-part"
)
(
:file
"rest/source/vanilla-mixin"
)
(
:file
"rest/source/base-rule-object"
)
(
:file
"rest/source/bodies"
)
(
:file
"rest/source/ignore-errors-with-backtrace"
)
(
:file
"rest/source/init"
)
(
:file
"rest/source/make-part"
)
(
:file
"rest/source/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"rest/source/init"
)
(
:file
"rest/source/make-part"
)
(
:file
"rest/source/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
cl-lite/cl-lite.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:cl-lite
:description
"The Gendl™ Compile-and-Load Lite Utility"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:glisp
)
(
asdf:defsystem
#:cl-lite
:description
"The Gendl™ Compile-and-Load Lite Utility"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/cl-lite"
)
(
:file
"source/initialize"
)
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/cl-lite"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
demos/bus/bus.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
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
"20131207"
:depends-on
nil
(
asdf:defsystem
#:bus
:description
"The Gendl™ Wireframe School Bus Demo"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
#-
gwl-graphics
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/body"
)
(
:file
"source/chassis"
)
(
:file
"source/interior"
)
(
:file
"source/rule-ackermann"
)
(
:file
"source/axle"
)
(
:file
"source/fleet"
)
(
:file
"source/frame-rail"
)
(
:file
"source/frame"
)
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/body"
)
(
:file
"source/chassis"
)
(
:file
"source/interior"
)
(
:file
"source/rule-ackermann"
)
(
:file
"source/axle"
)
(
:file
"source/fleet"
)
(
:file
"source/frame-rail"
)
(
:file
"source/frame"
)
(
:file
"source/html-writer-assembly"
)
(
:file
"source/html-writer-body"
)
(
:file
"source/html-writer-chassis"
)
(
:file
"source/html-writer-interior"
)
(
:file
"source/html-writer-rule-ackermann"
)
(
:file
"source/inter-seat-clearance-check"
)
(
:file
"source/inter-seat-spacing"
)
(
:file
"source/knuckle"
)
(
:file
"source/parameters"
)
(
:file
"source/publish"
)
(
:file
"source/rear-axle"
)
(
:file
"source/seat"
)
(
:file
"source/seating-section"
)
(
:file
"source/seating-side"
)
(
:file
"source/inter-seat-spacing"
)
(
:file
"source/knuckle"
)
(
:file
"source/parameters"
)
(
:file
"source/publish"
)
(
:file
"source/rear-axle"
)
(
:file
"source/seat"
)
(
:file
"source/seating-section"
)
(
:file
"source/seating-side"
)
(
:file
"source/wheel"
)))
demos/bus/depends-on.isc
View file @
c794c62f
()
\ No newline at end of file
"(#-gwl-graphics :gwl-graphics)"
\ No newline at end of file
demos/ledger/depends-on.isc
View file @
c794c62f
(:gwl)
\ No newline at end of file
"(#-gwl :gwl)"
\ No newline at end of file
demos/ledger/ledger.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:ledger
:description
"The Gendl™ Ledger Bookkeeping Demo"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl
)
(
asdf:defsystem
#:ledger
:description
"The Gendl™ Ledger Bookkeeping Demo"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
#-
gwl
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/html"
)
(
:file
"source/zzinit"
)))
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/html"
)
(
:file
"source/zzinit"
)))
demos/robot/depends-on.isc
View file @
c794c62f
()
\ No newline at end of file
"(#-gendl :gwl-graphics)"
\ No newline at end of file
demos/robot/robot.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
nil
(
asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
#-
gendl
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/parameters"
)
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/parameters"
)
(
:file
"source/zzinit"
)))
demos/wire-world/depends-on.isc
View file @
c794c62f
(:gwl-graphics)
\ No newline at end of file
"(#-gwl-graphics :gwl-graphics)"
\ No newline at end of file
demos/wire-world/wire-world.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:wire-world
:description
(
asdf:defsystem
#:wire-world
:description
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
)
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
#-
gwl-graphics
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
documentation/training/depends-on.isc
View file @
c794c62f
(:smlib)
\ No newline at end of file
(:gwl-graphics :surf :yadd :bordeaux-threads)
\ No newline at end of file
documentation/training/g101/examples/source/file-io.lisp
View file @
c794c62f
...
...
@@ -19,7 +19,7 @@
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:user
)
(
in-package
:
gdl-
user
)
(
defun
file-size
(
pathname
)
(
with-open-file
(
in
pathname
)
...
...
documentation/training/g102-tud/examples/depends-on.isc
View file @
c794c62f
(:surf)
\ No newline at end of file
(:gwl-graphics :surf)
\ No newline at end of file
documentation/training/g102-tud/examples/examples.asd
View file @
c794c62f
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:surf
)
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
:surf
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/ch2-examples"
)
(
:file
"source/ch3-examples"
)
(
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
((
:file
"source/ch2-examples"
)
(
:file
"source/ch3-examples"
)
(
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
documentation/training/g102/examples/city/source/assembly.lisp
View file @
c794c62f
...
...
@@ -114,7 +114,7 @@
:length
length
:center
center
)))))
(
define-
view
(
html-format
assembly
)()
(
define-
lens
(
html-format
assembly
)()
:output-functions
((
model-inputs
()
...
...
documentation/training/g102/examples/city/source/package.lisp
View file @
c794c62f
(
in-package
:user
)
(
in-package
:
gdl-
user
)
(
gwl:define-package
:city
(
:export
#:assembly
))
documentation/training/g102/examples/solids/source/web-page.lisp
View file @
c794c62f
...
...
@@ -12,7 +12,7 @@
)))
(
define-
view
(
html-format
surface-ui
)()
(
define-
lens
(
html-format
surface-ui
)()
:output-functions
((
main-sheet
()
...
...
documentation/training/g102/solutions/ackermann/source/package.lisp
View file @
c794c62f
(
g
dl:define-package
:ackermann
(
:export
#:assembly
)
(
:use
:gwl
)
(
:shadow
#:define-package
))
(
g
wl:define-package
:ackermann
(
:export
#:assembly
))
documentation/training/g102/solutions/city/source/assembly.lisp
View file @
c794c62f
...
...
@@ -131,7 +131,7 @@
:length
length
:center
center
)))))
(
define-
view
(
html-format
assembly
)()
(
define-
lens
(
html-format
assembly
)()
:output-functions
((
model-inputs
()
...
...
documentation/training/g102/solutions/city/source/building.lisp
View file @
c794c62f
...
...
@@ -12,6 +12,40 @@
;; group exercise.
;;
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
define-object
proximity-rule
()
:input-slots
(
current-building
neighbors
target-type
distance
rule-data
)
:computed-slots
((
minimum-distance
(
let
(
result
)
(
dolist
(
building
(
the
violated-buildings
)
result
)
(
let
((
distance
(
3d-distance
(
the
current-building
center
)
(
the-object
building
center
))))
(
when
(
or
(
null
result
)
(
<
distance
(
first
result
)))
(
setq
result
(
list
distance
building
)))))))
(
violated?
(
not
(
null
(
the
violated-buildings
))))
;;
;; This will end up as a list of other buildings which violate the
;; proximity rule. It can also be nil, which is the same as the
;; empty list, if no buildings are close enough to violate.
;;
(
violated-buildings
(
let
(
result
)
(
dolist
(
building
(
the
neighbors
)
(
nreverse
result
))
(
when
(
and
(
typep
building
(
the
target-type
))
(
not
(
eql
building
(
the
current-building
)))
(
<
(
3d-distance
(
the
current-building
center
)
(
the-object
building
center
))
(
the
distance
)))
(
push
building
result
))))))))
(
define-object
building
(
box
)
:input-slots
(
section
proximity-rules
closest?
)
...
...
@@ -81,33 +115,4 @@
((
color
:red
)))
(
define-object
proximity-rule
()
:input-slots
(
current-building
neighbors
target-type
distance
)
:computed-slots
((
minimum-distance
(
let
(
result
)
(
dolist
(
building
(
the
violated-buildings
)
result
)
(
let
((
distance
(
3d-distance
(
the
current-building
center
)
(
the-object
building
center
))))
(
when
(
or
(
null
result
)
(
<
distance
(
first
result
)))
(
setq
result
(
list
distance
building
)))))))
(
violated?
(
not
(
null
(
the
violated-buildings
))))
;;
;; This will end up as a list of other buildings which violate the
;; proximity rule. It can also be nil, which is the same as the
;; empty list, if no buildings are close enough to violate.
;;
(
violated-buildings
(
let
(
result
)
(
dolist
(
building
(
the
neighbors
)
(
nreverse
result
))
(
when
(
and
(
typep
building
(
the
target-type
))
(
not
(
eql
building
(
the
current-building
)))
(
<
(
3d-distance
(
the
current-building
center
)