Commit 8beada74 authored by unknown's avatar unknown

LW startup banner working now

parent 4086643b
......@@ -9,24 +9,24 @@
;; 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 :gdl)
(defparameter *features-to-initialize* (list :base :glisp :geom-base :gwl
(defparameter *features-to-initialize* (list :base :glisp :geom-base :gwl
:gwl-graphics :tasty :yadd :robot :cl-lite))
(defun start-gendl! (&key (features *features-to-initialize*)
(defun start-gendl! (&key (features *features-to-initialize*)
(banner? t) (init-files? t))
(dolist (feature features)
;;
......@@ -37,12 +37,12 @@
(let ((package feature))
(if (and (find-package package) (glisp:featurep feature))
(let ((function-sym (read-from-string (format nil "~a::initialize" package))))
(when (fboundp function-sym)
(when (fboundp function-sym)
(let ((description (glisp:package-documentation package)))
(format t "~&Initializing ~a subsystem...~%" description)
(let ((anything-changed? (funcall function-sym)))
(format t "~&...Done~a~%"
(if anything-changed? "."
(if anything-changed? "."
(format nil " (no new global settings).")))))))
(format t "~&Note: Feature ~s does not appear to be loaded at this time.~%" feature))))
(when banner? (startup-banner))
......@@ -68,34 +68,30 @@
(defun startup-banner ()
#+lispworks
(format t "Welcome to Gendl on LispWorks where we can't print wide chars at the moment.")
#-lispworks
(format t
"
Welcome to Gendl™
Copyright© 2002-2013, Genworks International, Birmingham MI, USA.
Copyright© 2002-2013, Genworks International, Birmingham MI, USA.
All Rights Reserved.
This program 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 program 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 the source code for this program. If not, see:
http://www.gnu.org/licenses/
"))
......
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