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

[Thomas F. Burdick]

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

Modified Files:
	debug.lisp defpackage.lisp utils-kt.lpr 
Log Message:
Added asdf<->lpr glue, and fixed ACL-produced nonsense like defpackage
forms for the common-lisp package (I'm guessing ACL ignores these).


Date: Tue Jun 29 01:58:49 2004
Author: tburdick

Index: cell-cultures/utils-kt/debug.lisp
diff -u cell-cultures/utils-kt/debug.lisp:1.1 cell-cultures/utils-kt/debug.lisp:1.2
--- cell-cultures/utils-kt/debug.lisp:1.1	Sat Jun 26 11:38:43 2004
+++ cell-cultures/utils-kt/debug.lisp	Tue Jun 29 01:58:49 2004
@@ -22,10 +22,6 @@
 
 (in-package :utils-kt)
 
-(eval-when (compile load eval)
-  (export '(eko eko-if)))
-
-
 (defparameter *trcdepth* 0)
 (defvar *count* nil)
 (defvar *counting* nil)


Index: cell-cultures/utils-kt/defpackage.lisp
diff -u cell-cultures/utils-kt/defpackage.lisp:1.1 cell-cultures/utils-kt/defpackage.lisp:1.2
--- cell-cultures/utils-kt/defpackage.lisp:1.1	Sat Jun 26 11:38:43 2004
+++ cell-cultures/utils-kt/defpackage.lisp	Tue Jun 29 01:58:49 2004
@@ -20,15 +20,13 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-(in-package :common-lisp)
-
 (defpackage :utils-kt
     (:use #:common-lisp
       #-(or cormanlisp cmu sbcl) #:clos
       #+sbcl #:sb-mop
       #+mcl #:ccl)
   (:export
-   #:eko #:count-it #:trc #:maptimes #:bwhen #:bif #:xor
+   #: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*"


Index: cell-cultures/utils-kt/utils-kt.lpr
diff -u cell-cultures/utils-kt/utils-kt.lpr:1.1 cell-cultures/utils-kt/utils-kt.lpr:1.2
--- cell-cultures/utils-kt/utils-kt.lpr:1.1	Sat Jun 26 11:38:43 2004
+++ cell-cultures/utils-kt/utils-kt.lpr	Tue Jun 29 01:58:49 2004
@@ -2,10 +2,6 @@
 
 (in-package :common-graphics-user)
 
-(defpackage :common-lisp
-            (:export :intern :find-package :list :make-instance :t :nil
-             :quote))
-
 (define-project :name :utils-kt
   :application-type (intern "Standard EXE" (find-package :keyword))
   :modules (list (make-instance 'module :name "defpackage.lisp")