Changeset 13954
- Timestamp:
- 05/29/12 19:21:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/examples/misc/dotabclrc
r13953 r13954 9 9 10 10 ;;; Customize the procedure used by CL:DISASSEMBLE 11 (progn 12 (setf *disassembler* 13 (let ((strategies (list 14 (lambda (p) 15 (let ((class (make-pathname :name (pathname-name p))) 16 (path (directory-namestring p))) 17 (format nil "javap -c -l -verbose -classpath ~A ~A" path class)) 18 "/Users/evenson/bin/jad -a -p" 19 (lambda (p) 20 (format nil "java -jar ~ 11 (setf *disassembler* 12 (let ((strategies (list (lambda (p) 13 (let ((class (make-pathname :name (pathname-name p))) 14 (path (directory-namestring p))) 15 (format nil "javap -c -l -verbose -classpath ~A ~A" path class))) 16 "/Users/evenson/bin/jad -a -p" 17 (lambda (p) 18 (format nil "java -jar ~ 21 19 /Users/evenson/work/classfileanalyzer/classfileanalyzer.jar ~A" 22 p)))))) 23 (first strategies)))) 24 20 p))))) 21 (first strategies))) 25 22 26 23 (defparameter *ansi-tests-directory*
Note: See TracChangeset
for help on using the changeset viewer.