Changeset 13954

Timestamp:

05/29/12 19:21:00 (9 years ago)

Author:

Mark Evenson

Message:

bugfix: typo in last commit.

Pay attention to indentation! Trust in Emacs.

File:

• trunk/abcl/examples/misc/dotabclrc (modified) (1 diff)

trunk/abcl/examples/misc/dotabclrc

@@ -9 +9 @@
 
 ;;; Customize the procedure used by CL:DISASSEMBLE
-(progn 
-  (setf *disassembler*       
-        (let ((strategies (list 
-                                   (lambda (p)
-                                     (let ((class (make-pathname :name (pathname-name p)))
-                                           (path (directory-namestring p)))
-                                       (format nil "javap -c -l -verbose -classpath ~A ~A" path class))
-                                     "/Users/evenson/bin/jad -a -p"
-                                     (lambda (p)
-                                       (format nil "java -jar ~
+(setf *disassembler*       
+      (let ((strategies (list (lambda (p)
+                                (let ((class (make-pathname :name (pathname-name p)))
+                                      (path (directory-namestring p)))
+                                  (format nil "javap -c -l -verbose -classpath ~A ~A" path class)))
+                              "/Users/evenson/bin/jad -a -p"
+                              (lambda (p)
+                                (format nil "java -jar ~
 /Users/evenson/work/classfileanalyzer/classfileanalyzer.jar ~A"
-                                               p))))))
-          (first strategies))))
-
+                                        p)))))
+          (first strategies)))
 
 (defparameter *ansi-tests-directory*