lの二列目だけを抽出できないでしょうか？
CL-USER> (let ((l (ql:system-list))) (first l))
#<QL-DIST:SYSTEM 3b-swf / 3b-swf-20110110-git / quicklisp 2011-12-03>