Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
102b0635
Commit
102b0635
authored
Dec 19, 2011
by
Dave Cooper
Browse files
added control files for clean quicklisp startup
parent
79b4d6b6
Changes
2
Hide whitespace changes
Inline
Side-by-side
clean-startup.txt
0 → 100644
View file @
102b0635
Clean startup on Ubuntu Linux (replace apt-get with the package manager
on your local Linux):
======================
$ == Linux shell prompt
* == Common Lisp shell prompt
M- or C- == Meta or Control command inside emacs
# == comment or manual action
$ cd
$ sudo apt-get install git
$ git clone git://gitub.com/genworks/Genworks-GDL.git
$ sudo apt-get install emacs
$ sudo apt-get install sbcl
$ sudo apt-get install curl
$ mkdir ~/cl
$ cd ~/cl
$ curl -O http://beta.quicklisp.org/quicklisp.lisp
$ cd ..
$ sbcl --load cl/quicklisp.lisp
* (quicklisp-quickstart:install)
* (ql:quickload :quicklisp-slime-helper)
# [Edit your .emacs or other emacs startup file as indicated]
* (quit)
$ emacs
M-x slime
* (load "~/quicklisp/setup")
* (load "~/Genworks-GDL/ql-register-local-project")
* (ql:quickload :gdl-all)
# [In web browser: visit: http://localhost:9000/tasty]
# [In field for package::class, enter robot:assembly]
# [click pencil icon next to Robot (shows up on mouseover]
load.lisp
0 → 100644
View file @
102b0635
;;
;; 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
"../../common/quicklisp/setup.lisp"
*load-truename*
)))
(
if
(
probe-file
setup
)
(
load
setup
)
(
progn
(
load
(
merge-pathnames
"quicklisp.lisp"
*load-truename*
))
(
funcall
(
read-from-string
"quicklisp-quickstart:install"
)
:path
(
make-pathname
:name
nil
:type
nil
:defaults
(
merge-pathnames
"../../common/quicklisp/"
*load-truename*
))))))
;;
;; 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
"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
"surf/gdl-surf.asd"
*load-truename*
))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment