Commit 093aa360 authored by Dave Cooper's avatar Dave Cooper
Browse files

Prepared for March Quicklisp release. Removed non-essential asd files, fixed warnings.

parent 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
(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
......@@ -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-object,
and you have *compile-for-dgdl?* set to nil.
You probably want to do
......
......@@ -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
......@@ -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")
......
(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))
......
......@@ -19,5 +19,5 @@
;; <http://www.gnu.org/licenses/>.
;;
("package" "genworks")
("package" "genworks" "parameters")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment