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
09340477
Commit
09340477
authored
May 05, 2014
by
Dave Cooper
Browse files
Merge branch 'release/1587p001' into devo
parents
8725b605
17c1c652
Changes
26
Show whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
(
:gwl-graphics
)
:version
"201404
24
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/tasty/tasty.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
(
:tree
:gwl-graphics
)
:version
"201404
24
"
:depends-on
(
:tree
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/translators/translators.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
(
:gwl
)
:version
"201404
24
"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/tree/tree.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
(
:gwl-graphics
)
:version
"201404
24
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/yadd/yadd.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
:version
"201404
24
"
:depends-on
(
:gwl-graphics
#-
allegro
:cl-html-parse
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
base/base.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
nil
:serial
t
:version
"201404
24
"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
base/macros/source/defaulting.lisp
View file @
09340477
...
...
@@ -25,18 +25,13 @@
(
defmacro
defaulting
(
form
&optional
default
)
"Lisp object. Returns a default value if the reference-chain is not handled.
Note: Defaulting is currently implemented with ignore-errors, so it will return the default value
regardless of whether the reference-chain is actually not handled or throws some other error.
This will be updated in a future GDL release only to return the default if the reference-chain
is actually not handled, and to throw any other errors normally.
:arguments (form \"Reference-chain with the or the-object\"
default \"Lisp expression. Default value to return if reference-chain cannot be handled.\")"
(
let
((
value
(
gensym
))
(
error
(
gensym
)))
`
(
multiple-value-bind
(
,
value
,
error
)
(
ignore-errors
,
form
)
(
cond
((
and
,
error
(
typep
,
error
'error
)
(
let
((
string
(
format
nil
"~a"
,
error
)))
(
let
((
string
(
glisp:replace-regexp
(
format
nil
"~a"
,
error
)
(
format
nil
"~%"
)
" "
)))
(
or
(
and
(
search
"attempt to call"
string
)
(
search
"gdl-slots::"
string
))
(
search
"nor any of its ancestor instances could handle the"
string
)
...
...
base/source/parameters.lisp
View file @
09340477
...
...
@@ -22,7 +22,8 @@
(
in-package
:gdl
)
;;(defparameter *gendl-version* "1585p002")
(
defparameter
*gendl-version*
"1587devo"
)
;;(defparameter *gendl-version* "1587devo")
(
defparameter
*gendl-version*
"1587p002"
)
;;(defparameter *gendl-version* "ql-2013-12")
(
defparameter
*gendl-patch-level*
nil
)
...
...
cl-lite/cl-lite.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
(
:glisp
)
:serial
t
:version
"201404
24
"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/bus/bus.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
nil
:serial
t
:version
"201404
24
"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/ledger/ledger.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
:serial
t
:version
"201404
24
"
:depends-on
(
#-
gwl
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
demos/robot/robot.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
nil
:version
"201404
24
"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/wire-world/wire-world.asd
View file @
09340477
...
...
@@ -4,7 +4,7 @@
"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
"201404
16
"
:depends-on
:version
"201404
24
"
:depends-on
(
#-
gwl-graphics
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
documentation/training/g102-tud/examples/examples.asd
View file @
09340477
...
...
@@ -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
"201404
16
"
:depends-on
(
:gwl-graphics
:surf
)
:version
"201404
24
"
:depends-on
(
:gwl-graphics
:surf
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
emacs/gdl.el
View file @
09340477
...
...
@@ -135,6 +135,7 @@
(
defun
gdl
()
(
interactive
)
(
gendl
'gdl
))
(
defun
agdl8
()
(
interactive
)
(
gendl
'agdl8
))
(
defun
agdl
()
(
interactive
)
(
gendl
'agdl
))
(
defun
glime
()
(
interactive
)
(
gendl
))
(
defun
gdl-quit
()
(
interactive
)
(
slime-quit-lisp
))
...
...
geom-base/annotations/source/label.lisp
View file @
09340477
...
...
@@ -135,7 +135,7 @@ and <tt>nil</tt> are supported. The default is nil"
(
:right
(
translate
(
lastcar
(
the
leader-path
))
:right
(
the
text-gap
)))
(
:left
(
translate
(
lastcar
(
the
leader-path
))
:left
(
+
(
the
text-gap
)
(
the-child
width
)))))
:strings
(
or
(
ensure-list
(
the
strings
))
(
ensure-list
(
the
text
)))
:pass-down
(
font
outline-shape-type
character-size
dxf-text-x-scale
dxf-size-ratio
dxf-font
dxf-offset
))))
:pass-down
(
onclick-function
font
outline-shape-type
character-size
dxf-text-x-scale
dxf-size-ratio
dxf-font
dxf-offset
))))
...
...
geom-base/annotations/source/linear-dimension.lisp
View file @
09340477
...
...
@@ -359,5 +359,6 @@ and end-point."
(
the
leader-start
)))
(
the
orientation
))
:pass-down
(
font
character-size
text-x-scale
justification
outline-shape-type
underline?
dxf-text-x-scale
dxf-size-ratio
dxf-font
dxf-offset
))))
dxf-text-x-scale
dxf-size-ratio
dxf-font
dxf-offset
onclick-function
))))
geom-base/geom-base.asd
View file @
09340477
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:geom-base
:description
"The Gendl™ Wireframe Geometry"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201404
16
"
:depends-on
(
:glisp
)
:version
"201404
24
"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
geom-base/text/source/general-note.lisp
View file @
09340477
...
...
@@ -215,6 +215,7 @@ is specified), so it is necessary to explicitly give either start or center for
:text
(
nth
(
the-child
index
)
(
the
string-list
))
:pass-down
(
character-size
text-x-scale
font
underline?
width
dxf-text-x-scale
dxf-font
dxf-offset
dxf-size-ratio
onclick-function
)
:start
(
translate
(
the
start
)
:front
(
*
(
the-child
index
)(
the
leading
))
...
...
glisp/glisp.asd
View file @
09340477
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:glisp
:description
"The Gendl™ Common Lisp Portability"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201404
16
"
:depends-on
:serial
t
:version
"201404
24
"
:depends-on
(
:base
:uiop
:cl-typesetting
:cl-ppcre
:cl-who
#-
allegro
:cl-base64
#-
allegro
:babel
#-
allegro
:acl-compat
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
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