Skip to content
Snippets Groups Projects
Commit 13762917 authored by Edi Weitz's avatar Edi Weitz
Browse files

Push :ASDF-SYSTEMNAME (Alan Shields)

parent 7f5643ee
No related branches found
No related tags found
No related merge requests found
;;; This is asdf: Another System Definition Facility. $Revision: 1.89 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.90 $
;;; ;;;
;;; 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
...@@ -109,7 +109,7 @@ ...@@ -109,7 +109,7 @@
(in-package #:asdf) (in-package #:asdf)
(defvar *asdf-revision* (let* ((v "$Revision: 1.89 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.90 $")
(colon (or (position #\: v) -1)) (colon (or (position #\: v) -1))
(dot (position #\. v))) (dot (position #\. v)))
(and v colon dot (and v colon dot
...@@ -760,6 +760,11 @@ system.")) ...@@ -760,6 +760,11 @@ system."))
(cons (list 'compile-op (component-name c)) (cons (list 'compile-op (component-name c))
(call-next-method))) (call-next-method)))
(defmethod asdf:perform :after ((operation load-op) (s system))
"After a system is loaded by ASDF, push ASDF-SYSTEMNAME onto *features*
This enables easy use of #+asdf-systemname and friends"
(pushnew (intern (format nil "ASDF-~A" (string-upcase (component-name s))) :keyword) cl:*features*))
;;; load-source-op ;;; load-source-op
(defclass load-source-op (operation) ()) (defclass load-source-op (operation) ())
......
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