[cl-graph-devel] in case anyone is wondering about my sanity

[Gary King]

That corrected code was supposed to be

(defun system-loaded-p (system-name)
   (let ((load-op (make-instance 'load-op))
         (system (find-system system-name nil)))
     (handler-case
	(and system
	     (operation-done-p load-op system)
	     (null (traverse load-op system)))
       (error ()
	;; just treat any error as 'not loaded' for now...
	nil))))


-- 
Gary Warren King
metabang.com
http://www.metabang.com/


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-graph-devel/attachments/20051211/98d3f152/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/pkcs7-signature
Size: 2367 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cl-graph-devel/attachments/20051211/98d3f152/attachment.bin>