Update of /project/mcclim/cvsroot/mcclim/Drei/Tests In directory clnet:/tmp/cvs-serv19364/Drei/Tests

Modified Files: motion-tests.lisp Log Message: Merged splittist's work on splitting the general parts of the Lisp syntax's LR parser into an abstract syntax type. Also some supporting (mostly package) fixes needed to make it all still roll.

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/motion-tests.lisp 2007/02/17 17:54:06 1.2 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/motion-tests.lisp 2007/04/27 21:37:15 1.3 @@ -102,7 +102,7 @@ (let ((forward (intern (format nil "FORWARD-ONE-~S" unit))) (backward (intern (format nil "BACKWARD-ONE-~S" unit)))) `(progn - (test ,(intern (format nil "~A-~A" syntax forward)) + (test ,(intern (format nil "~A-~A" syntax forward) #.*package*) (with-buffer (buffer :initial-contents ,initial-contents :syntax ',syntax) (let ((syntax (syntax buffer)) @@ -134,7 +134,7 @@ (is (= (size buffer) (offset m2l))) (is-false (,forward m2r syntax)) (is (= (size buffer) (offset m2r)))))) - (test ,(intern (format nil "~A-~A" syntax backward)) + (test ,(intern (format nil "~A-~A" syntax backward) #.*package*) (with-buffer (buffer :initial-contents ,initial-contents :syntax ',syntax) (let ((syntax (syntax buffer)) @@ -207,8 +207,8 @@ (check-type offset integer) (check-type goal-forward-offset integer) (check-type goal-backward-offset integer) - (let ((forward (intern (format nil "FORWARD-~S" unit))) - (backward (intern (format nil "BACKWARD-~S" unit)))) + (let ((forward (intern (format nil "FORWARD-~S" unit) #.*package*)) + (backward (intern (format nil "BACKWARD-~S" unit) #.*package*))) `(progn (test ,forward (with-buffer (buffer :initial-contents ,initial-contents