From: Nikodemus S. <de...@us...> - 2007-04-08 13:12:36
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv28176/tests Modified Files: setf.impure.lisp Log Message: 1.0.4.47: correct the mess of 1.0.4.46 * Previous was an accidental commit. Sorry. Index: setf.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/setf.impure.lisp,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- setf.impure.lisp 8 Apr 2007 12:51:37 -0000 1.8 +++ setf.impure.lisp 8 Apr 2007 13:12:31 -0000 1.9 @@ -65,20 +65,20 @@ local global)) -(aver (eq :local (macrolet ((defsetf-env-trick ())) - (setf (test-defsetf-env-1) 13)))) +(assert (eq :local (macrolet ((defsetf-env-trick ())) + (setf (test-defsetf-env-1) 13)))) -(aver (eq :global (setf (test-defsetf-env-1) 13))) +(assert (eq :global (setf (test-defsetf-env-1) 13))) -(aver (eq :local (macrolet ((defsetf-env-trick ())) - (setf (test-defsetf-env-2 :local :oops) 13)))) +(assert (eq :local (macrolet ((defsetf-env-trick ())) + (setf (test-defsetf-env-2 :local :oops) 13)))) -(aver (eq :global (setf (test-defsetf-env-2 :oops :global) 13))) +(assert (eq :global (setf (test-defsetf-env-2 :oops :global) 13))) -(aver (eq :error - (handler-case - (eval '(defsetf test-defsetf-aux (&aux aux) (new) nil)) - (error () - :error)))) +(assert (eq :error + (handler-case + (eval '(defsetf test-defsetf-aux (&aux aux) (new) nil)) + (error () + :error)))) ;;; success |