[cl-graph-devel] Pesky bug fixed...

[Gary King]

I finally managed to figure out the infinite loop problem and believe  
that it is now fixed (and on the web). The problem was in asdf-system- 
connections. In case anyone is interested, I had defined system- 
loaded-p as

(defun system-loaded-p (system-name)
   (let ((load-op (make-instance 'load-op))
         (system (find-system system-name nil)))
	(and system
	     (operation-done-p load-op system)
	     (null (traverse load-op system)))))

because I was under the impression that traverse was side-effect  
free. That was the wrong impression. A better definition of system- 
loaded-p is:

(defun system-loaded-p (system-name)
   (let ((load-op (make-instance 'load-op))
         (system (find-system system-name nil)))
	(and system
	     (operation-done-p load-op system)
	     (null (traverse load-op system)))
One step forward...
-- 
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/f411fd41/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/f411fd41/attachment.bin>