[cells-cvs] CVS cells

[ktilton]

Update of /project/cells/cvsroot/cells
In directory clnet:/tmp/cvs-serv5902

Modified Files:
	load.lisp 
Log Message:


--- /project/cells/cvsroot/cells/load.lisp	2006/03/22 04:08:34	1.3
+++ /project/cells/cvsroot/cells/load.lisp	2006/03/22 05:26:53	1.4
@@ -7,8 +7,18 @@
 (push (make-pathname :device "c" :directory '(:absolute "0dev" "cells"))
     asdf:*central-registry*)
 
+(push (make-pathname :device "c" :directory '(:absolute "0dev" "Celtk"))
+    asdf:*central-registry*)
+
 #-runtestsuite
-(ASDF:OOS 'ASDF:LOAD-OP :CELLS :force t)
+(ASDF:OOS 'ASDF:LOAD-OP :CELLS)
 
 #+runtestsuite
-(ASDF:OOS 'ASDF:LOAD-OP :CELLS-TEST :force t)
\ No newline at end of file
+(ASDF:OOS 'ASDF:LOAD-OP :CELLS-TEST)
+
+#+checkoutceltk
+(ASDF:OOS 'ASDF:LOAD-OP :CELTK)
+
+#+testceltk
+(ctk::tk-test)
+