Skip to content
Snippets Groups Projects
Commit 41a776c3 authored by Christophe Rhodes's avatar Christophe Rhodes
Browse files

PROVIDE asdf. I'm fairly sure I want to do this, despite PROVIDE's

deprecation, because (a) I want to undeprecate it; (b) its effect is
trivially reimplementable even if it vanishes; (c) it will shortly
become the right thing to do in sbcl.
parent 74007220
No related branches found
No related tags found
No related merge requests found
;;; This is asdf: Another System Definition Facility. $Revision: 1.78 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.79 $
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical ;;; <cclan-list@lists.sf.net>. But note first that the canonical
...@@ -106,7 +106,7 @@ ...@@ -106,7 +106,7 @@
(in-package #:asdf) (in-package #:asdf)
(defvar *asdf-revision* (let* ((v "$Revision: 1.78 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.79 $")
(colon (or (position #\: v) -1)) (colon (or (position #\: v) -1))
(dot (position #\. v))) (dot (position #\. v)))
(and v colon dot (and v colon dot
...@@ -1099,3 +1099,5 @@ output to *verbose-out*. Returns the shell's exit code." ...@@ -1099,3 +1099,5 @@ output to *verbose-out*. Returns the shell's exit code."
*central-registry*) *central-registry*)
(pushnew 'module-provide-asdf sb-ext:*module-provider-functions*)) (pushnew 'module-provide-asdf sb-ext:*module-provider-functions*))
(provide 'asdf)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment