[cells-cvs] CVS update: cell-cultures/utils-kt/defpackage.lisp cell-cultures/utils-kt/detritus.lisp

[Kenny Tilton]

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)