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