Changeset 13953 for trunk/abcl/examples


Ignore:
Timestamp:
05/29/12 19:06:04 (6 years ago)
Author:
mevenson
Message:

Customize the disassembler used locally to analyze JVM bytecode.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/examples/misc/dotabclrc

    r12721 r13953  
    77;;;   .clisprc.lisp      (CLISP)
    88;;;   .lispworks         (LispWorks)
     9
     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 ~
     21/Users/evenson/work/classfileanalyzer/classfileanalyzer.jar ~A"
     22                                               p))))))
     23          (first strategies))))
     24
    925
    1026(defparameter *ansi-tests-directory*
Note: See TracChangeset for help on using the changeset viewer.