[bknr-cvs] ksprotte changed trunk/projects/bos/m2/m2.lisp

[BKNR Commits]

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))