Commit 15a6cc91 authored by Dave Cooper's avatar Dave Cooper
Browse files

Merge branch 'slime-devel'

parents 93b0fed1 2a2571bb
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
"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 "John McCarthy" :license :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130430" :depends-on (:gwl-graphics) :version "20130501" :depends-on (:gwl-graphics)
#+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")
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
"The Gendl™ Web-based Development Environment (tasty)" :author "The Gendl™ Web-based Development Environment (tasty)" :author
"John McCarthy" :license "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130430" :depends-on (:tree :gwl-graphics) :version "20130501" :depends-on (:tree :gwl-graphics)
#+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")
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
"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 "John McCarthy" :license :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130430" :depends-on (:gwl) :version "20130501" :depends-on (:gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components :components
((:file "xml/source/package") (:file "xml/source/genworks") ((:file "xml/source/package") (:file "xml/source/genworks")
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
"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 "John McCarthy" :license :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130430" :depends-on (:gwl-graphics) :version "20130501" :depends-on (:gwl-graphics)
#+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")
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
"The Gendl™ Yet Another Definition Documenter (yadd)" :author "The Gendl™ Yet Another Definition Documenter (yadd)" :author
"John McCarthy" :license "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130430" :depends-on (:gwl-graphics) :version "20130501" :depends-on (:gwl-graphics)
#+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")
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
(asdf:defsystem #:base :description (asdf:defsystem #:base :description
"The Gendl™ Base Core Kernel Engine" :author "John McCarthy" "The Gendl™ Base Core Kernel Engine" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)" :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130430" :depends-on nil :serial t :version "20130501" :depends-on nil
#+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")
......
...@@ -275,6 +275,11 @@ ...@@ -275,6 +275,11 @@
#+sbcl (sb-kernel:package-doc-string (find-package package))) #+sbcl (sb-kernel:package-doc-string (find-package package)))
(defun set-default-character-width ()
#+lispworks (lispworks:set-default-character-element-type 'lispworks:simple-char)
)
(defun set-default-float-format () (defun set-default-float-format ()
#+allegro (tpl:setq-default *read-default-float-format* 'double-float) #+allegro (tpl:setq-default *read-default-float-format* 'double-float)
#+ccl (ccl::def-standard-initial-binding *read-default-float-format* 'double-float) #+ccl (ccl::def-standard-initial-binding *read-default-float-format* 'double-float)
......
...@@ -322,6 +322,7 @@ If you are interested in this effort we would love to hear from you at open-sour ...@@ -322,6 +322,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:make-sans-value-hash-table #:make-sans-value-hash-table
#:make-weak-hash-table #:make-weak-hash-table
#:make-versioned-features #:make-versioned-features
#:set-default-character-width
#:set-default-float-format #:set-default-float-format
#:set-default-package #:set-default-package
#:set-defpackage-behavior #:set-defpackage-behavior
......
...@@ -2,3 +2,4 @@ ...@@ -2,3 +2,4 @@
(glisp:set-default-float-format) (glisp:set-default-float-format)
(glisp:set-defpackage-behavior) (glisp:set-defpackage-behavior)
(glisp:set-default-character-width)
...@@ -68,6 +68,11 @@ ...@@ -68,6 +68,11 @@
(defun startup-banner () (defun startup-banner ()
#+lispworks
(format t "Welcome to Gendl on LispWorks where we can't print wide chars at the moment.")
#-lispworks
(format t (format t
" "
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
(asdf:defsystem #:cl-lite :description (asdf:defsystem #:cl-lite :description
"The Gendl™ Compile-and-Load Lite Utility" :author "John McCarthy" "The Gendl™ Compile-and-Load Lite Utility" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)" :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130430" :depends-on (:glisp) :serial t :version "20130501" :depends-on (:glisp)
#+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")
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
(asdf:defsystem #:bus :description (asdf:defsystem #:bus :description
"The Gendl™ Wireframe School Bus Demo" :author "John McCarthy" "The Gendl™ Wireframe School Bus Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)" :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130430" :depends-on (:gwl-graphics) :serial t :version "20130501" :depends-on (:gwl-graphics)
#+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")
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
(asdf:defsystem #:ledger :description (asdf:defsystem #:ledger :description
"The Gendl™ Ledger Bookkeeping Demo" :author "John McCarthy" "The Gendl™ Ledger Bookkeeping Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)" :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130430" :depends-on (:gwl) :serial t :version "20130501" :depends-on (:gwl)
#+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")
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
"The Gendl™ Simplified Android Robot example " :author "The Gendl™ Simplified Android Robot example " :author
"John McCarthy" :license "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130430" :depends-on (:gwl-graphics) :version "20130501" :depends-on (:gwl-graphics)
#+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")
......
...@@ -4,6 +4,6 @@ ...@@ -4,6 +4,6 @@
"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 "John McCarthy" :license :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130430" :depends-on (:gwl-graphics) :version "20130501" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components ((:file "source/package") (:file "source/assembly"))) :components ((:file "source/package") (:file "source/assembly")))
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
(asdf:defsystem #:examples :description (asdf:defsystem #:examples :description
"The Gendl™ examples Subsystem" :author "John McCarthy" :license "The Gendl™ examples Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130430" :depends-on nil :version "20130501" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:components :components
((:gdl "source/primi-plane") (:gdl "source/ui-primi-plane"))) ((:gdl "source/primi-plane") (:gdl "source/ui-primi-plane")))
...@@ -6,8 +6,7 @@ ...@@ -6,8 +6,7 @@
(print-variables *load-truename*) (print-variables *load-truename*)
(defparameter *images-path* (merge-pathnames "g102-tud/images/" (glisp:system-home :gdl-training))) (defparameter *images-path* (merge-pathnames "documentation/training/g102-tud/images/" glisp:*gendl-source-home*))
(publish-directory :prefix "/g102-tud/images/" (publish-directory :prefix "/g102-tud/images/"
:destination (format nil "~a" *images-path*)) :destination (format nil "~a" *images-path*))
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
(print-variables *load-truename*) (print-variables *load-truename*)
(defparameter *images-path* (merge-pathnames "g102/images/" (glisp:system-home :gdl-training))) (defparameter *images-path* (merge-pathnames "documentation/training/g102/images/" glisp:*gendl-source-home*))
(publish-directory :prefix "/g102/images/" (publish-directory :prefix "/g102/images/"
......
...@@ -4,11 +4,9 @@ ...@@ -4,11 +4,9 @@
:function #'(lambda(req ent) :function #'(lambda(req ent)
(gwl-make-object req ent "training-g108:assembly"))) (gwl-make-object req ent "training-g108:assembly")))
(defparameter *images-path* (merge-pathnames "g108/images/" (defparameter *images-path* (merge-pathnames "documentation/training/g108/images/" glisp:*gendl-source-home*))
(glisp:system-home "gdl-training")))
(publish-directory :prefix "/g108/images/" (publish-directory :prefix "/g108/images/" :destination (format nil "~a" *images-path*))
:destination (format nil "~a" *images-path*))
("legacy")
\ No newline at end of file
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