Changeset 13954 for trunk/abcl/examples


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

bugfix: typo in last commit.

Pay attention to indentation! Trust in Emacs.

File:
1 edited

Legend:

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

    r13953 r13954  
    99
    1010;;; 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 ~
    2119/Users/evenson/work/classfileanalyzer/classfileanalyzer.jar ~A"
    22                                                p))))))
    23           (first strategies))))
    24 
     20                                        p)))))
     21          (first strategies)))
    2522
    2623(defparameter *ansi-tests-directory*
Note: See TracChangeset for help on using the changeset viewer.