Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/tests
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv10721/tests
188.8.131.52: Minor cleanup in %TARGET-DEFSTRUCT.
* Minor refactoring: split MAKE-DEFSTRUCT-PREDICATE and
MAKE-DEFSTRUCT-COPIER out of %TARGET-DEFSTRUCT.
* Remove FIXME: MAKE-DEFSTRUCT-COPIER now returns a closure which
type checks its argument for proper layout before passing it to
RCS file: /cvsroot/sbcl/sbcl/tests/defstruct.impure.lisp,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- defstruct.impure.lisp 19 Dec 2008 19:00:01 -0000 1.36
+++ defstruct.impure.lisp 11 Feb 2010 22:11:07 -0000 1.37
@@ -1061,3 +1061,7 @@
(assert (eq 'string (type-error-expected-type e)))
(assert (zerop (type-error-datum e))))))
+(with-test (:name defstruct-copier-typechecks-argument)
+ (assert (not (raises-error? (copy-person (make-astronaut :name "Neil")))))
+ (assert (raises-error? (copy-astronaut (make-person :name "Fred")))))
Sign up for the SourceForge newsletter: