[armedbear-cvs] r11598 - trunk/abcl/test/lisp/ansi

[Mark Evenson]

Author: mevenson
Date: Wed Jan 28 11:29:27 2009
New Revision: 11598

Log:
Added (somehow) missing GCL ANSI test ASDF loading wrappers.


Added:
   trunk/abcl/test/lisp/ansi/ansi-tests-compiled.lisp   (contents, props changed)
   trunk/abcl/test/lisp/ansi/ansi-tests-interpreted.lisp   (contents, props changed)
Modified:
   trunk/abcl/test/lisp/ansi/package.lisp

Added: trunk/abcl/test/lisp/ansi/ansi-tests-compiled.lisp
==============================================================================
--- (empty file)
+++ trunk/abcl/test/lisp/ansi/ansi-tests-compiled.lisp	Wed Jan 28 11:29:27 2009
@@ -0,0 +1,6 @@
+(require 'asdf)
+(asdf:oos 'asdf:load-op :abcl)
+(asdf:oos 'asdf:load-op :test-abcl)
+(asdf:oos 'asdf:load-op :ansi-abcl-compiled :force t)
+(asdf:oos 'asdf:test-op :ansi-test-compiled :force t)
+(ext:exit)
\ No newline at end of file

Added: trunk/abcl/test/lisp/ansi/ansi-tests-interpreted.lisp
==============================================================================
--- (empty file)
+++ trunk/abcl/test/lisp/ansi/ansi-tests-interpreted.lisp	Wed Jan 28 11:29:27 2009
@@ -0,0 +1,5 @@
+(require 'asdf)
+(asdf:oos 'asdf:load-op :abcl)
+(asdf:oos 'asdf:load-op :test-abcl)
+(asdf:oos 'asdf:test-op :ansi-test-interpreted :force t)
+(ext:exit)

Modified: trunk/abcl/test/lisp/ansi/package.lisp
==============================================================================
--- trunk/abcl/test/lisp/ansi/package.lisp	(original)
+++ trunk/abcl/test/lisp/ansi/package.lisp	Wed Jan 28 11:29:27 2009
@@ -47,8 +47,7 @@
 and set the value of *ANSI-TESTS-DIRECTORY* to that location."
 		 ansi-tests-directory e 
 		 *ansi-tests-master-source-location*))))
-    (setf *default-pathname-defaults*
-	  original-pathname-defaults)))
+    (setf *default-pathname-defaults* original-pathname-defaults)))