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

Contents of /root/config.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Sun Feb 27 03:23:19 2005 UTC (9 years, 1 month ago) by pdenno
Branch: MAIN
Changes since 1.2: +2 -25 lines
Juergen Gmeiner's patch: moves specials referencing pathnames used in test-gtk out of config.lisp and into test-gtk.lisp
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 This isn't used if you are loading a snapshot tarball.
11
12 |#
13
14
15 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "utils-kt"))
16 asdf:*central-registry*)
17
18 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "cells"))
19 asdf:*central-registry*)
20
21 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "hello-c"))
22 asdf:*central-registry*)
23
24 (push (merge-pathnames
25 (make-pathname :directory '(:relative "gtk-ffi"))
26 *load-pathname*)
27 asdf:*central-registry*)
28
29 (push (merge-pathnames
30 (make-pathname :directory '(:relative "cells-gtk"))
31 *load-pathname*)
32 asdf:*central-registry*)
33
34 #| --------------------------------------
35 Add test-gtk, and tell it where to find images
36 |#
37
38 (push (merge-pathnames
39 (make-pathname :directory '(:relative "cells-gtk" "test-gtk"))
40 *load-pathname*)
41 asdf:*central-registry*)
42

  ViewVC Help
Powered by ViewVC 1.1.5