source: trunk/abcl/test/lisp/abcl/bar.lisp @ 12605

Last change on this file since 12605 was 12605, checked in by Mark Evenson, 11 years ago

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

File size: 307 bytes
Line 
1(defvar *pathname* *load-pathname*)
2(defvar *truename* *load-truename*)
3
4(defun bar () 
5  (labels 
6      ((output () 
7         (format t "Some BAR~%*load-pathname* ~S~%*load-truename* ~S~%"
8                 *pathname* *truename*)))
9    (output)))
10
11(defvar *bar* t)
12
13(defun baz ()
14  (format t "Some BAZ"))
15
16
Note: See TracBrowser for help on using the repository browser.