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 -----------------------------