Commit c794c62f authored by Dave Cooper's avatar Dave Cooper

cleaned up SBCL compile warnings/errors for December Quicklisp release.

parent 78c72d7a
;;;; -*- 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 "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20131207" :depends-on (:gwl-graphics)
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
: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")))
;;;; -*- coding: utf-8 -*-
(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 "20131207" :depends-on (:tree :gwl-graphics)
(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
"20131207"
: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")))
;;;; -*- 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 "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20131207" :depends-on (:gwl)
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
: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")))
......@@ -160,8 +160,8 @@ Converting to a string to avoid error."
((< (the tatu-line-thickness) 1) (* 400 (the tatu-line-thickness)))
((<= (the tatu-line-thickness) 3) (* 300 (the tatu-line-thickness)))
(t 900))))
(if font-weight (format nil " font-weight: ~a; " font-weight) ""))))
(format nil " font-weight: ~a; " font-weight))))
:onclick (when (the onclick-function)
(funcall (the onclick-function) (the target-object))))
......
;;;; -*- 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 "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20131207" :depends-on (:gwl-graphics)
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
: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")))
;;;; -*- coding: utf-8 -*-
(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 "20131207" :depends-on
(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
"20131207"
: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")))
;;;; -*- coding: utf-8 -*-
(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 "20131207" :depends-on nil
(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
"20131207"
: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")
......@@ -22,10 +36,15 @@
(: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")))
;;;; -*- coding: utf-8 -*-
(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 "20131207" :depends-on (:glisp)
(asdf:defsystem
#:cl-lite
:description
"The Gendl™ Compile-and-Load Lite Utility"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(:glisp)
#-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/cl-lite") (:file "source/initialize")
((:file "source/package")
(:file "source/parameters")
(:file "source/cl-lite")
(:file "source/initialize")
(:file "source/zzinit")))
;;;; -*- coding: utf-8 -*-
(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 "20131207" :depends-on nil
(asdf:defsystem
#:bus
:description
"The Gendl™ Wireframe School Bus Demo"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(#-gwl-graphics :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
: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/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/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
"(#-gwl-graphics :gwl-graphics)"
\ No newline at end of file
(:gwl)
\ No newline at end of file
"(#-gwl :gwl)"
\ No newline at end of file
;;;; -*- coding: utf-8 -*-
(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 "20131207" :depends-on (:gwl)
(asdf:defsystem
#:ledger
:description
"The Gendl™ Ledger Bookkeeping Demo"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(#-gwl :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
(:file "source/html") (:file "source/zzinit")))
((:file "source/package")
(:file "source/assembly")
(:file "source/html")
(:file "source/zzinit")))
()
\ No newline at end of file
"(#-gendl :gwl-graphics)"
\ No newline at end of file
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:robot :description
"The Gendl™ Simplified Android Robot example " :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20131207" :depends-on nil
(asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(#-gendl :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
(:file "source/initialize") (:file "source/parameters")
((:file "source/package")
(:file "source/assembly")
(:file "source/initialize")
(:file "source/parameters")
(:file "source/zzinit")))
(:gwl-graphics)
\ No newline at end of file
"(#-gwl-graphics :gwl-graphics)"
\ No newline at end of file
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:wire-world :description
(asdf:defsystem
#:wire-world
:description
"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 "20131207" :depends-on (:gwl-graphics)
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(#-gwl-graphics :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components ((:file "source/package") (:file "source/assembly")))
:components
((:file "source/package") (:file "source/assembly")))
(:smlib)
\ No newline at end of file
(:gwl-graphics :surf :yadd :bordeaux-threads)
\ No newline at end of file
......@@ -19,7 +19,7 @@
;; <http://www.gnu.org/licenses/>.
;;
(in-package :user)
(in-package :gdl-user)
(defun file-size (pathname)
(with-open-file (in pathname)
......
(:surf)
\ No newline at end of file
(:gwl-graphics :surf)
\ No newline at end of file
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:examples :description
"The Gendl™ examples Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20131207" :depends-on (:surf)
(asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(:gwl-graphics :surf)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/ch2-examples") (:file "source/ch3-examples")
(:gdl "source/primi-plane") (:gdl "source/ui-primi-plane")))
((:file "source/ch2-examples")
(:file "source/ch3-examples")
(:gdl "source/primi-plane")
(:gdl "source/ui-primi-plane")))
......@@ -114,7 +114,7 @@
:length length :center center)))))
(define-view (html-format assembly)()
(define-lens (html-format assembly)()
:output-functions
((model-inputs
()
......
(in-package :user)
(in-package :gdl-user)
(gwl:define-package :city (:export #:assembly))
......@@ -12,7 +12,7 @@
)))
(define-view (html-format surface-ui)()
(define-lens (html-format surface-ui)()
:output-functions
((main-sheet
()
......
(gdl:define-package :ackermann (:export #:assembly) (:use :gwl) (:shadow #:define-package))
(gwl:define-package :ackermann (:export #:assembly))
......@@ -131,7 +131,7 @@
:length length :center center)))))
(define-view (html-format assembly)()
(define-lens (html-format assembly)()
:output-functions
((model-inputs
()
......
......@@ -12,6 +12,40 @@
;; group exercise.
;;
(eval-when (:compile-toplevel :load-toplevel :execute)
(define-object proximity-rule ()
:input-slots (current-building neighbors target-type distance rule-data)
:computed-slots
((minimum-distance (let (result)
(dolist (building (the violated-buildings) result)
(let ((distance (3d-distance
(the current-building center)
(the-object building center))))
(when (or (null result) (< distance (first result)))
(setq result (list distance building)))))))
(violated? (not (null (the violated-buildings))))
;;
;; This will end up as a list of other buildings which violate the
;; proximity rule. It can also be nil, which is the same as the
;; empty list, if no buildings are close enough to violate.
;;
(violated-buildings
(let (result)
(dolist (building (the neighbors) (nreverse result))
(when (and (typep building (the target-type))
(not (eql building (the current-building)))
(< (3d-distance
(the current-building center)
(the-object building center))
(the distance)))
(push building result))))))))
(define-object building (box)
:input-slots (section proximity-rules closest?)
......@@ -81,33 +115,4 @@
((color :red)))
(define-object proximity-rule ()
:input-slots (current-building neighbors target-type distance)
:computed-slots
((minimum-distance (let (result)
(dolist (building (the violated-buildings) result)
(let ((distance (3d-distance
(the current-building center)
(the-object building center))))
(when (or (null result) (< distance (first result)))
(setq result (list distance building)))))))
(violated? (not (null (the violated-buildings))))
;;
;; This will end up as a list of other buildings which violate the
;; proximity rule. It can also be nil, which is the same as the
;; empty list, if no buildings are close enough to violate.
;;
(violated-buildings
(let (result)
(dolist (building (the neighbors) (nreverse result))
(when (and (typep building (the target-type))
(not (eql building (the current-building)))
(< (3d-distance
(the current-building center)
(the-object building center))
(the distance)))
(push building result)))))))
(in-package :user)
(in-package :gdl-user)
(gwl:define-package :city (:export #:assembly))
......@@ -30,11 +30,13 @@
(defun dmapc (function list)
(let ((count -1))
(mapc #'(lambda(element)
(mp:process-run-function
(format nil "thread ~a from dmapcar" (incf count))
function element)) list)))
(let ((element element))
(bt:make-thread function :name (format nil "thread ~a from dmapcar" (incf count)))))
list)))
(eval-when (:compile-toplevel :load-toplevel :execute)
(setq *compile-for-dgdl?* t))
(define-object dgdl-test (base-object)
......@@ -136,5 +138,9 @@
((cl!
()
(load (compile-file-if-needed "~/genworks/training/g105/examples/source/drilled-block.lisp")))))
(eval-when (:compile-toplevel :load-toplevel :execute)
(setq *compile-for-dgdl?* nil))
......@@ -20,10 +20,6 @@
;;
(gwl:define-package :training-g108
(:nicknames :t108 :g108)(:export #:stretch-box))
(in-package :training-g108)
......
;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: user; Base: 10 -*-
(in-package :user)
(in-package :gdl-user)
(gwl:define-package :training-g108 (:use :slide-show) (:export #:assembly))
(gwl:define-package :training-g108 (:use :slide-show) (:export #:assembly #:stretch-box))
......@@ -4,7 +4,7 @@
"The Gendl™ training Subsystem" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130508" :depends-on (:smlib)
:serial t :version "20130508" :depends-on (:gwl-graphics :surf :yadd :bordeaux-threads)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "slide-show/source/package")
......
......@@ -21,63 +21,66 @@
(in-package :gendl-doc)
(defparameter *data*
`((:document :class ("11pt" "book")
:textwidth 6.5
:topmargin 0
:textheight 8.5
:oddsidemargin 0
:evensidemargin 0
:pdfimageresolution "135"
:usepackage ("datetime")
:title "Genworks GDL: A User's Manual"
:date ("\\monthname\\ \\the\\year")
:author "Dave Cooper"
:usepackage ("dvips" "graphicx")
:usepackage ("usenames, dvipsnames" "color")
:usepackage ("makeidx")
:usepackage ("textcomp")
:usepackage ("colorlinks=true, urlcolor=cyan" "hyperref")
:usepackage ("nottoc, numbib" "tocbibind")
:newsavebox ("\\boxedverb")
:makeindex nil)
:frontmatter
:maketitle
(:footnotetext "Copyright "