/[cells-gtk]/cells-gtk3/config.lisp
ViewVC logotype

Contents of /cells-gtk3/config.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Tue Jun 3 16:33:43 2008 UTC (5 years, 10 months ago) by phildebrandt
Branch: MAIN, phildebrandt
CVS Tags: initial, HEAD
Changes since 1.1: +0 -0 lines
Initial cells-gtk3 import
1 (in-package :cl-user)
2
3 #+lispworks
4 (setq *HANDLE-EXISTING-DEFPACKAGE* '(:modify))
5
6
7 #|
8
9
10 ----> THIS ISN'T USED IF YOU ARE LOADING A SNAPSHOT TARBALL. <-----
11
12 Tell ASDF where to find everything.
13
14 |#
15
16
17 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "utils-kt"))
18 asdf:*central-registry*)
19
20 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "cells"))
21 asdf:*central-registry*)
22
23 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "hello-c"))
24 asdf:*central-registry*)
25
26 (push (merge-pathnames
27 (make-pathname :directory '(:relative "gtk-ffi"))
28 *load-pathname*)
29 asdf:*central-registry*)
30
31 (push (merge-pathnames
32 (make-pathname :directory '(:relative "cells-gtk"))
33 *load-pathname*)
34 asdf:*central-registry*)
35
36 #| --------------------------------------
37 Add test-gtk, and tell it where to find images
38 |#
39
40 (push (merge-pathnames
41 (make-pathname :directory '(:relative "cells-gtk" "test-gtk"))
42 *load-pathname*)
43 asdf:*central-registry*)
44

  ViewVC Help
Powered by ViewVC 1.1.5