Commit 28a30338 authored by Dave Cooper's avatar Dave Cooper
Browse files

clarification on README, cleanup of startup banner, fix of typo in proclaim...

clarification on README,  cleanup of startup banner, fix of typo in proclaim for allegro cl express edition.
parent e5ab20c5
;;
;; Copyright 2002-2011 Genworks International and Genworks BV
;;
;; This software is part of the General-purpose Declarative
;; This file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This software is free software: you can redistribute it
;; This file is free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
......@@ -23,7 +23,14 @@
Welcome to the General-purpose Declarative Language Open-Source Distribution.
To load the entire system, you can do it from scratch with
Current Requirements:
o Common Lisp: LispWorks or AllegroCL
Note: Allegro CL 8.2 comes with ASDF, but (sys:update-allegro) will
bring it to ASDF2.
To load the entire system, you can do it from scratch with
(load ".../load.lisp")
......
......@@ -215,7 +215,7 @@
#+allegro
(when (boundp 'comp::*deprecate-peephole-and-save-arglist-switches*)
(setf (symbol-value 'comp::*deprecate-peephole-and-save-arglist-switches*) t))
#+allegro-cl-express (proclaim (optimize (speed 1) (safety 1) (space 3)))
#+allegro-cl-express (proclaim '(optimize (speed 1) (safety 1) (space 3)))
#-allegro nil ;; No action needed for non-allegro platforms currently.
)
......
......@@ -74,14 +74,6 @@
http://www.gnu.org/licenses/
NOTE that application code compiled with GDL also falls under the
terms of the AGPL license, because it contains significant
portions of GDL. See http://www.genworks.com/license-faq.html
for further details. For distribution of closed-source
applications, proprietary licenses are available from Genworks
(http://www.genworks.com). Additional modules (e.g. NURBS and
solid geometry) and support packages are also available.
"
"
Copyright 2002-2011 Genworks International and Genworks BV
......@@ -96,8 +88,6 @@ You should have received a copy of the GNU Affero General Public License along
http://www.gnu.org/licenses/
NOTE that application code compiled with GDL also falls under the terms of the AGPL license, because it contains significant portions of GDL. See http://www.genworks.com/license-faq.html for further details. For distribution of closed-source applications, proprietary licenses are available from Genworks (http://www.genworks.com). Additional modules (e.g. NURBS and solid geometry) and support packages are also available.
"
))
......
(asdf:defsystem #:gdl-base :description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license "AGPL unless otherwise indicated" :serial t
:version "2011101700" :components
((:file "common/package")
(:file "common/genworks")
(:file "common/start-gdl")
(:file "prereqs/source/parameters")
(:file "prereqs/source/metaclasses")
(:file "prereqs/source/utilities")
(:file "expanders/source/inputs")
(:file "expanders/source/computed-slots")
(:file "expanders/source/functions")
(:file "expanders/source/methods")
(:file "expanders/source/objects")
(:file "macros/source/reference")
(:file "macros/source/message-utils")
(:file "macros/source/define-object")
(:file "macros/source/defaulting")
(:file "macros/source/unimplemented")
(:file "macros/source/define-format")
(:file "rest/source/parameters")
(:file "rest/source/aggregate")
(:file "rest/source/utilities")
(:file "rest/source/vanilla-mixin")
(:file "rest/source/base-rule-object")
(:file "rest/source/bodies")
(:file "rest/source/ignore-errors-with-backtrace")
(:file "rest/source/make-part")
(:file "rest/source/null-part")
(:file "rest/source/quantification")
(:file "rest/source/sequence")
(:file "rest/source/init")))
;;
;; Copyright 2002-2011 Genworks International and Genworks BV
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(in-package :common-lisp-user)
(let ((setup (merge-pathnames "quicklisp/setup.lisp"
(user-homedir-pathname))))
(if (probe-file setup) (load setup)
(progn
(load (merge-pathnames "quicklisp.lisp" *load-truename*))
(funcall (read-from-string "quicklisp-quickstart:install")))))
;;
;; FLAG -- Temporary hacks around currently broken Quicklisp .asd files and sytems:
;;
#+allegro
(load (merge-pathnames "quicklisp-local/portableaserve-20110730-cvs/aserve/aserve.asd"
*load-truename*))
(let ((fasl (compile-file
(merge-pathnames
"quicklisp-local/cl-typesetting-20110219-svn/hyphenation-fp.lisp"
*load-truename*))))
(load fasl)
(delete-file fasl))
;;
;; FLAG -- figure out how to get all these loaded automatically
;; or placed/linked in a standard location.
;;
(load (merge-pathnames "gdl/base/gdl-base.asd" *load-truename*))
(load (merge-pathnames "gdl/cl-lite/gdl-cl-lite.asd" *load-truename*))
(load (merge-pathnames "gdl/geom-base/gdl-geom-base.asd" *load-truename*))
(load (merge-pathnames "gdl/gwl/gdl-gwl.asd" *load-truename*))
(load (merge-pathnames "gdl/gwl-graphics/gdl-gwl-graphics.asd" *load-truename*))
(load (merge-pathnames "gdl/apps/tree/gdl-tree.asd" *load-truename*))
(load (merge-pathnames "gdl/apps/ta2/gdl-ta2.asd" *load-truename*))
(load (merge-pathnames "gdl/apps/tasty/gdl-tasty.asd" *load-truename*))
(load (merge-pathnames "gdl/dist/src/demos/gdl-demos.asd" *load-truename*))
(load (merge-pathnames "build/gdl-build.asd" *load-truename*))
(load (merge-pathnames "gdl/apps/yadd/gdl-yadd.asd" *load-truename*))
(load (merge-pathnames "gdl-all.asd" *load-truename*))
(ql:quickload :gdl-all)
;;
;; FLAG -- following two and other specific feature additions should be done by .asd system
;; "perform" statements (when I figure out how those work).
;;
(pushnew :genworks-base *features*)
(pushnew :genworks-gdl-base *features*)
(pushnew :genworks-cl-lite *features*)
;;
;; Skeleton "vanilla" geometry kernel - nonfunctional without SMLib module.
;;
(load (merge-pathnames "gdl/geom-nurbs/surf/gdl-surf.asd" *load-truename*))
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