Why does operate return no value?

Can anyone recall the design decision behind operate returning no  
values?

It would be nice (especially for things like 'test-op) to get a value  
back so that one could, for example, do

(unless (asdf:oos 'asdf:test-op 'my-system)
	(error "My system failed its tests, bummer."))

thanks,
--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM





-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV