Commit 03eff33b authored by Dave Cooper's avatar Dave Cooper

Re-arranged the system dependencies, added ability to use lambda function for...

Re-arranged the system dependencies, added ability to use lambda function for new-value of global settings.
parent 83911586
(defsystem #:ta2 :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130315" :depends-on (:gwl-graphics)
: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")))
\ No newline at end of file
(asdf:defsystem #:ta2 :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130316" :depends-on (:gwl-graphics)
: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")))
(defsystem #:tasty :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130315" :depends-on
(:tree :gwl-graphics) :components
((:file "source/package") (:file "source/parameters")
(:file "source/assembly") (: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")))
\ No newline at end of file
(asdf:defsystem #:tasty :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130316" :depends-on (:tree :gwl-graphics)
:components
((:file "source/package") (:file "source/parameters")
(:file "source/assembly") (: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")))
(defsystem #:translators :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130315" :depends-on nil :components
((:file "xml/source/package")
(:file "xml/source/genworks")
(:file "xml/source/definition-tree")
(:file "xml/source/gdl2xml")
(:file "xml/source/xml2gdl")))
\ No newline at end of file
(asdf:defsystem #:translators :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130316" :depends-on nil :components
((:file "xml/source/package") (:file "xml/source/genworks")
(:file "xml/source/definition-tree") (:file "xml/source/gdl2xml")
(:file "xml/source/xml2gdl")))
(defsystem #:tree :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130315" :depends-on (:gwl-graphics)
:components
((:file "source/package") (:file "source/parameters")
(:file "source/ajax") (:file "source/assembly")
(:file "source/newertree")))
\ No newline at end of file
(asdf:defsystem #:tree :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130316" :depends-on (:gwl-graphics)
:components
((:file "source/package") (:file "source/parameters")
(:file "source/ajax") (:file "source/assembly")
(:file "source/newertree")))
(defsystem #:yadd :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130315" :depends-on (:gwl-graphics)
:components
((:file "source/package") (:file "source/genworks")
(:file "source/mixins")
(:file "source/define-object-documentation")
(:file "source/assembly") (:file "source/ass")
(:file "source/format-documentation")
(:file "source/function-documentation")
(:file "source/publish") (:file "source/test-part")
(:file "source/variable-documentation")))
\ No newline at end of file
(asdf:defsystem #:yadd :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130316" :depends-on (:gwl-graphics)
:components
((:file "source/package") (:file "source/genworks")
(:file "source/mixins")
(:file "source/define-object-documentation")
(:file "source/assembly") (:file "source/ass")
(:file "source/format-documentation")
(:file "source/function-documentation") (:file "source/publish")
(:file "source/test-part") (:file "source/variable-documentation")))
......@@ -292,19 +292,21 @@
(defun set-settings (settings)
(let (anything-changed?)
(dolist (setting settings)
(destructuring-bind (symbol default new-value) setting
(unless (equalp (symbol-value symbol) new-value)
(setq anything-changed? t)
(format t "Setting ~s from default value ~s to non-default value.~%"
symbol default)
(setf (symbol-value symbol) new-value)))) anything-changed?))
(destructuring-bind (symbol default new-value-or-func) setting
(let ((new-value (if (functionp new-value-or-func)
(funcall new-value-or-func) new-value-or-func)))
(unless (equalp (symbol-value symbol) new-value)
(setf (symbol-value symbol) new-value)
(setq anything-changed? t)
(format t "~&Set ~s from default value ~s to non-default value ~s.~%"
symbol default new-value))))) anything-changed?))
(defun set-features (features)
(let (anything-changed?)
(dolist (feature features)
(dolist (feature (make-versioned-features feature))
(unless (or (null feature) (glisp:featurep feature))
(format t "Pushing ~s onto *features* list.~%" feature)
(format t "~&Pushing ~s onto *features* list.~%" feature)
(push feature *features*)
(setq anything-changed? t)))) anything-changed?))
......
......@@ -200,7 +200,6 @@ If you are interested in this effort we would love to hear from you at open-sour
#:remove-plist-key
#:remove-plist-entry
#:remove-plist-keys
#:replace-regexp*
#:replace-substring
#:restore-ui-object
#:retitle-emacs
......@@ -303,6 +302,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:set-features
#:set-settings
#:set-window-titles
#:sexpr-from-file
#:source-pathname
#:system-home
#:set-genworks-source-home-if-known
......@@ -314,9 +314,6 @@ If you are interested in this effort we would love to hear from you at open-sour
#:xref-off
#:xref-on
;;
;; Implemented in gdl/cl-lite/source/genworks.lisp.
;;
#:*fasl-extension*
#:concatenate-fasls
#:directory-list
......@@ -324,18 +321,13 @@ If you are interested in this effort we would love to hear from you at open-sour
#:temporary-folder
#:temporary-file
;;
;; Implemented in gdl/geom-base/prereqs/source/genworks.lisp
;;
#:find-gs-path
#:get-pid
#:run-gs
#:set-gs-path
#:run-program
#:run-shell-command
;;
;; Implemented in gdl/gwl/source/genworks.lisp
;;
#:*enable-utf8?*
#:*base64-encode-func*
#:*base64-decode-func*
......@@ -358,17 +350,13 @@ If you are interested in this effort we would love to hear from you at open-sour
#:with-timeout-sym
#:with-timeout
;;
;; Implemented in regression/utils/source/genworks.lisp
;;
#:close-old-areas
#:open-old-areas
#:get-mem-info
#:gc-scavenge
;;
;; Implemented in build/source/genworks.lisp
;;
#:copy-directory
#:copy-file
#:delete-directory-and-files
......@@ -378,17 +366,12 @@ If you are interested in this effort we would love to hear from you at open-sour
#:make-gendl-app
#:next-datestamp
;;
;; Implemented in gdl/apps/yadd/source/genworks.lisp
;;
#:autoloaded-packages
#:package-documentation
#:function-documentation
#:variable-documentation
;;
;; Implemented in gdl/apps/translators/xml/source/genworks.lisp
;;
#:parse-xml
))
......@@ -804,6 +787,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:*break-on-set-self?*
#:*jump-to-toplevel-on-set-self?*
#:*process-cookies?*
#:*static-home*
#:encode-root-path
#:base-html-sheet
#:skeleton-ui-element
......
......@@ -30,7 +30,7 @@
(defparameter *packages-to-initialize* (list :gdl :geom-base :gwl))
(defun start-gendl! (&key packages *packages-to-initialize*)
w(defun start-gendl! (&key (packages *packages-to-initialize*))
(dolist (package packages)
(when (find-package package)
(let ((function-sym (read-from-string (format nil "~a::initialize" package))))
......
(defsystem #:cl-lite :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130315" :depends-on (:base :cl-fad)
:components
((:file "source/genworks") (:file "source/cl-lite")))
(asdf:defsystem #:cl-lite :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130316" :depends-on (:glisp) :components
((:file "source/cl-lite")))
......@@ -94,11 +94,10 @@ given as keyword args to this function)."
(base-device (pathname-device
(translate-logical-pathname pathname-host)))
(config-spec (with-open-file (in (make-pathname :directory (append base-dir (list "configs"))
:device base-device
:name config-name
:type "config"))
(read in)))
(config-spec (glisp:sexpr-from-file (make-pathname :directory (append base-dir (list "configs"))
:device base-device
:name config-name
:type "config")))
(bin-files
(apply #'append
(mapcar #'cl-lite
......@@ -160,7 +159,7 @@ given as keyword args to this function)."
(list (the pathname) (user-homedir-pathname)))))
(dolist (file files-to-check)
(when (probe-file file)
(return (with-open-file (in file) (read in))))))))
(return (glisp:sexpr-from-file file)))))))
:input-slots
(
......@@ -275,13 +274,17 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
(error "Could not create ~a in ~a.~%Directory does not exist.~%"
asd-file-name (the pathname)))))
(asdf-depends-on (let ((depends-on-file
(merge-pathnames (make-pathname :name "depends-on"
:type "isc")
(the ppathname))))
(when (probe-file depends-on-file)
(with-open-file (in depends-on-file)
(read in)))))
;;
;; This has to be able to be a string in case it has e.g. #-allegro
;; conditionals in it.
;;
(asdf-depends-on (let ((sexpr (glisp:sexpr-from-file
(merge-pathnames (make-pathname :name "depends-on"
:type "isc")
(the ppathname)))))
(if (stringp sexpr)
(format nil "%%remove%%~a%%remove%%" sexpr) sexpr)))
(additional-asd-code (let ((asd-code-file
(merge-pathnames (make-pathname :name "additional-asd-code"
......@@ -294,16 +297,34 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
(do ((form (read in nil nil) (read in nil nil)))
((null form) (nreverse result))
(push form result))))))))
(asdf-system-list
;;
;; sanitize any strings for the depends-on
;;
(asdf-system-lines (let ((temp-file (glisp:temporary-file)))
(with-open-file (out temp-file :direction :output
:if-exists :supersede
:if-does-not-exist :create)
(pprint (the %asdf-system-list) out))
(with-open-file (in temp-file)
(let (result)
(do ((line (read-line in nil) (read-line in nil)))
((null line) (nreverse result))
(push (glisp:replace-regexp
(glisp:replace-regexp line "%%remove%%\"" "")
"\"%%remove%%" "") result))))))
(%asdf-system-list
(let ((binaries (the compile-and-load)))
(append `(,(read-from-string "asdf:defsystem") ,(read-from-string (format nil "#:~a" (pathname-name (the asd-file))))
(append `("%%remove%%asdf:defsystem%%remove%%"
,(read-from-string (format nil "#:~a" (pathname-name (the asd-file))))
:description ,(the description)
:author ,(the author)
:license ,(the license)
:serial t
:version ,(the version)
:depends-on ,(the asdf-depends-on)
;;
;; FLAG -- maybe can get rid of binaries and need to call (the compile-and-load)
;;
......@@ -374,9 +395,12 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
:if-exists :supersede
:if-does-not-exist :create)
(let ((*print-right-margin* 70)
(*print-case* :downcase)
(*package* (find-package :asdf)))
(pprint (the asdf-system-list) out)
(*print-case* :downcase))
(dolist (line (the asdf-system-lines))
(write-string line out)
(format out "~%"))
(when (the additional-asd-code)
(format out "~%~%")
(pprint (the additional-asd-code) out))))
......@@ -473,14 +497,11 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
source-files-to-ignore)
:computed-slots
((ordering-bias (let ((ordering-info-file
(make-pathname
:directory (pathname-directory (the :pathname))
:device (the :device)
:name "file-ordering"
:type "isc")))
(when (probe-file ordering-info-file)
(with-open-file (in ordering-info-file) (read in)))))
((ordering-bias (glisp:sexpr-from-file (make-pathname
:directory (pathname-directory (the :pathname))
:device (the :device)
:name "file-ordering"
:type "isc")))
;;
;; FLAG -- read this info once in the parent directory object, not here for each file!
......@@ -488,14 +509,12 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
;; FLAG -- convert to use read-isc-file function
;;
;;
(ignore-list (let ((ignore-list-file
(make-pathname
:directory (pathname-directory (the :pathname))
:device (the :device)
:name "ignore-list"
:type "isc")))
(when (probe-file ignore-list-file)
(with-open-file (in ignore-list-file) (read in)))))
(ignore-list (glisp:sexpr-from-file (make-pathname
:directory (pathname-directory (the :pathname))
:device (the :device)
:name "ignore-list"
:type "isc")))
(relevant-files (let (key)
(mapcar #'(lambda (thing)
(if (not (listp thing))
......@@ -595,22 +614,20 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
;;
;; FLAG -- convert to use read-isc-file function.
;;
(ordering-bias (let ((ordering-info-file
(make-pathname
:directory (pathname-directory (the :pathname))
:device (the :device)
:name "system-ordering"
:type "isc")))
(when (probe-file ordering-info-file)
(with-open-file (in ordering-info-file) (read in)))))
(ignore-list (let ((ignore-list-file
(make-pathname
:directory (pathname-directory (the :pathname))
:device (the :device)
:name "ignore-list"
:type "isc")))
(when (probe-file ignore-list-file)
(with-open-file (in ignore-list-file) (read in)))))
(ordering-bias (glisp:sexpr-from-file
(make-pathname
:directory (pathname-directory (the :pathname))
:device (the :device)
:name "system-ordering"
:type "isc")))
(ignore-list (glisp:sexpr-from-file
(make-pathname
:directory (pathname-directory (the :pathname))
:device (the :device)
:name "ignore-list"
:type "isc")))
(subdir-pathnames-unordered (sort
(set-difference
(mapcar #'pathname-directory
......
;;
;; Copyright 2002-2011 Genworks International and Genworks BV
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; 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/>.
;;
("genworks")
;;
;; Copyright 2002-2011, 2012 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; 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 :com.genworks.lisp)
(defparameter *fasl-extension*
#+allegro excl:*fasl-default-type*
#+lispworks compiler:*fasl-extension-string*
#+sbcl sb-fasl:*fasl-file-type*
#+ccl (namestring ccl:*.fasl-pathname*)
#+abcl "abcl"
#+clisp "fas"
#-(or allegro lispworks sbcl ccl abcl clisp) (error "Need fasl extension string for the currently running lisp.~%"))
#-(or allegro lispworks sbcl ccl)
(warn "~&Please implement concatenate-fasls for the currently running lisp.~%")
(defun concatenate-fasls (files dest)
#-(or allegro lispworks sbcl ccl) (declare (ignore files dest))
#-(or allegro lispworks sbcl ccl) (error "~&Please implement concatenate-fasls for the currently running lisp.~%")
#+(or allegro sbcl)
;;
;; Provided by Franz:
;;
;; copy the contents of all files to the file named dest.
;; append .fasl to the filenames
(let ((buffer (make-array 4096 :element-type '(unsigned-byte 8))))
(with-open-file (p dest :direction :output
:if-exists :supersede
:element-type '(unsigned-byte 8))
(dolist (file files)
(with-open-file (in (if (pathname-type file)
file
(format nil "~a.~a" file *fasl-extension*))
:element-type '(unsigned-byte 8))
(do ((count (read-sequence buffer in) (read-sequence buffer in)))
((<= count 0))
(cl:write-sequence buffer p :end count))))))
#+lispworks
;; created a defsystem on the fly and use concatenate-system.
(let ((defsys (concatenate `string
(format nil "(defsystem gdl::my-system () :members (")
(let (result
(bin-files (mapcar #'(lambda(bin-file)
(namestring bin-file))
files)))
(dolist (file bin-files)
(setq result (concatenate 'string result (format nil "~s~%" file))))
result)
(format nil "))~%"))))
(eval (read-from-string defsys))
(lispworks:concatenate-system dest 'my-system))
#+ccl (ccl:fasl-concatenate dest files :if-exists :supersede))
(defvar *wild-entry*
(make-pathname :name :wild :type :wild :version :wild))
;;
;; FLAG -- replace with cl-fad version.
;;
#-(or allegro lispworks clozure)
(warn "please find a copy-directory from cl-fad or elsewhere for ~a~%" (lisp-implementation-type))
(defun copy-directory (from-dir to-dir &rest args)
(declare (ignore args))
#+allegro (excl:copy-directory from-dir to-dir)
#+lispworks (cl-copy-directory to-dir from-dir)
#+clozure (ccl::recursive-copy-directory from-dir to-dir )
#-(or allegro lispworks clozure)
(error "~&copy-directory needed for ~a. Consider cl-fad.~%" (lisp-implementation-type)))
(defun delete-directory-and-files (target &key force quiet (if-does-not-exist :error))
#-allegro (declare (ignore force quiet))
(cond ((probe-file target)
#+lispworks (system:run-shell-command (format nil "rm -rf ~a" target))
#+allegro (excl.osi:delete-directory-and-files
target :force force :quiet quiet)
#-(or allegro (and unix lispworks))
(cl-fad:delete-directory-and-files target :if-does-not-exist if-does-not-exist))
((null if-does-not-exist) nil)
(t (ecase if-does-not-exist
(:ignore nil)
(:warn (warn "Target ~s does not exist.~%" target))
(:error (error "Target ~s does not exist.~%" target))))))
(defun directory-list (pathspec)
"(derived from quicklisp ql-impl-util:directory-entries):
Return all directory entries of DIRECTORY as a
list, or NIL if there are no directory entries. Excludes the \".\"
and \"..\" entries."
#+allegro
(directory pathspec :directories-are-files nil)
#+lispworks
(directory (merge-pathnames *wild-entry* pathspec)
:directories t
:link-transparency nil)
#+sbcl
(directory (merge-pathnames *wild-entry* pathspec)
:resolve-symlinks nil)
#+ccl
(directory (merge-pathnames *wild-entry* pathspec)
:directories t)
#+abcl
(directory (merge-pathnames *wild-entry* pathspec)
:resolve-symlinks nil)
#+clisp
(mapcar 'first
(nconc (directory (merge-pathnames *wild-entry* directory)
:full t)
(directory (merge-pathnames *wild-relative* directory)
:full t))))
(defun file-directory-p (file)
"Returns non-nil if the path is a directory."
(#-(or allegro lispworks) cl-fad:directory-pathname-p
#+allegro excl:file-directory-p
#+lispworks lw:file-directory-p file))
;;
;; temporary-folder is potentially platform-specific so it is defined here.
;;
(defun temporary-folder (&key (create? t))
(let ((folder (merge-pathnames "tmp/" (user-homedir-pathname))))
(when create? (ensure-directories-exist folder))))
(defun temporary-file (&key (extension nil) create?)
(let ((file (merge-pathnames (make-pathname :name (string (gensym))
:type extension)
(temporary-folder))))
(when create?
(with-open-file
(out file :direction :output :if-does-not-exist :create :if-exists :append)
(declare (ignore out))))
;;
;; FLAG -- change this to return true pathname, fix code which uses it
;;
(namestring file)))
(defsystem #:bus :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130315" :depends-on nil :components
((:file "source/package") (:file "source/assembly")
(:file "source/body") (:file "source/chassis")
(:file "source/interior") (:file "source/rule-ackermann")
(:file "source/axle") (:file "source/fleet")
(:file "source/frame-rail") (:file "source/frame")
(:file "source/html-writer-assembly")
(:file "source/html-writer-body")
(:file "source/html-writer-chassis")
(:file "source/html-writer-interior")
(:file "source/html-writer-rule-ackermann")
(:file "source/inter-seat-clearance-check")
(:file "source/inter-seat-spacing")
(:file "source/knuckle") (:file "source/parameters")
(:file "source/publish") (:file "source/rear-axle")
(:file "source/seat") (:file "source/seating-section")
(:file "source/seating-side") (:file "source/wheel")))
\ No newline at end of file
(asdf:defsystem #:bus :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130316" :depends-on nil :components
((:file "source/package") (:file "source/assembly")
(:file "source/body") (:file "source/chassis")
(:file "source/interior") (:file "source/rule-ackermann")
(:file "source/axle") (:file "source/fleet")
(:file "source/frame-rail") (:file "source/frame")
(:file "source/html-writer-assembly")
(:file "source/html-writer-body")
(:file "source/html-writer-chassis")
(:file "source/html-writer-interior")
(:file "source/html-writer-rule-ackermann")
(:file "source/inter-seat-clearance-check")
(:file "source/inter-seat-spacing") (:file "source/knuckle")
(:file "source/parameters") (:file "source/publish")
(:file "source/rear-axle") (:file "source/seat")
(:file "source/seating-section") (:file "source/seating-side")
(:file "source/wheel")))
(defsystem #:ledger :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130315" :depends-on nil :components
((:file "source/package") (:file "source/assembly")
(:file "source/html")))
\ No newline at end of file
(asdf:defsystem #:ledger :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130316" :depends-on nil :components
((:file "source/package") (:file "source/assembly")
(:file "source/html")))
(defsystem #:robot :description