[cells-cvs] CVS cells/utils-kt

[fgoenninger]

Update of /project/cells/cvsroot/cells/utils-kt
In directory clnet:/tmp/cvs-serv3505

Modified Files:
	detritus.lisp 
Log Message:
Changed: Wrappred dependencies to AllegroCL and its IDE into #+ ...

--- /project/cells/cvsroot/cells/utils-kt/detritus.lisp	2007/11/30 16:51:20	1.14
+++ /project/cells/cvsroot/cells/utils-kt/detritus.lisp	2007/12/03 12:22:41	1.15
@@ -59,6 +59,7 @@
 (defun collect-if (test list)
   (remove-if-not test list))
 
+#+(and allegro ide)
 (defun test-setup ()
   #-its-alive!
   (ide.base::find-new-prompt-command
@@ -67,14 +68,17 @@
 #+test
 (test-setup)
 
+#+(and allegro ide)
 (defun test-prep ()
   (test-setup))
+
+#+(and allegro ide)
 (defun test-init ()
   (test-setup))
 
+#+(and allegro ide)
 (export! test-setup test-prep test-init)
 
-
 ;;; --- FIFO Queue -----------------------------
 
 (defun make-fifo-queue (&rest init-data)