Changeset 12605

Timestamp:

04/15/10 14:26:57 (13 years ago)

Author:

Mark Evenson

Message:

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

File:

• trunk/abcl/test/lisp/abcl/bar.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/bar.lisp

@@ +1 @@
+(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)))