[cells-gtk-cvs] CVS update: root/load.lisp

[Kenny Tilton]

Update of /project/cells-gtk/cvsroot/root
In directory common-lisp.net:/tmp/cvs-serv11104

Modified Files:
	load.lisp 
Log Message:
Locking in fixes which make AllegroCL and Lispworks largely work OK before trashing code again.
Date: Tue Dec 14 05:02:12 2004
Author: ktilton

Index: root/load.lisp
diff -u root/load.lisp:1.2 root/load.lisp:1.3
--- root/load.lisp:1.2	Sun Dec  5 07:33:21 2004
+++ root/load.lisp	Tue Dec 14 05:02:12 2004
@@ -5,23 +5,22 @@
   #+lispworks
   (setq *HANDLE-EXISTING-DEFPACKAGE* '(:modify))
 
-  (load (make-pathname :directory '(:absolute "000000" "root")
+  (load (make-pathname :directory '(:absolute "00" "root")
                        :name "asdf" :type "lisp")))
 
 (progn ;; setup
-  (defparameter *utils-kt-path* "/cell-cultures/utils-kt/")
-  (defparameter *cells-path* "/cell-cultures/cells/")
-  (defparameter *cells-gtk-root*
-    (make-pathname :directory '(:absolute "000000" "root")))
-
-  (push (make-pathname :directory '(:absolute "000000" "uffi"))
+  (push (make-pathname :directory '(:absolute "cell-cultures" "utils-kt"))
+        asdf:*central-registry*)
+  
+  (push (make-pathname :directory '(:absolute "cell-cultures" "cells"))
         asdf:*central-registry*)
   
-  (push *utils-kt-path* asdf:*central-registry*)
-  (push *cells-path* asdf:*central-registry*)
-  (push (make-pathname :directory '(:absolute "cell-cultures" "ffi-extender"))
+  (push (make-pathname :directory '(:absolute "cell-cultures" "hello-c"))
         asdf:*central-registry*)
   
+  (defparameter *cells-gtk-root*
+    (make-pathname :directory '(:absolute "00" "root")))
+  
   (push (merge-pathnames
          (make-pathname :directory '(:relative "gtk-ffi"))
          *cells-gtk-root*)
@@ -37,12 +36,11 @@
          *cells-gtk-root*)
         asdf:*central-registry*))
 
-;(Asdf:operate 'asdf:load-op :utils-kt :force t)
-;(Asdf:operate 'asdf:load-op :cells :force t)
-;(Asdf:operate 'asdf:load-op :uffi :force t)
-;(Asdf:operate 'asdf:load-op :ffi-extender :force t)
-;(Asdf:operate 'asdf:load-op :gtk-ffi :force nil)
-;(Asdf:operate 'asdf:load-op :cells-gtk :force nil)
+(Asdf:operate 'asdf:load-op :utils-kt :force nil)
+(Asdf:operate 'asdf:load-op :cells :force nil)
+(Asdf:operate 'asdf:load-op :hello-c :force nil)
+(Asdf:operate 'asdf:load-op :gtk-ffi :force t)
+(Asdf:operate 'asdf:load-op :cells-gtk :force nil)
 (Asdf:operate 'asdf:load-op :test-gtk :force nil)
 
 #+test