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

Diff of /root/config.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ktilton, Tue Jan 25 15:57:31 2005 UTC revision 1.2 by pdenno, Wed Feb 16 22:34:43 2005 UTC
# Line 11  Line 11 
11  |#  |#
12    
13    
14  (push (make-pathname :directory '(:absolute "cell-cultures" "utils-kt"))  (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "utils-kt"))
15    asdf:*central-registry*)    asdf:*central-registry*)
16    
17  (push (make-pathname :directory '(:absolute "cell-cultures" "cells"))  (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "cells"))
18    asdf:*central-registry*)    asdf:*central-registry*)
19    
20  (push (make-pathname :directory '(:absolute "cell-cultures" "hello-c"))  (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "hello-c"))
21    asdf:*central-registry*)    asdf:*central-registry*)
22    
23  (push (merge-pathnames  (push (merge-pathnames
# Line 56  Line 56 
56    (merge-pathnames    (merge-pathnames
57     (make-pathname :directory '(:relative "test-images")     (make-pathname :directory '(:relative "test-images")
58       :name "tst" :type "gif")       :name "tst" :type "gif")
59       *load-pathname*))
60    
61    (defparameter *stock-icon-image*
62      (merge-pathnames
63       (make-pathname :directory '(:relative "test-images")
64         :name "my-g" :type "png")
65     *load-pathname*))     *load-pathname*))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5