Commit cdb06596 authored by Dave Cooper's avatar Dave Cooper

removed (TM) character, regenerated .asd files

parent 4e926932
;;;; -*- coding: utf-8 -*- ;;;; -*- 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)" "The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "Dave Cooper and Genworks International" :license :author "John McCarthy" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:serial t :version "20130822" :depends-on (:gwl-graphics) :version "20131014" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
:components #+asdf-encoding :encoding #+asdf-encoding :utf-8
((:file "source/package") (:file "source/parameters") :components
(:file "source/javascript") (:file "source/action-object") ((:file "source/package") (:file "source/parameters")
(:file "source/ajax") (:file "source/assembly") (:file "source/javascript") (:file "source/action-object")
(:file "source/click-mode") (:file "source/inspector") (:file "source/ajax") (:file "source/assembly")
(:file "source/object-tree") (:file "source/part-type-form") (:file "source/click-mode") (:file "source/inspector")
(:file "source/publish") (:file "source/viewport"))) (:file "source/object-tree") (:file "source/part-type-form")
(:file "source/publish") (:file "source/viewport")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:tasty :description (asdf:defsystem #:tasty :description
"The Gendl™ Web-based Development Environment (tasty)" :author "The Gendl™ Web-based Development Environment (tasty)" :author
"Dave Cooper and Genworks International" :license "John McCarthy" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:serial t :version "20130822" :depends-on (:tree :gwl-graphics) :version "20131014" :depends-on (:tree :gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
:components #+asdf-encoding :encoding #+asdf-encoding :utf-8
((:file "source/package") (:file "source/parameters") :components
(:file "source/assembly") (:file "source/initialize") ((:file "source/package") (:file "source/parameters")
(:file "source/inspector") (:file "source/menu") (:file "source/assembly") (:file "source/initialize")
(:file "source/new-inspector") (:file "source/newer-inspector") (:file "source/inspector") (:file "source/menu")
(:file "source/part-type-form") (:file "source/publish") (:file "source/new-inspector") (:file "source/newer-inspector")
(:file "source/status-object") (:file "source/test-part") (:file "source/part-type-form") (:file "source/publish")
(:file "source/test-part2") (:file "source/two-viewports") (:file "source/status-object") (:file "source/test-part")
(:file "source/viewport") (:file "source/zzinit"))) (:file "source/test-part2") (:file "source/two-viewports")
(:file "source/viewport") (:file "source/zzinit")))
;;;; -*- coding: utf-8 -*- ;;;; -*- 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" "The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author "Dave Cooper and Genworks International" :license :author "John McCarthy" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:serial t :version "20130822" :depends-on (:gwl) :version "20131014" :depends-on (:gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
:components #+asdf-encoding :encoding #+asdf-encoding :utf-8
((:file "xml/source/package") (:file "xml/source/genworks") :components
(:file "xml/source/definition-tree") (:file "xml/source/gdl2xml") ((:file "xml/source/package") (:file "xml/source/genworks")
(:file "xml/source/xml2gdl"))) (:file "xml/source/definition-tree") (:file "xml/source/gdl2xml")
(:file "xml/source/xml2gdl")))
;;;; -*- coding: utf-8 -*- ;;;; -*- 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" "The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author "Dave Cooper and Genworks International" :license :author "John McCarthy" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:serial t :version "20130822" :depends-on (:gwl-graphics) :version "20131014" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
:components #+asdf-encoding :encoding #+asdf-encoding :utf-8
((:file "source/package") (:file "source/parameters") :components
(:file "source/ajax") (:file "source/assembly") ((:file "source/package") (:file "source/parameters")
(:file "source/newertree"))) (:file "source/ajax") (:file "source/assembly")
(:file "source/newertree")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:yadd :description (asdf:defsystem #:yadd :description
"The Gendl™ Yet Another Definition Documenter (yadd)" :author "The Gendl™ Yet Another Definition Documenter (yadd)" :author
"Dave Cooper and Genworks International" :license "John McCarthy" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:serial t :version "20130822" :depends-on :version "20131014" :depends-on
(:gwl-graphics #-allegro :cl-html-parse) (:gwl-graphics #-allegro :cl-html-parse)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
:components #+asdf-encoding :encoding #+asdf-encoding :utf-8
((:file "source/package") (:file "source/genworks") :components
(:file "source/parameters") (:file "source/mixins") ((:file "source/package") (:file "source/genworks")
(:file "source/define-object-documentation") (:file "source/parameters") (:file "source/mixins")
(:file "source/assembly") (:file "source/ass") (:file "source/define-object-documentation")
(:file "source/format-documentation") (:file "source/assembly") (:file "source/ass")
(:file "source/function-documentation") (:file "source/initialize") (:file "source/format-documentation")
(:file "source/publish") (:file "source/test-part") (:file "source/function-documentation") (:file "source/initialize")
(:file "source/variable-documentation") (:file "source/zzinit"))) (:file "source/publish") (:file "source/test-part")
(:file "source/variable-documentation") (:file "source/zzinit")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:base :description (asdf:defsystem #:base :description
"The Gendl™ Base Core Kernel Engine" :author "The Gendl™ Base Core Kernel Engine" :author "John McCarthy"
"Dave Cooper and Genworks International" :license :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" :serial t :version "20131014" :depends-on nil
:serial t :version "20130822" :depends-on nil #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components :components
((:file "source/package") (:file "source/genworks") ((:file "source/package") (:file "source/genworks")
(:file "source/presets") (:file "source/parameters") (:file "source/presets") (:file "source/parameters")
(:file "source/metaclasses") (:file "source/utilities") (:file "source/metaclasses") (:file "source/utilities")
(:file "source/start") (:file "expanders/source/inputs") (:file "source/start") (:file "expanders/source/inputs")
(:file "expanders/source/computed-slots") (:file "expanders/source/computed-slots")
(:file "expanders/source/functions") (:file "expanders/source/functions")
(:file "expanders/source/methods") (:file "expanders/source/methods")
(:file "expanders/source/objects") (:file "expanders/source/objects")
(:file "macros/source/reference") (:file "macros/source/reference")
(:file "macros/source/message-utils") (:file "macros/source/message-utils")
(:file "macros/source/define-object") (:file "macros/source/define-object")
(:file "macros/source/defaulting") (:file "macros/source/defaulting")
(:file "macros/source/define-format") (:file "macros/source/define-format")
(:file "rest/source/parameters") (:file "rest/source/parameters")
(:file "rest/source/quantification") (:file "rest/source/quantification")
(:file "rest/source/aggregate") (:file "rest/source/utilities") (:file "rest/source/aggregate") (:file "rest/source/utilities")
(:file "rest/source/null-part") (:file "rest/source/vanilla-mixin") (:file "rest/source/null-part") (:file "rest/source/vanilla-mixin")
(:file "rest/source/base-rule-object") (:file "rest/source/bodies") (:file "rest/source/base-rule-object") (:file "rest/source/bodies")
(:file "rest/source/ignore-errors-with-backtrace") (:file "rest/source/ignore-errors-with-backtrace")
(:file "rest/source/init") (:file "rest/source/make-part") (:file "rest/source/init") (:file "rest/source/make-part")
(:file "rest/source/sequence") (:file "zzinit/source/initialize") (:file "rest/source/sequence") (:file "zzinit/source/initialize")
(:file "zzinit/source/zzinit"))) (:file "zzinit/source/zzinit")))
;;;; -*- coding: utf-8 -*-; ;;;; -*- coding: utf-8 -*-
;; ;;
;; Copyright 2002-2011, 2012 Genworks International ;; Copyright 2002-2011, 2012 Genworks International
;; ;;
...@@ -21,7 +21,7 @@ ...@@ -21,7 +21,7 @@
;; ;;
(in-package :com.genworks.lisp) (in-package :com.genworks.lisp)
(defparameter *external-text-format* (defparameter *external-text-format*
#+(and mswindows allegro) (excl:crlf-base-ef :1252) #+(and mswindows allegro) (excl:crlf-base-ef :1252)
#-(and mswindows allegro) :default) #-(and mswindows allegro) :default)
...@@ -327,7 +327,7 @@ ...@@ -327,7 +327,7 @@
#-allegro(warn "Find out how to retitle relevant windows in currently running lisp.~%") #-allegro(warn "Find out how to retitle relevant windows in currently running lisp.~%")
#+(and allegro mswindows) #+(and allegro mswindows)
(defun set-window-titles () (defun set-window-titles ()
(excl:console-control :title "Genworks Gendl Console") (excl:console-control :title "Genworks Gendl® Console")
;;(retitle-emacs) ;;(retitle-emacs)
) )
......
...@@ -75,7 +75,6 @@ ...@@ -75,7 +75,6 @@
Welcome to Gendl® Welcome to Gendl®
Copyright© 2002-2013, Genworks® International, Birmingham MI, USA. Copyright© 2002-2013, Genworks® International, Birmingham MI, USA.
All Rights Reserved. All Rights Reserved.
This program contains free software: you can redistribute it and/or This program contains free software: you can redistribute it and/or
modify it under the terms of the GNU Affero General Public License as modify it under the terms of the GNU Affero General Public License as
published by the Free Software Foundation, either version 3 of the published by the Free Software Foundation, either version 3 of the
...@@ -94,5 +93,3 @@ http://www.gnu.org/licenses/ ...@@ -94,5 +93,3 @@ http://www.gnu.org/licenses/
")) "))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:cl-lite :description (asdf:defsystem #:cl-lite :description
"The Gendl™ Compile-and-Load Lite Utility" :author "The Gendl™ Compile-and-Load Lite Utility" :author "John McCarthy"
"Dave Cooper and Genworks International" :license :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" :serial t :version "20131014" :depends-on (:glisp)
:serial t :version "20130822" :depends-on (:glisp) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components :components
((:file "source/package") (:file "source/parameters") ((:file "source/package") (:file "source/parameters")
(:file "source/cl-lite") (:file "source/initialize") (:file "source/cl-lite") (:file "source/initialize")
(:file "source/zzinit"))) (:file "source/zzinit")))
...@@ -336,7 +336,8 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all ...@@ -336,7 +336,8 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
:serial t :serial t
:version ,(the version) :version ,(the version)
:depends-on ,(the asdf-depends-on) :depends-on ,(the asdf-depends-on)
"%%remove%%#+asdf-encoding :encoding #+asdf-encoding :utf-8%%remove%%" "%%remove%%#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)%%remove%%"
"%%remove%%#+asdf-encodings :encoding #+asdf-encodings :utf-8%%remove%%"
;; ;;
;; FLAG -- maybe can get rid of binaries and need to call (the compile-and-load) ;; FLAG -- maybe can get rid of binaries and need to call (the compile-and-load)
......
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:bus :description (asdf:defsystem #:bus :description
"The Gendl™ Wireframe School Bus Demo" :author "The Gendl™ Wireframe School Bus Demo" :author "John McCarthy"
"Dave Cooper and Genworks International" :license :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" :serial t :version "20131014" :depends-on (:gwl-graphics)
:serial t :version "20130822" :depends-on (:gwl-graphics) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components :components
((:file "source/package") (:file "source/assembly") ((:file "source/package") (:file "source/assembly")
(:file "source/body") (:file "source/chassis") (:file "source/body") (:file "source/chassis")
(:file "source/interior") (:file "source/rule-ackermann") (:file "source/interior") (:file "source/rule-ackermann")
(:file "source/axle") (:file "source/fleet") (:file "source/axle") (:file "source/fleet")
(:file "source/frame-rail") (:file "source/frame") (:file "source/frame-rail") (:file "source/frame")
(:file "source/html-writer-assembly") (:file "source/html-writer-assembly")
(:file "source/html-writer-body") (:file "source/html-writer-body")
(:file "source/html-writer-chassis") (:file "source/html-writer-chassis")
(:file "source/html-writer-interior") (:file "source/html-writer-interior")
(:file "source/html-writer-rule-ackermann") (:file "source/html-writer-rule-ackermann")
(:file "source/inter-seat-clearance-check") (:file "source/inter-seat-clearance-check")
(:file "source/inter-seat-spacing") (:file "source/knuckle") (:file "source/inter-seat-spacing") (:file "source/knuckle")
(:file "source/parameters") (:file "source/publish") (:file "source/parameters") (:file "source/publish")
(:file "source/rear-axle") (:file "source/seat") (:file "source/rear-axle") (:file "source/seat")
(:file "source/seating-section") (:file "source/seating-side") (:file "source/seating-section") (:file "source/seating-side")
(:file "source/wheel"))) (:file "source/wheel")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:ledger :description (asdf:defsystem #:ledger :description
"The Gendl™ Ledger Bookkeeping Demo" :author "The Gendl™ Ledger Bookkeeping Demo" :author "John McCarthy"
"Dave Cooper and Genworks International" :license :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" :serial t :version "20131014" :depends-on (:gwl)
:serial t :version "20130822" :depends-on (:gwl) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components :components
((:file "source/package") (:file "source/assembly") ((:file "source/package") (:file "source/assembly")
(:file "source/html") (:file "source/zzinit"))) (:file "source/html") (:file "source/zzinit")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:robot :description (asdf:defsystem #:robot :description
"The Gendl™ Simplified Android Robot example " :author "The Gendl™ Simplified Android Robot example " :author
"Dave Cooper and Genworks International" :license "John McCarthy" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:serial t :version "20130822" :depends-on (:gwl-graphics) :version "20131014" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
:components #+asdf-encoding :encoding #+asdf-encoding :utf-8
((:file "source/package") (:file "source/assembly") :components
(:file "source/initialize") (:file "source/parameters") ((:file "source/package") (:file "source/assembly")
(:file "source/zzinit"))) (:file "source/initialize") (:file "source/parameters")
(:file "source/zzinit")))
;;;; -*- coding: utf-8 -*- ;;;; -*- 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" "The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author "Dave Cooper and Genworks International" :license :author "John McCarthy" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:serial t :version "20130822" :depends-on (:gwl-graphics) :version "20131014" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
:components ((:file "source/package") (:file "source/assembly"))) #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components ((:file "source/package") (:file "source/assembly")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:examples :description (asdf:defsystem #:examples :description
"The Gendl™ examples Subsystem" :author "The Gendl™ examples Subsystem" :author "John McCarthy" :license
"Dave Cooper and Genworks International" :license "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" :version "20131014" :depends-on (:surf)
:serial t :version "20130822" :depends-on (:surf) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components :components
((:file "source/ch2-examples") (:file "source/ch3-examples") ((:file "source/ch2-examples") (:file "source/ch3-examples")
(:gdl "source/primi-plane") (:gdl "source/ui-primi-plane"))) (:gdl "source/primi-plane") (:gdl "source/ui-primi-plane")))
;;;; -*- coding: utf-8 -*-
;; GDL.EL ;; GDL.EL
;; ;;
;; 1. INTRODUCTION ;; 1. INTRODUCTION
...@@ -54,8 +55,8 @@ ...@@ -54,8 +55,8 @@
(add-to-list 'load-path (concat *gendl-home* "emacs/emacs-color-theme")) (add-to-list 'load-path (concat *gendl-home* "emacs/emacs-color-theme"))
(require 'color-theme) (require 'color-theme)
(color-theme-initialize) (color-theme-initialize)
;;(color-theme-sitaramv-solaris) (color-theme-sitaramv-solaris)
(color-theme-feng-shui) ;;(color-theme-feng-shui)
;; 3.3. Indents ;; 3.3. Indents
...@@ -180,6 +181,11 @@ ...@@ -180,6 +181,11 @@
(slime-repl-return) (slime-repl-return)
(insert "(gdl::startup-banner)") (insert "(gdl::startup-banner)")
(slime-repl-return) (slime-repl-return)
(insert "(let ((gendl-loaded? (find-package :gendl)) (genworks-gdl-loaded? (find-package :genworks-gdl)))
(cond (genworks-gdl-loaded? (funcall (symbol-function (read-from-string \"gdl:start-gdl!\"))))
(gendl-loaded? (funcall (symbol-function (read-from-string \"gendl:start-gendl!\"))))
(t (error \"Gendl or GDL is not loaded and did not load successfully from .load-gendl.lisp in your home directory.~%\"))))")
(slime-repl-return)
(insert "(in-package gdl-user)") (insert "(in-package gdl-user)")
(slime-repl-return) (slime-repl-return)
(end-of-buffer)) (end-of-buffer))
......
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:geom-base :description (asdf:defsystem #:geom-base :description
"The Gendl™ Wireframe Geometry" :author "The Gendl™ Wireframe Geometry" :author "John McCarthy" :license
"Dave Cooper and Genworks International" :license "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" :version "20131014" :depends-on (:glisp)
:serial t :version "20130822" :depends-on (:glisp) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components :components
((:file "prereqs/source/presets") ((:file "prereqs/source/presets")
(:file "prereqs/source/cl-pdf-patches") (:file "prereqs/source/cl-pdf-patches")
(:file "prereqs/source/matrix") (:file "prereqs/source/parameters") (:file "prereqs/source/matrix") (:file "prereqs/source/parameters")
(:file "prereqs/source/utilities") (:file "prereqs/source/utilities")
(:file "formats/source/2d-output") (:file "formats/source/dxf") (:file "formats/source/2d-output") (:file "formats/source/dxf")
(:file "formats/source/macro-redefs") (:file "formats/source/obj") (:file "formats/source/macro-redefs") (:file "formats/source/obj")
(:file "formats/source/pdf-multipage") (:file "formats/source/pdf-multipage")
(:file "formats/source/pdf-raw") (:file "formats/source/pdf") (:file "formats/source/pdf-raw") (:file "formats/source/pdf")
(:file "formats/source/raster") (:file "formats/source/raster")
(:file "formats/source/vector-graphics") (:file "formats/source/vector-graphics")
(:file "wire/source/base-object") (:file "wire/source/arc") (:file "wire/source/base-object") (:file "wire/source/arc")
(:file "wire/source/l-line") (:file "wire/source/circle") (:file "wire/source/l-line") (:file "wire/source/circle")
(:file "wire/source/bezier-curve") (:file "wire/source/cylinder") (:file "wire/source/bezier-curve") (:file "wire/source/cylinder")
(:file "wire/source/global-polyline") (:file "wire/source/global-polyline")
(:file "wire/source/global-filleted-polyline") (:file "wire/source/global-filleted-polyline")
(:file "wire/source/global-polygon-projection") (:file "wire/source/global-polygon-projection")
(:file "wire/source/sphere") (:file "wire/source/arcoid-mixin") (:file "wire/source/sphere") (:file "wire/source/arcoid-mixin")
(:file "wire/source/bounding-box") (:file "wire/source/box") (:file "wire/source/bounding-box") (:file "wire/source/box")
(:file "wire/source/c-cylinder") (:file "wire/source/cone") (:file "wire/source/c-cylinder") (:file "wire/source/cone")
(:file "wire/source/directional-light") (:file "wire/source/directional-light")
(:file "wire/source/ellipse") (:file "wire/source/fillet") (:file "wire/source/ellipse") (:file "wire/source/fillet")
(:file "wire/source/global-filleted-polygon-projection") (:file "wire/source/global-filleted-polygon-projection")
(:file "wire/source/null-geometric-object") (:file "wire/source/null-geometric-object")
(:file "wire/source/outline-specialization-mixin") (:file "wire/source/outline-specialization-mixin")
(:file "wire/source/point-light") (:file "wire/source/point") (:file "wire/source/point-light") (:file "wire/source/point")
(:file "wire/source/points-display") (:file "wire/source/points-display")
(:file "wire/source/primitives") (:file "wire/source/route-pipe") (:file "wire/source/primitives") (:file "wire/source/route-pipe")
(:file "wire/source/spherical-cap") (:file "wire/source/spherical-cap")
(:file "wire/source/spot-light") (:file "wire/source/torus") (:file "wire/source/spot-light") (:file "wire/source/torus")
(:file "wire/source/utilities") (:file "wire/source/views") (:file "wire/source/utilities") (:file "wire/source/views")
(:file "annotations/source/angular-dimension") (:file "annotations/source/angular-dimension")
(:file "annotations/source/arrowhead") (:file "annotations/source/arrowhead")
(:file "annotations/source/center-line") (:file "annotations/source/center-line")
(:file "annotations/source/horizontal-dimension") (:file "annotations/source/horizontal-dimension")
(:file "annotations/source/label") (:file "annotations/source/label")
(:file "annotations/source/leader-arc") (:file "annotations/source/leader-arc")
(:file "annotations/source/leader-line") (:file "annotations/source/leader-line")
(:file "annotations/source/linear-dimension") (:file "annotations/source/linear-dimension")
(:file "annotations/source/parallel-dimension") (:file "annotations/source/parallel-dimension")
(:file "annotations/source/sample-drawing") (:file "annotations/source/sample-drawing")
(:file "annotations/source/vertical-dimension") (:file "annotations/source/vertical-dimension")
(:file "drawing/source/base-view") (:file "drawing/source/base-view")
(:file "drawing/source/document") (:file "drawing/source/lenses") (:file "drawing/source/document") (:file "drawing/source/lenses")
(:file "drawing/source/renderer-mixin") (:file "drawing/source/renderer-mixin")
(:file "text/source/general-note") (:file "text/source/general-note")
(:file "text/source/typeset-block") (:file "graphs/source/graph") (:file "text/source/typeset-block") (:file "graphs/source/graph")
(:file "graphs/source/legend") (:file "graphs/source/pie-chart") (:file "graphs/source/legend") (:file "graphs/source/pie-chart")
(:file "lenses/source/vrml") (:file "lenses/source/x3d") (:file "lenses/source/vrml") (:file "lenses/source/x3d")
(:file "math/source/polynomial") (:file "zzinit/source/initialize") (:file "math/source/polynomial") (:file "zzinit/source/initialize")
(:file "zzinit/source/zzinit"))) (:file "zzinit/source/zzinit")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:glisp :description (asdf:defsystem #:glisp :description
"The Gendl™ Common Lisp Portability" :author "The Gendl™ Common Lisp Portability" :author "John McCarthy"
"Dave Cooper and Genworks International" :license :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" :serial t :version "20131014" :depends-on
:serial t :version "20130822" :depends-on (:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :acl-compat)
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :acl-compat) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components :components
((:file "source/presets") (:file "source/parameters") ((:file "source/presets") (:file "source/parameters")
(:file "source/genworks") (:file "source/initialize") (:file "source/genworks") (:file "source/initialize")
(:file "source/zzinit"))) (:file "source/zzinit")))
...@@ -294,7 +294,8 @@ and \"..\" entries." ...@@ -294,7 +294,8 @@ and \"..\" entries."
(defun find-gs-path (&optional gs-path) (defun find-gs-path (&optional gs-path)
(let ((gs-path (let ((gs-path
(or gs-path (or gs-path
(if (featurep :os-windows) (if (or (featurep :os-windows)
(featurep :windows))
(find-windows-gs) (find-windows-gs)
(or (probe-file #p"~/bin/gs") (or (probe-file #p"~/bin/gs")
(probe-file #p"/usr/local/bin/gs") (probe-file #p"/usr/local/bin/gs")
......