Commit 3d541104 authored by Dave Cooper's avatar Dave Cooper
Browse files

removed all warnings for asdf compile.

parent d2054fd7
(asdf:defsystem #:gdl-demos :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 "2012051300" :depends-on (:gdl-gwl-graphics)
:components
((:file "robot/source/package")
(:file "robot/source/assembly")
(:file "newsite/source/package")
(:file "newsite/source/locales")
(:file "newsite/source/Services")
(:file "newsite/source/assembly")
(:file "newsite/source/configurator-engine")
(:file "newsite/source/configurator")
(:file "newsite/source/contact-us")
(:file "newsite/source/demos")
(:file "newsite/source/documentation")
(:file "newsite/source/downloads")
(:file "newsite/source/explanations")
(:file "newsite/source/index")
(:file "newsite/source/language")
(:file "newsite/source/licensing")
(:file "newsite/source/mixins")
(:file "newsite/source/news")
(:file "newsite/source/people")
(:file "newsite/source/product-descriptions")
(:file "newsite/source/products")
(:file "newsite/source/publish")
(:file "twenty-four/source/infpre")
(:file "twenty-four/source/assembly")
(:file "twenty-four/source/cards-by-number")
(:file "twenty-four/source/find")
(:file "bus/source/package")
(:file "bus/source/assembly")
(:file "bus/source/body")
(:file "bus/source/chassis")
(:file "bus/source/interior")
(:file "bus/source/rule-ackermann")
(:file "bus/source/axle") (:file "bus/source/fleet")
(:file "bus/source/frame-rail")
(:file "bus/source/frame")
(:file "bus/source/html-writer-assembly")
(:file "bus/source/html-writer-body")
(:file "bus/source/html-writer-chassis")
(:file "bus/source/html-writer-interior")
(:file "bus/source/html-writer-rule-ackermann")
(:file "bus/source/inter-seat-clearance-check")
(:file "bus/source/inter-seat-spacing")
(:file "bus/source/knuckle")
(:file "bus/source/parameters")
(:file "bus/source/publish")
(:file "bus/source/rear-axle")
(:file "bus/source/seat")
(:file "bus/source/seating-section")
(:file "bus/source/seating-side")
(:file "bus/source/wheel")
(:file "glassbox/source/assembly")
(:file "glassbox/source/eco-tree")
(:file "ledger/source/package")
(:file "ledger/source/assembly")
(:file "ledger/source/html")
(:file "site/source/package")
(:file "site/source/assembly")
(:file "site/source/contact")
(:file "site/source/demos")
(:file "site/source/glossary")
(:file "site/source/index")
(:file "site/source/landing")
(:file "site/source/licensing")
(:file "site/source/maintenance")
(:file "site/source/make")
(:file "site/source/mixins")
(:file "site/source/new")
(:file "site/source/opportunities")
(:file "site/source/options")
(:file "site/source/people")
(:file "site/source/pricing")
(:file "site/source/products")
(:file "site/source/publish")
(:file "site/source/security")
(:file "wire-world/source/package")
(:file "wire-world/source/assembly")))
\ No newline at end of file
(asdf:defsystem #:gdl-demos
: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
"2013022100"
:depends-on
(:gdl-gwl-graphics)
:components
((:file "robot/source/package") (:file "robot/source/assembly")
(:file "newsite/source/package") (:file "newsite/source/locales")
(:file "newsite/source/Services")
(:file "newsite/source/assembly")
(:file "newsite/source/configurator-engine")
(:file "newsite/source/configurator")
(:file "newsite/source/contact-us") (:file "newsite/source/demos")
(:file "newsite/source/documentation")
(:file "newsite/source/downloads")
(:file "newsite/source/explanations")
(:file "newsite/source/index") (:file "newsite/source/language")
(:file "newsite/source/licensing") (:file "newsite/source/mixins")
(:file "newsite/source/news") (:file "newsite/source/people")
(:file "newsite/source/product-descriptions")
(:file "newsite/source/products") (:file "newsite/source/publish")
(:file "twenty-four/source/infpre")
(:file "twenty-four/source/cards-by-number")
(:file "twenty-four/source/assembly")
(:file "twenty-four/source/find") (:file "bus/source/package")
(:file "bus/source/assembly") (:file "bus/source/body")
(:file "bus/source/chassis") (:file "bus/source/interior")
(:file "bus/source/rule-ackermann") (:file "bus/source/axle")
(:file "bus/source/fleet") (:file "bus/source/frame-rail")
(:file "bus/source/frame")
(:file "bus/source/html-writer-assembly")
(:file "bus/source/html-writer-body")
(:file "bus/source/html-writer-chassis")
(:file "bus/source/html-writer-interior")
(:file "bus/source/html-writer-rule-ackermann")
(:file "bus/source/inter-seat-clearance-check")
(:file "bus/source/inter-seat-spacing")
(:file "bus/source/knuckle") (:file "bus/source/parameters")
(:file "bus/source/publish") (:file "bus/source/rear-axle")
(:file "bus/source/seat") (:file "bus/source/seating-section")
(:file "bus/source/seating-side") (:file "bus/source/wheel")
(:file "glassbox/source/assembly")
(:file "glassbox/source/eco-tree") (:file "ledger/source/package")
(:file "ledger/source/assembly") (:file "ledger/source/html")
(:file "site/source/package") (:file "site/source/assembly")
(:file "site/source/contact") (:file "site/source/demos")
(:file "site/source/glossary") (:file "site/source/index")
(:file "site/source/landing") (:file "site/source/licensing")
(:file "site/source/maintenance") (:file "site/source/make")
(:file "site/source/mixins") (:file "site/source/new")
(:file "site/source/opportunities") (:file "site/source/options")
(:file "site/source/people") (:file "site/source/pricing")
(:file "site/source/products") (:file "site/source/publish")
(:file "site/source/security") (:file "wire-world/source/package")
(:file "wire-world/source/assembly")))
\ No newline at end of file
......@@ -23,6 +23,7 @@
(in-package :www.genworks.com)
(defparameter *smtp-server* "smtp.comcast.net")
(defparameter *licensed-emails* nil)
(define-object contact-us (base-site-sheet)
......@@ -149,5 +150,5 @@ provide the appropriate level of service.")
(defparameter *licensed-emails* nil)
("infpre")
\ No newline at end of file
("infpre" "cards-by-number")
\ No newline at end of file
......@@ -18,6 +18,7 @@
(defparameter *c* nil)
(defparameter *d* nil)
(defparameter *all-exprs* nil)
(defun twenty-four (a b c d &key (target 24))
......@@ -107,7 +108,7 @@
:nums (rest (the nums)))))
(defparameter *all-exprs* (append (the-object (make-object 'twenty-four) all-exprs) (flat-exprs) ))
(setq *all-exprs* (append (the-object (make-object 'twenty-four) all-exprs) (flat-exprs) ))
......
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