/[cells-gtk]/clisp-cgtk/load.lisp
ViewVC logotype

Contents of /clisp-cgtk/load.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Mon Dec 6 20:23:18 2004 UTC (9 years, 4 months ago) by ktilton
Branch: MAIN
CVS Tags: HEAD
Moving Vasilis's original for CLisp from Cells project to Cells-gtk
1 (defparameter *utils-kt-path* "../utils-kt/")
2 (defparameter *cells-path* "../cells/")
3
4 #-asdf (load (make-pathname :name "asdf" :type "lisp"))
5
6 (pushnew *utils-kt-path* asdf:*central-registry*)
7 (pushnew *cells-path* asdf:*central-registry*)
8 (pushnew "./gtk-ffi/" asdf:*central-registry*)
9 (pushnew "./cells-gtk/" asdf:*central-registry*)
10 (pushnew "./cells-gtk/test-gtk/" asdf:*central-registry*)
11
12 (asdf:operate 'asdf:load-op :cells-gtk :force nil)
13 (asdf:operate 'asdf:load-op :test-gtk :force nil)
14
15 (defun gtk-demo ()
16 (cells-gtk:start-app 'test-gtk::test-gtk))

  ViewVC Help
Powered by ViewVC 1.1.5