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

Contents of /load.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (hide 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 pdenno 1.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 pdenno 1.2 #P"cells-gtk:root;pod-utils;"
31 pdenno 1.1 #P"cells-gtk:root;gtk-ffi;"
32 phildebrandt 1.4 #P"cells-gtk:root;ph-maths;"
33 pdenno 1.1 #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 phildebrandt 1.4 (asdf:oos 'asdf:load-op :ph-maths)
40 pdenno 1.1 (asdf:oos 'asdf:load-op :cells-gtk)
41     (asdf:oos 'asdf:load-op :test-gtk))
42    
43 pdenno 1.3 (format t "~3% Done! Now try (test-gtk:gtk-demo) or if problems, (test-gtk:gtk-demo t)")
44 pdenno 1.1
45    
46    
47    
48    
49    

  ViewVC Help
Powered by ViewVC 1.1.5