[armedbear-cvs] r13954 - trunk/abcl/examples/misc

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue May 29 12:21:00 2012
New Revision: 13954

Log:
bugfix:  typo in last commit.

Pay attention to indentation!  Trust in Emacs.

Modified:
   trunk/abcl/examples/misc/dotabclrc

Modified: trunk/abcl/examples/misc/dotabclrc
==============================================================================
--- trunk/abcl/examples/misc/dotabclrc	Tue May 29 12:06:04 2012	(r13953)
+++ trunk/abcl/examples/misc/dotabclrc	Tue May 29 12:21:00 2012	(r13954)
@@ -8,20 +8,17 @@
 ;;;   .lispworks         (LispWorks)
 
 ;;; 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*
   #-(or windows mswindows win32)