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

Contents of /cells-gtk/load.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Mon Jan 28 23:59:22 2008 UTC (6 years, 2 months ago) by ktilton
Branch: MAIN
CVS Tags: HEAD
*** empty log message ***
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-2006-06-30")))) ; <=== 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;cells-gtk;"
33 #P"cells-gtk:root;cells-gtk;test-gtk;")))
34 (asdf:oos 'asdf:load-op :cells)
35 (asdf:oos 'asdf:load-op :cffi)
36 (asdf:oos 'asdf:load-op :cffi-uffi-compat)
37 (asdf:oos 'asdf:load-op :gtk-ffi)
38 (asdf:oos 'asdf:load-op :cells-gtk)
39 (asdf:oos 'asdf:load-op :test-gtk))
40
41 (format t "~3% Done! Now try (test-gtk:gtk-demo) or if problems, (test-gtk:gtk-demo t)")
42
43
44
45
46
47

  ViewVC Help
Powered by ViewVC 1.1.5