CMUCL commit: src/contrib (5 files)

[Raymond Toy]

    Date: Tuesday, May 11, 2010 @ 22:49:35
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/contrib

Modified: embedded-c/embedded-c.lisp games/feebs/feebs.lisp hist/hist.lisp
          psgraph/psgraph.lisp sprof/sprof.lisp

Update call to PROVIDE to use the module name.  (Not really needed
since the modules use asdf now.)


----------------------------+
 embedded-c/embedded-c.lisp |    2 +-
 games/feebs/feebs.lisp     |    4 ++--
 hist/hist.lisp             |    2 +-
 psgraph/psgraph.lisp       |    2 +-
 sprof/sprof.lisp           |    2 +-
 5 files changed, 6 insertions(+), 6 deletions(-)


Index: src/contrib/embedded-c/embedded-c.lisp
diff -u src/contrib/embedded-c/embedded-c.lisp:1.3 src/contrib/embedded-c/embedded-c.lisp:1.4
--- src/contrib/embedded-c/embedded-c.lisp:1.3	Wed Sep  9 11:51:27 2009
+++ src/contrib/embedded-c/embedded-c.lisp	Tue May 11 22:49:35 2010
@@ -270,4 +270,4 @@
  (defstub coredumpp ((status :int) => :int)
    "return WCOREDUMP(status);"))
 
-(provide "contrib-embedded-c")
+(provide "EMBEDDED-C")
Index: src/contrib/games/feebs/feebs.lisp
diff -u src/contrib/games/feebs/feebs.lisp:1.7 src/contrib/games/feebs/feebs.lisp:1.8
--- src/contrib/games/feebs/feebs.lisp:1.7	Wed Sep  9 11:51:27 2009
+++ src/contrib/games/feebs/feebs.lisp	Tue May 11 22:49:35 2010
@@ -16,7 +16,7 @@
 ;;;
 ;;; To see a demo, compile and load feebs.lisp then type (feebs:feebs).
 ;;;
-;;; $Id: feebs.lisp,v 1.7 2009-09-09 15:51:27 rtoy Rel $
+;;; $Id: feebs.lisp,v 1.8 2010-05-12 02:49:35 rtoy Exp $
 ;;;
 
 (cl:in-package "COMMON-LISP")
@@ -1982,4 +1982,4 @@
 	  (t
 	   :turn-around))))
 
-(provide "contrib-games-feebs")
+(provide "FEEBS")
Index: src/contrib/hist/hist.lisp
diff -u src/contrib/hist/hist.lisp:1.2 src/contrib/hist/hist.lisp:1.3
--- src/contrib/hist/hist.lisp:1.2	Wed Sep  9 11:51:27 2009
+++ src/contrib/hist/hist.lisp	Tue May 11 22:49:35 2010
@@ -88,4 +88,4 @@
 	(t (incf (svref *hist-array* (floor (- value *hist-lower-limit*)
 					    *hist-bucket-size*))))))
 
-(provide "contrib-hist")
+(provide "HIST")
Index: src/contrib/psgraph/psgraph.lisp
diff -u src/contrib/psgraph/psgraph.lisp:1.3 src/contrib/psgraph/psgraph.lisp:1.4
--- src/contrib/psgraph/psgraph.lisp:1.3	Wed Sep  9 11:51:27 2009
+++ src/contrib/psgraph/psgraph.lisp	Tue May 11 22:49:35 2010
@@ -568,4 +568,4 @@
 	   (setf (gethash (list x y) *ancestor-cache*) (list cached-value))
 	   cached-value))))
 
-(provide "contrib-psgraph")
+(provide "PSGRAPH")
Index: src/contrib/sprof/sprof.lisp
diff -u src/contrib/sprof/sprof.lisp:1.4 src/contrib/sprof/sprof.lisp:1.5
--- src/contrib/sprof/sprof.lisp:1.4	Wed Sep  9 11:51:27 2009
+++ src/contrib/sprof/sprof.lisp	Tue May 11 22:49:35 2010
@@ -1342,5 +1342,5 @@
 		    :verbose nil
 		    :print nil :progress nil))))
 
-(provide "contrib-sprof")
+(provide "SPROF")
 ;;; End of file.