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

added wire-world demo

parent 46bc6c63
......@@ -13,14 +13,7 @@
:depends-on
(:gdl-gwl-graphics)
:components
((:file "aero-demo-1/source/package")
(: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/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")
......@@ -49,6 +42,5 @@
(: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/assembly")
(:file "wire-world/source/package")))
\ No newline at end of file
(:file "site/source/security") (:file "wire-world/source/package")
(:file "wire-world/source/assembly")))
\ 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 @@
;;
;; FLAG -- duplicated from objects.lisp, inputs.lisp, functions.lisp, and above in this file.
;;
`(unless (and (fboundp ',(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))
`(unless nil #+nil (and (fboundp ',(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))
(defmethod ,(glisp:intern (symbol-name slot) :gdl-inputs) ((,parent-arg gdl-basis)
,part-arg
(,self-arg gdl-basis))
......@@ -127,9 +127,9 @@
(trickle-down-basis ,self-arg ',slot ,args-arg)))
`(unless nil #+nil(and (fboundp ',(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))
`(unless nil #+nil (and (fboundp ',(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))
(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)))
......
......@@ -101,7 +101,8 @@
;;
;; 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))
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)
......
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