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

Contents of /root/config.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (hide 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 ktilton 1.1 (in-package :cl-user)
2    
3     #+lispworks
4     (setq *HANDLE-EXISTING-DEFPACKAGE* '(:modify))
5    
6    
7     #|
8    
9 pdenno 1.3 Tell ASDF where to find everything.
10     This isn't used if you are loading a snapshot tarball.
11 ktilton 1.1
12     |#
13    
14    
15 pdenno 1.2 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "utils-kt"))
16 ktilton 1.1 asdf:*central-registry*)
17    
18 pdenno 1.2 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "cells"))
19 ktilton 1.1 asdf:*central-registry*)
20    
21 pdenno 1.2 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "hello-c"))
22 ktilton 1.1 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