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

Merge branch 'slime-devel'

parents 93b0fed1 2a2571bb
......@@ -4,7 +4,7 @@
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "John McCarthy" :license
"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
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -4,7 +4,7 @@
"The Gendl™ Web-based Development Environment (tasty)" :author
"John McCarthy" :license
"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
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -4,7 +4,7 @@
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author "John McCarthy" :license
"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
:components
((:file "xml/source/package") (:file "xml/source/genworks")
......
......@@ -4,7 +4,7 @@
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author "John McCarthy" :license
"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
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -4,7 +4,7 @@
"The Gendl™ Yet Another Definition Documenter (yadd)" :author
"John McCarthy" :license
"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
:components
((:file "source/package") (:file "source/genworks")
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:base :description
"The Gendl™ Base Core Kernel Engine" :author "John McCarthy"
: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
:components
((:file "source/package") (:file "source/genworks")
......
......@@ -275,6 +275,11 @@
#+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 ()
#+allegro (tpl:setq-default *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
#:make-sans-value-hash-table
#:make-weak-hash-table
#:make-versioned-features
#:set-default-character-width
#:set-default-float-format
#:set-default-package
#:set-defpackage-behavior
......
......@@ -2,3 +2,4 @@
(glisp:set-default-float-format)
(glisp:set-defpackage-behavior)
(glisp:set-default-character-width)
......@@ -68,6 +68,11 @@
(defun startup-banner ()
#+lispworks
(format t "Welcome to Gendl on LispWorks where we can't print wide chars at the moment.")
#-lispworks
(format t
"
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:cl-lite :description
"The Gendl™ Compile-and-Load Lite Utility" :author "John McCarthy"
: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
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:bus :description
"The Gendl™ Wireframe School Bus Demo" :author "John McCarthy"
: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
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:ledger :description
"The Gendl™ Ledger Bookkeeping Demo" :author "John McCarthy"
: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
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -4,7 +4,7 @@
"The Gendl™ Simplified Android Robot example " :author
"John McCarthy" :license
"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
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -4,6 +4,6 @@
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author "John McCarthy" :license
"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
:components ((:file "source/package") (:file "source/assembly")))
......@@ -3,7 +3,7 @@
(asdf:defsystem #:examples :description
"The Gendl™ examples Subsystem" :author "John McCarthy" :license
"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
:components
((:gdl "source/primi-plane") (:gdl "source/ui-primi-plane")))
......@@ -6,8 +6,7 @@
(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/"
:destination (format nil "~a" *images-path*))
......
......@@ -7,7 +7,7 @@
(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/"
......
......@@ -4,11 +4,9 @@
:function #'(lambda(req ent)
(gwl-make-object req ent "training-g108:assembly")))
(defparameter *images-path* (merge-pathnames "g108/images/"
(glisp:system-home "gdl-training")))
(defparameter *images-path* (merge-pathnames "documentation/training/g108/images/" glisp:*gendl-source-home*))
(publish-directory :prefix "/g108/images/"
:destination (format nil "~a" *images-path*))
(publish-directory :prefix "/g108/images/" :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