اللثغة المشتركة:الحصول على نسخة من حزمة ASDF

Question

أعلم أنه يمكنني الحصول على رقم إصدار ASDF نفسه باستخدامه (asdf:asdf-version).ولكن الأمر نفسه لا يعمل مع جميع الحزم الأخرى التي أقوم بتحميلها باستخدام ASDF، على سبيل المثال. (my-system:my-system-version).هل هناك أي طريقة برمجية للحصول على قيمة a :version الكلمة الأساسية في تعريف النظام؟

(defsystem my-system
   ...
   :version "0.1"
   ...)

أنا أكتب خادم HTTP بسيطًا وأرغب في تضمين رقم الإصدار في رأس خادم HTTP.على أية حال، من الشائع لأي برنامج أن يتمكن من طباعة رقم الإصدار الخاص به في مكان ما للحصول على معلومات المستخدم.بالطبع، أرغب في تحديد رقم الإصدار في مكان واحد فقط، حيث قد أنسى تحديثه في أماكن متعددة.

Answer 1

(slot-value (asdf:find-system 'my-system) 'asdf:version)