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

Contents of /root/config.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Tue Jan 25 15:57:31 2005 UTC (9 years, 2 months ago) by ktilton
Branch: MAIN
Apply Andras SImon's patches from Jan 6, 2004 to get things working on CMU and ACL/Linux
1 (in-package :cl-user)
2
3 #+lispworks
4 (setq *HANDLE-EXISTING-DEFPACKAGE* '(:modify))
5
6
7 #|
8
9 Tell ASDF where to find everything
10
11 |#
12
13
14 (push (make-pathname :directory '(:absolute "cell-cultures" "utils-kt"))
15 asdf:*central-registry*)
16
17 (push (make-pathname :directory '(:absolute "cell-cultures" "cells"))
18 asdf:*central-registry*)
19
20 (push (make-pathname :directory '(:absolute "cell-cultures" "hello-c"))
21 asdf:*central-registry*)
22
23 (push (merge-pathnames
24 (make-pathname :directory '(:relative "gtk-ffi"))
25 *load-pathname*)
26 asdf:*central-registry*)
27
28 (push (merge-pathnames
29 (make-pathname :directory '(:relative "cells-gtk"))
30 *load-pathname*)
31 asdf:*central-registry*)
32
33 #| --------------------------------------
34 Add test-gtk, and tell it where to find images
35 |#
36
37 (push (merge-pathnames
38 (make-pathname :directory '(:relative "cells-gtk" "test-gtk"))
39 *load-pathname*)
40 asdf:*central-registry*)
41
42 (defparameter *splash-image*
43 (merge-pathnames
44 (make-pathname :directory '(:relative "test-images")
45 :name "splash"
46 :type "png")
47 *load-pathname*))
48
49 (defparameter *small-image*
50 (merge-pathnames
51 (make-pathname :directory '(:relative "test-images")
52 :name "small" :type "png")
53 *load-pathname*))
54
55 (defparameter *tst-image*
56 (merge-pathnames
57 (make-pathname :directory '(:relative "test-images")
58 :name "tst" :type "gif")
59 *load-pathname*))

  ViewVC Help
Powered by ViewVC 1.1.5