Hi Luke,
Hmmm, asdf:find-system will find the _system_ file (possibly loading it) but it won't tell you if CL-Markdown is loaded or not. ASDF defines (and exports) operation-done-p but you have to use it with classes, not symbols. Once could do
(in-package #:asdf)
(defmethod operation-done-p ((o symbol) (c t)) (operation-done-p (make-instance o) c))
(defmethod operation-done-p ((o t) (c symbol)) (operation-done-p o (find-system c)))
And then ask (operation-done-p 'asdf:load-op 'cl-markdown)
or you could define
(defun system-loaded-p (system) (operation-done-p 'load-op (find-system system)))
and ask (system-loaded-p 'cl-markdown)
It seems like this is a general sort of facility; maybe someone on the CCLAN list will have other ideas. If not, I'm going to suggest that the three definitions above (or at least the first two) become part of ASDF.
HTH,
On Jul 20, 2007, at 1:25 PM, Luke J Crook wrote:
Should I use (find-system 'cl-markdown) to detect if CL-MARKDOWN is loaded?
- Luke
cl-markdown-devel mailing list cl-markdown-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cl-markdown-devel
-- Gary Warren King, metabang.com Cell: (413) 885 9127 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM