Commit ef194da9 authored by Dave Cooper's avatar Dave Cooper
Browse files

added wire-world demo

parent 46bc6c63
...@@ -13,14 +13,7 @@ ...@@ -13,14 +13,7 @@
:depends-on :depends-on
(:gdl-gwl-graphics) (:gdl-gwl-graphics)
:components :components
((:file "aero-demo-1/source/package") ((:file "bus/source/package") (:file "bus/source/assembly")
(:file "aero-demo-1/source/interior-ref-surf")
(:file "aero-demo-1/source/material")
(:file "aero-demo-1/source/parameters")
(:file "aero-demo-1/source/ref-surface")
(:file "aero-demo-1/source/surface-trim")
(:file "aero-demo-1/source/utilities")
(:file "bus/source/package") (:file "bus/source/assembly")
(:file "bus/source/body") (:file "bus/source/chassis") (:file "bus/source/body") (:file "bus/source/chassis")
(:file "bus/source/interior") (:file "bus/source/rule-ackermann") (:file "bus/source/interior") (:file "bus/source/rule-ackermann")
(:file "bus/source/axle") (:file "bus/source/fleet") (:file "bus/source/axle") (:file "bus/source/fleet")
...@@ -49,6 +42,5 @@ ...@@ -49,6 +42,5 @@
(:file "site/source/opportunities") (:file "site/source/options") (:file "site/source/opportunities") (:file "site/source/options")
(:file "site/source/people") (:file "site/source/pricing") (:file "site/source/people") (:file "site/source/pricing")
(:file "site/source/products") (:file "site/source/publish") (:file "site/source/products") (:file "site/source/publish")
(:file "site/source/security") (:file "site/source/security") (:file "wire-world/source/package")
(:file "wire-world/source/assembly") (:file "wire-world/source/assembly")))
(:file "wire-world/source/package"))) \ No newline at end of file
\ No newline at end of file
("4bar" "missile") ("aero-demo-1" "4bar" "missile")
(in-package :genworks.com)
("package")
\ No newline at end of file
...@@ -109,9 +109,9 @@ ...@@ -109,9 +109,9 @@
;; ;;
;; FLAG -- duplicated from objects.lisp, inputs.lisp, functions.lisp, and above in this file. ;; FLAG -- duplicated from objects.lisp, inputs.lisp, functions.lisp, and above in this file.
;; ;;
`(unless (and (fboundp ',(glisp:intern (symbol-name slot) :gdl-inputs)) `(unless nil #+nil (and (fboundp ',(glisp:intern (symbol-name slot) :gdl-inputs))
(find-method (symbol-function ',(glisp:intern (symbol-name slot) :gdl-inputs)) (find-method (symbol-function ',(glisp:intern (symbol-name slot) :gdl-inputs))
nil (list (find-class 'gdl-basis) (find-class t) (find-class 'gdl-basis)) nil)) nil (list (find-class 'gdl-basis) (find-class t) (find-class 'gdl-basis)) nil))
(defmethod ,(glisp:intern (symbol-name slot) :gdl-inputs) ((,parent-arg gdl-basis) (defmethod ,(glisp:intern (symbol-name slot) :gdl-inputs) ((,parent-arg gdl-basis)
,part-arg ,part-arg
(,self-arg gdl-basis)) (,self-arg gdl-basis))
...@@ -127,9 +127,9 @@ ...@@ -127,9 +127,9 @@
(trickle-down-basis ,self-arg ',slot ,args-arg))) (trickle-down-basis ,self-arg ',slot ,args-arg)))
`(unless nil #+nil(and (fboundp ',(glisp:intern (symbol-name slot) :gdl-slots)) `(unless nil #+nil (and (fboundp ',(glisp:intern (symbol-name slot) :gdl-slots))
(find-method (symbol-function ',(glisp:intern (symbol-name slot) :gdl-slots)) (find-method (symbol-function ',(glisp:intern (symbol-name slot) :gdl-slots))
nil (list (find-class 'gdl-basis)) nil)) nil (list (find-class 'gdl-basis)) nil))
(defmethod ,(glisp:intern (symbol-name slot) :gdl-slots) ((,self-arg gdl-basis) &rest ,args-arg) (defmethod ,(glisp:intern (symbol-name slot) :gdl-slots) ((,self-arg gdl-basis) &rest ,args-arg)
(chase-up-trickle-down ',(glisp:intern (symbol-name slot) :gdl-slots) ,self-arg ,args-arg))) (chase-up-trickle-down ',(glisp:intern (symbol-name slot) :gdl-slots) ,self-arg ,args-arg)))
......
...@@ -101,7 +101,8 @@ ...@@ -101,7 +101,8 @@
;; ;;
;; FLAG -- duplicated from inputs.lisp, objects.lisp, and computed-slots.lisp ;; FLAG -- duplicated from inputs.lisp, objects.lisp, and computed-slots.lisp
;; ;;
`(unless (and (fboundp ',(glisp:intern (symbol-name attr-sym) :gdl-inputs)) `(unless nil
#+nil (and (fboundp ',(glisp:intern (symbol-name attr-sym) :gdl-inputs))
(find-method (symbol-function ',(glisp:intern (symbol-name attr-sym) :gdl-inputs)) (find-method (symbol-function ',(glisp:intern (symbol-name attr-sym) :gdl-inputs))
nil (list (find-class 'gdl-basis) (find-class t) (find-class 'gdl-basis)) nil)) nil (list (find-class 'gdl-basis) (find-class t) (find-class 'gdl-basis)) nil))
(defmethod ,(glisp:intern (symbol-name attr-sym) :gdl-inputs) ((,parent-arg gdl-basis) (defmethod ,(glisp:intern (symbol-name attr-sym) :gdl-inputs) ((,parent-arg gdl-basis)
......
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