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
c794c62f
Commit
c794c62f
authored
Dec 08, 2013
by
Dave Cooper
Browse files
cleaned up SBCL compile warnings/errors for December Quicklisp release.
parent
78c72d7a
Changes
43
Hide whitespace changes
Inline
Side-by-side
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"
)))
Prev
1
2
3
Next
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