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
15a6cc91
Commit
15a6cc91
authored
May 21, 2013
by
Dave Cooper
Browse files
Merge branch 'slime-devel'
parents
93b0fed1
2a2571bb
Changes
28
Show whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
15a6cc91
...
...
@@ -4,7 +4,7 @@
"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
"20130
430
"
:depends-on
(
:gwl-graphics
)
:version
"20130
501
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/tasty/tasty.asd
View file @
15a6cc91
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Web-based Development Environment (tasty)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130
430
"
:depends-on
(
:tree
:gwl-graphics
)
:version
"20130
501
"
:depends-on
(
:tree
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/translators/translators.asd
View file @
15a6cc91
...
...
@@ -4,7 +4,7 @@
"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
"20130
430
"
:depends-on
(
:gwl
)
:version
"20130
501
"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
...
...
apps/tree/tree.asd
View file @
15a6cc91
...
...
@@ -4,7 +4,7 @@
"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
"20130
430
"
:depends-on
(
:gwl-graphics
)
:version
"20130
501
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/yadd/yadd.asd
View file @
15a6cc91
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130
430
"
:depends-on
(
:gwl-graphics
)
:version
"20130
501
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
...
...
base/base.asd
View file @
15a6cc91
...
...
@@ -3,7 +3,7 @@
(
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
"20130
430
"
:depends-on
nil
:serial
t
:version
"20130
501
"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
...
...
base/source/genworks.lisp
View file @
15a6cc91
...
...
@@ -275,6 +275,11 @@
#+
sbcl
(
sb-kernel:package-doc-string
(
find-package
package
)))
(
defun
set-default-character-width
()
#+
lispworks
(
lispworks:set-default-character-element-type
'lispworks:simple-char
)
)
(
defun
set-default-float-format
()
#+
allegro
(
tpl:setq-default
*read-default-float-format*
'double-float
)
#+
ccl
(
ccl::def-standard-initial-binding
*read-default-float-format*
'double-float
)
...
...
base/source/package.lisp
View file @
15a6cc91
...
...
@@ -322,6 +322,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:make-sans-value-hash-table
#:make-weak-hash-table
#:make-versioned-features
#:set-default-character-width
#:set-default-float-format
#:set-default-package
#:set-defpackage-behavior
...
...
base/source/presets.lisp
View file @
15a6cc91
...
...
@@ -2,3 +2,4 @@
(
glisp:set-default-float-format
)
(
glisp:set-defpackage-behavior
)
(
glisp:set-default-character-width
)
base/source/start.lisp
View file @
15a6cc91
...
...
@@ -68,6 +68,11 @@
(
defun
startup-banner
()
#+
lispworks
(
format
t
"Welcome to Gendl on LispWorks where we can't print wide chars at the moment."
)
#-
lispworks
(
format
t
"
...
...
cl-lite/cl-lite.asd
View file @
15a6cc91
...
...
@@ -3,7 +3,7 @@
(
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
"20130
430
"
:depends-on
(
:glisp
)
:serial
t
:version
"20130
501
"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
demos/bus/bus.asd
View file @
15a6cc91
...
...
@@ -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
"20130
430
"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"20130
501
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/ledger/ledger.asd
View file @
15a6cc91
...
...
@@ -3,7 +3,7 @@
(
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
"20130
430
"
:depends-on
(
:gwl
)
:serial
t
:version
"20130
501
"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/robot/robot.asd
View file @
15a6cc91
...
...
@@ -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
"20130
430
"
:depends-on
(
:gwl-graphics
)
:version
"20130
501
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/wire-world/wire-world.asd
View file @
15a6cc91
...
...
@@ -4,6 +4,6 @@
"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
"20130
430
"
:depends-on
(
:gwl-graphics
)
:version
"20130
501
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
documentation/training/g102-tud/examples/examples.asd
View file @
15a6cc91
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130
430
"
:depends-on
nil
:version
"20130
501
"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
documentation/training/g102-tud/source/publish.lisp
View file @
15a6cc91
...
...
@@ -6,8 +6,7 @@
(
print-variables
*load-truename*
)
(
defparameter
*images-path*
(
merge-pathnames
"g102-tud/images/"
(
glisp:system-home
:gdl-training
)))
(
defparameter
*images-path*
(
merge-pathnames
"documentation/training/g102-tud/images/"
glisp:*gendl-source-home*
))
(
publish-directory
:prefix
"/g102-tud/images/"
:destination
(
format
nil
"~a"
*images-path*
))
...
...
documentation/training/g102/source/publish.lisp
View file @
15a6cc91
...
...
@@ -7,7 +7,7 @@
(
print-variables
*load-truename*
)
(
defparameter
*images-path*
(
merge-pathnames
"g102/images/"
(
glisp:
system-home
:gdl-training
)
))
(
defparameter
*images-path*
(
merge-pathnames
"
documentation/training/
g102/images/"
glisp:
*gendl-source-home*
))
(
publish-directory
:prefix
"/g102/images/"
...
...
documentation/training/g108/source/publish.lisp
View file @
15a6cc91
...
...
@@ -4,11 +4,9 @@
:function
#'
(
lambda
(
req
ent
)
(
gwl-make-object
req
ent
"training-g108:assembly"
)))
(
defparameter
*images-path*
(
merge-pathnames
"g108/images/"
(
glisp:system-home
"gdl-training"
)))
(
defparameter
*images-path*
(
merge-pathnames
"documentation/training/g108/images/"
glisp:*gendl-source-home*
))
(
publish-directory
:prefix
"/g108/images/"
:destination
(
format
nil
"~a"
*images-path*
))
(
publish-directory
:prefix
"/g108/images/"
:destination
(
format
nil
"~a"
*images-path*
))
documentation/training/ignore-list.isc
0 → 100644
View file @
15a6cc91
("legacy")
\ No newline at end of file
Prev
1
2
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