[cells-cvs] CVS cells/utils-kt

[ktilton]

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

Modified Files:
	core.lisp detritus.lisp 
Added Files:
	quad.lisp 
Log Message:
(push :iamnotkenny *features*) to avoid non-portable code

--- /project/cells/cvsroot/cells/utils-kt/core.lisp	2007/12/03 12:27:03	1.2
+++ /project/cells/cvsroot/cells/utils-kt/core.lisp	2007/12/03 20:11:12	1.3
@@ -42,14 +42,14 @@
 
 (export! exe-path exe-dll font-path)
 
-#+(and allegro ide)
+#-iamnotkenny
 (defun exe-path ()
   #+its-alive!
   (excl:current-directory)
   #-its-alive!
   (excl:path-pathname (ide.base::project-file ide.base:*current-project*)))
 
-#+(and allegro ide) 
+#-iamnotkenny 
 (defun font-path ()
   (merge-pathnames
    (make-pathname
--- /project/cells/cvsroot/cells/utils-kt/detritus.lisp	2007/12/03 12:22:41	1.15
+++ /project/cells/cvsroot/cells/utils-kt/detritus.lisp	2007/12/03 20:11:12	1.16
@@ -59,7 +59,7 @@
 (defun collect-if (test list)
   (remove-if-not test list))
 
-#+(and allegro ide)
+#-iamnotkenny
 (defun test-setup ()
   #-its-alive!
   (ide.base::find-new-prompt-command
@@ -68,15 +68,15 @@
 #+test
 (test-setup)
 
-#+(and allegro ide)
+#-iamnotkenny
 (defun test-prep ()
   (test-setup))
 
-#+(and allegro ide)
+#-iamnotkenny
 (defun test-init ()
   (test-setup))
 
-#+(and allegro ide)
+#-iamnotkenny
 (export! test-setup test-prep test-init)
 
 ;;; --- FIFO Queue -----------------------------