Revision: 3805 Author: ksprotte URL: http://bknr.net/trac/changeset/3805
setf contract-download-only: ensure that we set it to either T or NIL
U trunk/projects/bos/m2/m2.lisp
Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2008-09-05 10:27:56 UTC (rev 3804) +++ trunk/projects/bos/m2/m2.lisp 2008-09-05 11:12:38 UTC (rev 3805) @@ -330,6 +330,10 @@ (deftransaction contract-set-download-only-p (contract newval) (setf (contract-download-only contract) newval))
+(defmethod (setf contract-download-only) :around (newval (obj contract)) + "Ensures that NEWVAL is either T or NIL." + (call-next-method (if newval t nil) obj)) + (defmethod contract-fdf-pathname ((contract contract) &key language print) (when (and print (contract-download-only-p contract))