[armedbear-cvs] r12605 - trunk/abcl/test/lisp/abcl

[Mark Evenson]

Author: mevenson
Date: Thu Apr 15 10:26:57 2010
New Revision: 12605

Log:
Added *load-truename* and *load-pathname* forms to jar-file construction.



Modified:
   trunk/abcl/test/lisp/abcl/bar.lisp

Modified: trunk/abcl/test/lisp/abcl/bar.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/bar.lisp	(original)
+++ trunk/abcl/test/lisp/abcl/bar.lisp	Thu Apr 15 10:26:57 2010
@@ -1,6 +1,11 @@
+(defvar *pathname* *load-pathname*)
+(defvar *truename* *load-truename*)
+
 (defun bar () 
   (labels 
-      ((output () (format t "Some BAR")))
+      ((output () 
+         (format t "Some BAR~%*load-pathname* ~S~%*load-truename* ~S~%"
+                 *pathname* *truename*)))
     (output)))
 
 (defvar *bar* t)