[cmucl-cvs] CMUCL commit: src/code (module.lisp)

[Raymond Toy]

    Date: Wednesday, June 8, 2011 @ 08:56:56
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: module.lisp

(require "asdf") loads asdf now.

This change need to support the new recommended way of loading asdf2
with require.  This is a backward compatible change.


-------------+
 module.lisp |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)


Index: src/code/module.lisp
diff -u src/code/module.lisp:1.16 src/code/module.lisp:1.17
--- src/code/module.lisp:1.16	Tue May 11 19:50:11 2010
+++ src/code/module.lisp	Wed Jun  8 08:56:55 2011
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/module.lisp,v 1.16 2010/05/12 02:50:11 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/module.lisp,v 1.17 2011/06/08 15:56:55 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 
@@ -140,6 +140,10 @@
 (defmodule :defsystem
     "modules:defsystem/defsystem")
 
+;; Allow user to load asdf using either (require :asdf) or (require
+;; "asdf")
 (defmodule :asdf
     "modules:asdf/asdf")
 
+(defmodule "asdf"
+    "modules:asdf/asdf")
\ No newline at end of file