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")