Update of /project/cells/cvsroot/cell-cultures/utils-kt In directory common-lisp.net:/tmp/cvs-serv7072/utils-kt

Modified Files: defpackage.lisp Log Message:

Date: Wed Jun 30 14:02:12 2004 Author: tburdick

Index: cell-cultures/utils-kt/defpackage.lisp diff -u cell-cultures/utils-kt/defpackage.lisp:1.2 cell-cultures/utils-kt/defpackage.lisp:1.3 --- cell-cultures/utils-kt/defpackage.lisp:1.2 Tue Jun 29 01:58:49 2004 +++ cell-cultures/utils-kt/defpackage.lisp Wed Jun 30 14:02:12 2004 @@ -20,16 +20,13 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE.

+(in-package :cl-user) + (defpackage :utils-kt - (:use #:common-lisp - #-(or cormanlisp cmu sbcl) #:clos - #+sbcl #:sb-mop - #+mcl #:ccl) + (:use #:common-lisp) (:export #:eko #:eko-if #:count-it #:trc #:maptimes #:bwhen #:bif #:xor "WITH-DYNAMIC-FN" #:last1 #:packed-flat! #:with-metrics "TRUE" "SHORTC" #:intern$ #:defconstant-once "*COUNT*" "*STOP*" "*DBG*" "*TRCDEPTH*" #:make-fifo-queue #:fifo-add #:fifo-empty #:fifo-pop #:mapfifo)) - -(in-package :utils-kt)