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
f33d61d9
Commit
f33d61d9
authored
Feb 28, 2014
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
updated asd files
parent
e0121a28
Changes
19
Hide whitespace changes
Inline
Side-by-side
Showing
19 changed files
with
445 additions
and
778 deletions
+445
-778
apps/ta2/ta2.asd
apps/ta2/ta2.asd
+10
-25
apps/tasty/tasty.asd
apps/tasty/tasty.asd
+13
-30
apps/translators/translators.asd
apps/translators/translators.asd
+6
-17
apps/tree/tree.asd
apps/tree/tree.asd
+6
-17
apps/yadd/yadd.asd
apps/yadd/yadd.asd
+11
-25
base/base.asd
base/base.asd
+13
-32
base/source/parameters.lisp
base/source/parameters.lisp
+203
-202
cl-lite/cl-lite.asd
cl-lite/cl-lite.asd
+6
-18
demos/bus/bus.asd
demos/bus/bus.asd
+13
-32
demos/ledger/ledger.asd
demos/ledger/ledger.asd
+6
-17
demos/robot/robot.asd
demos/robot/robot.asd
+7
-18
demos/wire-world/wire-world.asd
demos/wire-world/wire-world.asd
+5
-14
documentation/training/g102-tud/examples/examples.asd
documentation/training/g102-tud/examples/examples.asd
+6
-18
geom-base/geom-base.asd
geom-base/geom-base.asd
+24
-54
glisp/glisp.asd
glisp/glisp.asd
+6
-17
gwl-graphics/gwl-graphics.asd
gwl-graphics/gwl-graphics.asd
+8
-22
gwl/gwl.asd
gwl/gwl.asd
+15
-36
regression/regression.asd
regression/regression.asd
+41
-88
surf/surf.asd
surf/surf.asd
+46
-96
No files found.
apps/ta2/ta2.asd
View file @
f33d61d9
;;;; -*- 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
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140208"
:depends-on
(
:gwl-graphics
)
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140227"
: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 @
f33d61d9
;;;; -*- coding: utf-8 -*-
(
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
"20140208"
:depends-on
(
:tree
:gwl-graphics
)
(
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
"20140227"
: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 @
f33d61d9
;;;; -*- 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
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140208"
:depends-on
(
:gwl
)
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140227"
: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/tree.asd
View file @
f33d61d9
;;;; -*- 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
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140208"
:depends-on
(
:gwl-graphics
)
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140227"
: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 @
f33d61d9
;;;; -*- coding: utf-8 -*-
(
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
"20140208"
:depends-on
(
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
"20140227"
: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 @
f33d61d9
;;;; -*- coding: utf-8 -*-
(
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
"20140208"
:depends-on
nil
(
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
"20140227"
: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"
)
...
...
@@ -36,15 +22,10 @@
(
: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"
)))
base/source/parameters.lisp
View file @
f33d61d9
;;
;; Copyright 2002-2011 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:gdl
)
(
defparameter
*gendl-version*
"1585p002"
)
;;(defparameter *gendl-version* "ql-2013-12")
(
defparameter
*gendl-patch-level*
nil
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
when
(
not
(
boundp
'*production-build?*
))
(
defvar
*production-build?*
nil
)))
;;
;; FLAG this belongs in :geom-base.
;;
(
defparameter
*curve-chords*
50
"Integer. The number of chords to use per Bezier curve when rendering
curves as a sequence of straight chords (e.g. in VRML)."
)
(
defparameter
*compiling-changes*
nil
)
(
defvar
*load-source-code-database?*
t
;;(not *production-build?*)
"Boolean. Determines whether pre-compiled source code
information will be loaded from compiled files. Defaults to T."
)
(
defvar
*load-documentation-database?*
t
;;t ;;(not *production-build?*)
"Boolean. Determines whether pre-compiled documentation strings
information will be loaded from compiled files. Defaults to T."
)
(
defvar
*compile-source-code-database?*
t
;;(not *production-build?*)
"Boolean. Determines whether source code information
information will be compiled into compiled files. Defaults to T."
)
(
defvar
*compile-documentation-database?*
t
;;t ;;(not *production-build?*)
"Boolean. Determines whether documentation strings
information will be compiled into compiled files. Defaults to T."
)
(
defparameter
*retain-object-identity-on-type-change?*
t
)
(
defparameter
*dummy-version*
(
list
0
))
(
defparameter
*notify-cons*
nil
)
(
defparameter
*root-checking-enabled?*
t
"Boolean. Determines whether dependency-tracking carries over between objects which
do not share a common root. Default is T which means dependency-tracking does <b>not</b>
carry over (the checking prevents it)."
)
(
defparameter
*till-now*
nil
)
(
defvar
*compile-circular-reference-detection?*
nil
"Boolean. This is a compile-time switch. Determines whether the system detects circular references
in messages. Defaults to NIL."
)
(
defvar
*run-with-circular-reference-detection?*
nil
"Boolean. This is a runtime switch. Determines whether the system detects circular references
in messages. Defaults to NIL."
)
;;(defvar *compile-circular-reference-detection?* t)
;;(defvar *run-with-circular-reference-detection?* t)
(
defvar
*compile-dependency-tracking?*
t
"Boolean. This is a compile-time switch. Determines whether the system keeps track of object and message
dependencies at runtime, thereby enabling the modification of messages and subsequent proper
demand-driven recomputation of other messages in the object hierarchy. This switch must
be set at the beginning of a session before comiling all code; switching it in the middle
of a session (especially from NIL to T) will have unpredictable effects and very likely will
result in incorrect operation. Defaults to T."
)
(
defvar
*run-with-dependency-tracking?*
t
"Boolean. This is a runtime switch. Determines whether the system keeps track of object and message
dependencies at runtime, thereby enabling the modification of messages and subsequent proper
demand-driven recomputation of other messages in the object hierarchy. This switch must
be set at the beginning of a session; switching it in the middle of a session (especially
from NIL to T) will have unpredictable effects and very likely will result in incorrect
operation. Defaults to T."
)
(
defvar
*undeclared-parameters-enabled?*
nil
;;t
"Boolean. This is a compile-time switch. Determines whether the system will handle inputs passed
to child parts through :parameters plists, where the input is not declared in any other
part as either an input-slot or computed-slot. If you leave this as NIL when compiling
your application you may see an improvement in runtime performance of up to 10% as
compared to applications compiled with it set to T. Defaults to NIL."
)
(
defparameter
*debug?*
nil
)
(
defparameter
*debug-object*
nil
)
(
defparameter
*report-gdl-redefinitions?*
t
)
(
defparameter
*allowed-part-documentation-keywords*
(
list
:author
:purpose
:description
:examples
:example
))
(
defparameter
*message-categories*
(
list
:required-input-slots
:optional-input-slots
:settable-optional-input-slots
:defaulted-input-slots
:settable-defaulted-input-slots
:computed-slots
:settable-computed-slots
:uncached-computed-slots
:objects
:quantified-objects
:hidden-objects
:quantified-hidden-objects
:functions
:query-slots
))
(
defparameter
*stream*
nil
)
(
defparameter
*colors-default*
(
list
:foreground
:black
:background
:white
)
"Plist. Should contain keys of at least <tt>:foreground</tt> and <tt>:background</tt>, whose
values are a color indicator for the default foreground and background of graphics viewports. The
default is <tt>:black</tt> for foreground, and <tt>:white</tt> for background."
)
(
defparameter
*%format%*
nil
)
(
defvar
args-arg
(
gensym
))
(
defvar
parent-arg
(
gensym
))
(
defvar
part-arg
(
gensym
))
(
defvar
val-arg
(
gensym
))
(
defvar
self-arg
(
gensym
))
(
defparameter
*error-on-not-handled?*
t
)
(
glisp:define-constant
+reserved-words+
(
mapcar
#'
(
lambda
(
symbol
)
(
glisp:intern
symbol
:gdl-acc
))
'
(
aggregate
children
;;documentation
first
first?
follow-root-path
hidden-children
index
last
last?
leaf?
message-list
mixins
next
parent
parent-tree
previous
restore-slot-default!
root
root-path
root?
set-slot!
set-slots!
slot-documentation
type
update!
color-decimal
edge-center
face-center
face-normal-vector
local-center
obliqueness
vertex
)))
(
defparameter
*error-on-reserved-words?*
t
)
(
defparameter
*compile-for-dgdl?*
nil
"Boolean. Determines whether
global methods are defined during compilation to allow calling any
message on a gdl remote-object. This functionality is not available
in the base by itself, it requires the :gwl system as well.
Defaults to nil."
)
#+
nil
(
defparameter
*compile-for-dgdl?*
t
"Boolean. Determines whether
global methods are defined during compilation to allow calling any
message on a gdl remote-object. This functionality is not available
in the core GDL kernel and depends on additional web/networking
modules. Defaults to t."
)
(
defparameter
*gs-path*
nil
)
;;
;; Copyright 2002-2011 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:gdl
)
;;(defparameter *gendl-version* "1585p002")
(
defparameter
*gendl-version*
"1587devo"
)
;;(defparameter *gendl-version* "ql-2013-12")
(
defparameter
*gendl-patch-level*
nil
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
when
(
not
(
boundp
'*production-build?*
))
(
defvar
*production-build?*
nil
)))
;;
;; FLAG this belongs in :geom-base.
;;
(
defparameter
*curve-chords*
50
"Integer. The number of chords to use per Bezier curve when rendering
curves as a sequence of straight chords (e.g. in VRML)."
)
(
defparameter
*compiling-changes*
nil
)
(
defvar
*load-source-code-database?*
t
;;(not *production-build?*)
"Boolean. Determines whether pre-compiled source code
information will be loaded from compiled files. Defaults to T."
)
(
defvar
*load-documentation-database?*
t
;;t ;;(not *production-build?*)
"Boolean. Determines whether pre-compiled documentation strings
information will be loaded from compiled files. Defaults to T."
)
(
defvar
*compile-source-code-database?*
t
;;(not *production-build?*)
"Boolean. Determines whether source code information
information will be compiled into compiled files. Defaults to T."
)
(
defvar
*compile-documentation-database?*
t
;;t ;;(not *production-build?*)
"Boolean. Determines whether documentation strings
information will be compiled into compiled files. Defaults to T."
)
(
defparameter
*retain-object-identity-on-type-change?*
t
)
(
defparameter
*dummy-version*
(
list
0
))
(
defparameter
*notify-cons*
nil
)
(
defparameter
*root-checking-enabled?*
t
"Boolean. Determines whether dependency-tracking carries over between objects which
do not share a common root. Default is T which means dependency-tracking does <b>not</b>
carry over (the checking prevents it)."
)
(
defparameter
*till-now*
nil
)
(
defvar
*compile-circular-reference-detection?*
nil
"Boolean. This is a compile-time switch. Determines whether the system detects circular references
in messages. Defaults to NIL."
)
(
defvar
*run-with-circular-reference-detection?*
nil
"Boolean. This is a runtime switch. Determines whether the system detects circular references
in messages. Defaults to NIL."
)
;;(defvar *compile-circular-reference-detection?* t)
;;(defvar *run-with-circular-reference-detection?* t)
(
defvar
*compile-dependency-tracking?*
t
"Boolean. This is a compile-time switch. Determines whether the system keeps track of object and message
dependencies at runtime, thereby enabling the modification of messages and subsequent proper
demand-driven recomputation of other messages in the object hierarchy. This switch must
be set at the beginning of a session before comiling all code; switching it in the middle
of a session (especially from NIL to T) will have unpredictable effects and very likely will
result in incorrect operation. Defaults to T."
)
(
defvar
*run-with-dependency-tracking?*
t
"Boolean. This is a runtime switch. Determines whether the system keeps track of object and message
dependencies at runtime, thereby enabling the modification of messages and subsequent proper
demand-driven recomputation of other messages in the object hierarchy. This switch must
be set at the beginning of a session; switching it in the middle of a session (especially
from NIL to T) will have unpredictable effects and very likely will result in incorrect
operation. Defaults to T."
)
(
defvar
*undeclared-parameters-enabled?*
nil
;;t
"Boolean. This is a compile-time switch. Determines whether the system will handle inputs passed
to child parts through :parameters plists, where the input is not declared in any other
part as either an input-slot or computed-slot. If you leave this as NIL when compiling
your application you may see an improvement in runtime performance of up to 10% as
compared to applications compiled with it set to T. Defaults to NIL."
)
(
defparameter
*debug?*
nil
)
(
defparameter
*debug-object*
nil
)
(
defparameter
*report-gdl-redefinitions?*
t
)
(
defparameter
*allowed-part-documentation-keywords*
(
list
:author
:purpose
:description
:examples
:example
))
(
defparameter
*message-categories*
(
list
:required-input-slots
:optional-input-slots
:settable-optional-input-slots
:defaulted-input-slots
:settable-defaulted-input-slots
:computed-slots
:settable-computed-slots
:uncached-computed-slots
:objects
:quantified-objects
:hidden-objects
:quantified-hidden-objects
:functions
:query-slots
))
(
defparameter
*stream*
nil
)
(
defparameter
*colors-default*
(
list
:foreground
:black
:background
:white
)
"Plist. Should contain keys of at least <tt>:foreground</tt> and <tt>:background</tt>, whose
values are a color indicator for the default foreground and background of graphics viewports. The
default is <tt>:black</tt> for foreground, and <tt>:white</tt> for background."
)
(
defparameter
*%format%*
nil
)
(
defvar
args-arg
(
gensym
))
(
defvar
parent-arg
(
gensym
))
(
defvar
part-arg
(
gensym
))
(
defvar
val-arg
(
gensym
))
(
defvar
self-arg
(
gensym
))
(
defparameter
*error-on-not-handled?*
t
)
(
glisp:define-constant
+reserved-words+
(
mapcar
#'
(
lambda
(
symbol
)
(
glisp:intern
symbol
:gdl-acc
))
'
(
aggregate
children
;;documentation
first
first?
follow-root-path
hidden-children
index
last
last?
leaf?
message-list
mixins
next
parent
parent-tree
previous
restore-slot-default!
root
root-path
root?
set-slot!
set-slots!
slot-documentation
type
update!
color-decimal
edge-center
face-center
face-normal-vector
local-center
obliqueness
vertex
)))
(
defparameter
*error-on-reserved-words?*
t
)
(
defparameter
*compile-for-dgdl?*
nil
"Boolean. Determines whether<