Changeset 12605


Ignore:
Timestamp:
04/15/10 14:26:57 (12 years ago)
Author:
Mark Evenson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/bar.lisp

    r12141 r12605  
     1(defvar *pathname* *load-pathname*)
     2(defvar *truename* *load-truename*)
     3
    14(defun bar ()
    25  (labels
    3       ((output () (format t "Some BAR")))
     6      ((output ()
     7         (format t "Some BAR~%*load-pathname* ~S~%*load-truename* ~S~%"
     8                 *pathname* *truename*)))
    49    (output)))
    510
Note: See TracChangeset for help on using the changeset viewer.