CMUCL commit: src/contrib/defsystem (defsystem.lisp)

[Raymond Toy]

    Date: Monday, May 10, 2010 @ 22:21:47
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/contrib/defsystem

Modified: defsystem.lisp

PROVIDE DEFSYSTEM as well as MAKE so that REQUIRE won't load defsystem
again if it's already loaded.


----------------+
 defsystem.lisp |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)


Index: src/contrib/defsystem/defsystem.lisp
diff -u src/contrib/defsystem/defsystem.lisp:1.9 src/contrib/defsystem/defsystem.lisp:1.10
--- src/contrib/defsystem/defsystem.lisp:1.9	Mon May 10 15:30:40 2010
+++ src/contrib/defsystem/defsystem.lisp	Mon May 10 22:21:46 2010
@@ -1072,7 +1072,9 @@
 (provide 'make)
 
 #-(or :cltl2 :lispworks)
-(provide 'make)
+(progn
+  (provide 'make)
+  (provide 'defsystem))
 
 (pushnew :mk-defsystem *features*)