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
093aa360
Commit
093aa360
authored
Mar 10, 2013
by
Dave Cooper
Browse files
Prepared for March Quicklisp release. Removed non-essential asd files, fixed warnings.
parent
d800d0e4
Changes
7
Hide whitespace changes
Inline
Side-by-side
documentation/tutorial/gdl-tutorial.asd
deleted
100644 → 0
View file @
d800d0e4
(
defsystem
#:gdl-tutorial
:description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2013031000"
:depends-on
(
:gdl-dom
)
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/introduction"
)
(
:file
"source/installation"
)
(
:file
"source/basic-operation"
)
(
:file
"source/upgrade-notes"
)
(
:gdl
"source/understanding-common-lisp"
)
(
:gdl
"source/understanding-gendl"
)
(
:gdl
"source/advanced-common-lisp"
)
(
:gdl
"source/advanced-gendl"
)
(
:file
"source/tasty-environment"
)
(
:file
"source/gendl-geometry"
)
(
:file
"source/custom-user-interfaces"
)
(
:file
"source/assembly"
)))
\ No newline at end of file
gdl/apps/server-log/gdl-server-log.asd
deleted
100644 → 0
View file @
d800d0e4
(
defsystem
#:gdl-server-log
:description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2013031000"
:depends-on
(
:gdl-gwl
)
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/publish"
)))
\ No newline at end of file
gdl/base/expanders/source/objects.lisp
View file @
093aa360
...
...
@@ -113,7 +113,7 @@
(
eql
part-type-symbol
'remote-object
)
(
not
*compile-for-dgdl?*
))
(
warn
"You are compiling an object of type 'remote-oject,
(
warn
"You are compiling an object of type 'remote-o
b
ject,
and you have *compile-for-dgdl?* set to nil.
You probably want to do
...
...
regression/dgdl/source/remote.lisp
View file @
093aa360
...
...
@@ -20,7 +20,8 @@ To use:
|#
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
setq
*compile-for-dgdl?*
t
))
(
define-object
container
()
:objects
((
remote-1
:type
'remote-object
...
...
@@ -31,4 +32,7 @@ To use:
(
define-object
remote-1
()
:computed-slots
((
slot-1
"one"
)))
\ No newline at end of file
((
slot-1
"one"
)))
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
setq
*compile-for-dgdl?*
nil
))
\ No newline at end of file
regression/gdl-regression.asd
View file @
093aa360
...
...
@@ -15,8 +15,8 @@
:components
((
:file
"utils/source/package"
)
(
:file
"utils/source/genworks"
)
(
:file
"utils/source/parameters"
)
(
:file
"utils/source/functions"
)
(
:file
"utils/source/parameters"
)
(
:file
"assembly-output/source/package"
)
(
:file
"assembly-output/source/bracket-test"
)
(
:file
"assembly-output/source/bracket"
)
...
...
regression/threads/source/box-solid.lisp
View file @
093aa360
(
in-package
:gdl-lift-tests
)
#+
allegro
(
defparameter
*box-solid-lock*
(
mp:make-process-lock
:name
"box-solid-lock"
))
#+
allegro
(
defparameter
*collected-breps*
nil
)
#+
allegro
(
defparameter
*collected-breps-old*
nil
)
#+
allegro
(
defun
make-and-check-box-solid
(
&key
(
value
20
)
(
n
nil
))
(
let
(
self
)
...
...
@@ -18,13 +22,14 @@
(
expt
value
3
)
(
the
volume
)
(
if
n
(
format
nil
" and n is ~a."
n
)
""
))))))
#+
allegro
(
defun
delete-collected-breps
()
(
mp:process-run-function
"delete-breps"
#'
(
lambda
()
(
dolist
(
brep
*collected-breps*
)
(
mp:with-process-lock
(
smlib::*smlib-lock*
)
(
smlib::delete-iwbrep
brep
))))))
#+
allegro
(
defun
start-box-threads
(
&key
(
times
2000
))
...
...
regression/utils/source/file-ordering.isc
View file @
093aa360
...
...
@@ -19,5 +19,5 @@
;; <http://www.gnu.org/licenses/>.
;;
("package" "genworks")
("package" "genworks"
"parameters"
)
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