[mcclim-cvs] CVS mcclim/Drei/Tests

[thenriksen]

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