/[cells-gtk]/load.lisp
ViewVC logotype

Contents of /load.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Thu Feb 7 16:21:02 2008 UTC (6 years, 2 months ago) by phildebrandt
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +2 -0 lines
added ph-maths
1 (in-package :cl-user)
2
3 ;;; Load asdf, if necessary; set up asdf:*central-registry*
4 ;;; and load everything necessary to run cells-gtk.
5
6 #-asdf(load (compile-file "asdf.lisp"))
7
8 #+clisp(setf custom:*parse-namestring-ansi* t)
9
10 (let ((default-path
11 #-clisp *load-truename*
12 #+clisp (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk")))) ; <=== CLISP users
13 (setf (logical-pathname-translations "cells-gtk")
14 `(("root;*.*.*"
15 ,(make-pathname
16 :name :wild :type :wild :version :wild
17 :defaults default-path))
18 ("**;*.*.*"
19 ,(merge-pathnames
20 (make-pathname
21 :directory '(:relative :wild-inferiors)
22 :name :wild :type :wild :version :wild
23 :defaults default-path)
24 default-path)))))
25
26 (let ((asdf:*central-registry*
27 (list #P"cells-gtk:"
28 #P"cells-gtk:cells;"
29 #P"cells-gtk:cffi;"
30 #P"cells-gtk:root;pod-utils;"
31 #P"cells-gtk:root;gtk-ffi;"
32 #P"cells-gtk:root;ph-maths;"
33 #P"cells-gtk:root;cells-gtk;"
34 #P"cells-gtk:root;cells-gtk;test-gtk;")))
35 (asdf:oos 'asdf:load-op :cells)
36 (asdf:oos 'asdf:load-op :cffi)
37 (asdf:oos 'asdf:load-op :cffi-uffi-compat)
38 (asdf:oos 'asdf:load-op :gtk-ffi)
39 (asdf:oos 'asdf:load-op :ph-maths)
40 (asdf:oos 'asdf:load-op :cells-gtk)
41 (asdf:oos 'asdf:load-op :test-gtk))
42
43 (format t "~3% Done! Now try (test-gtk:gtk-demo) or if problems, (test-gtk:gtk-demo t)")
44
45
46
47
48
49

  ViewVC Help
Powered by ViewVC 1.1.5