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

Contents of /load.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Tue Jan 3 19:13:50 2006 UTC (8 years, 3 months ago) by pdenno
Branch: MAIN
added install.txt and load.lisp
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     #P"cells-gtk:root;gtk-ffi;"
31     #P"cells-gtk:root;cells-gtk;"
32     #P"cells-gtk:root;cells-gtk;test-gtk;")))
33     (asdf:oos 'asdf:load-op :cells)
34     (asdf:oos 'asdf:load-op :cffi)
35     (asdf:oos 'asdf:load-op :cffi-uffi-compat)
36     (asdf:oos 'asdf:load-op :gtk-ffi)
37     (asdf:oos 'asdf:load-op :cells-gtk)
38     (asdf:oos 'asdf:load-op :test-gtk))
39    
40     (format t "~3% Done! Now try (test-gtk::gtk-demo)")
41    
42    
43    
44    
45    
46    

  ViewVC Help
Powered by ViewVC 1.1.5