Update of /project/cells/cvsroot/cell-cultures/utils-kt In directory common-lisp.net:/tmp/cvs-serv27567/utils-kt
Modified Files: defpackage.lisp detritus.lisp Log Message: Re-port to Lispworks/win32 Date: Thu Oct 28 02:09:42 2004 Author: ktilton
Index: cell-cultures/utils-kt/defpackage.lisp diff -u cell-cultures/utils-kt/defpackage.lisp:1.5 cell-cultures/utils-kt/defpackage.lisp:1.6 --- cell-cultures/utils-kt/defpackage.lisp:1.5 Wed Jul 7 03:25:41 2004 +++ cell-cultures/utils-kt/defpackage.lisp Thu Oct 28 02:09:42 2004 @@ -24,14 +24,16 @@
(defpackage :utils-kt (:nicknames #:ukt) - (:use #:common-lisp - #-(or cormanlisp cmu sbcl) #:clos - #+sbcl #:sb-mop - #+mcl #:ccl) + (:use #:common-lisp + #-(or cormanlisp cmu sbcl) #:clos + #+sbcl #:sb-mop + #+mcl #:ccl) (:export #:utils-kt-reset - #:eko #:count-it #:count-of #:trc #:trcp - #:wdbg #: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)) + #:eko #:count-it #:count-of #:trc #:trcp + #:wdbg #:maptimes #:bwhen #:bif #:xor + "WITH-DYNAMIC-FN" #:last1 #:packed-flat! #:with-metrics + #-(or lispworks mcl) "TRUE" "SHORTC" + #:intern$ + #:defconstant-once "*COUNT*" "*STOP*" + "*DBG*" "*TRCDEPTH*" + #:make-fifo-queue #:fifo-add #:fifo-empty #:fifo-pop #:mapfifo))
Index: cell-cultures/utils-kt/detritus.lisp diff -u cell-cultures/utils-kt/detritus.lisp:1.1 cell-cultures/utils-kt/detritus.lisp:1.2 --- cell-cultures/utils-kt/detritus.lisp:1.1 Sat Jun 26 20:38:43 2004 +++ cell-cultures/utils-kt/detritus.lisp Thu Oct 28 02:09:42 2004 @@ -42,7 +42,7 @@ (copy-list (class-instance-slots c))))
-#-lispworks +#-(or lispworks mcl) (defun true (it) (declare (ignore it)) t) (defun false (it) (declare (ignore it))) (defun xor (c1 c2)