From 1376291781926046b1101ee9cf494b828b60dde2 Mon Sep 17 00:00:00 2001
From: Edi Weitz <>
Date: Wed, 7 Dec 2005 00:49:01 +0000
Subject: [PATCH] Push :ASDF-SYSTEMNAME (Alan Shields)

---
 asdf.lisp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 5af79291..cf3e236c 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; 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
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -109,7 +109,7 @@
 
 (in-package #:asdf)
 
-(defvar *asdf-revision* (let* ((v "$Revision: 1.89 $")
+(defvar *asdf-revision* (let* ((v "$Revision: 1.90 $")
 			       (colon (or (position #\: v) -1))
 			       (dot (position #\. v)))
 			  (and v colon dot 
@@ -760,6 +760,11 @@ system."))
   (cons (list 'compile-op (component-name c))
         (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
 
 (defclass load-source-op (operation) ())
-- 
GitLab