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