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

Thomas F. Burdick tburdick at common-lisp.net
Wed Jun 30 21:02:12 UTC 2004


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)





More information about the Cells-cvs mailing list