source: trunk/abcl/tools/fasl.lisp @ 13945

Last change on this file since 13945 was 13945, checked in by Mark Evenson, 10 years ago

Start collecting routines for massaging fasl for analysis tools.

File size: 647 bytes
Line 
1(in-package :cl-user)
2
3(defun unpack (fasl-path &key (dir (make-temp-directory)))
4  "Unpack compressed fasl at FASL-PATH into 'org/armedbear/lisp' under DIR renaming *.cls to *.class."
5  (let ((pkg-dir (merge-pathnames "org/armedbear/lisp/" dir)))
6    (ensure-directories-exist dir)
7    (sys:unzip fasl-path dir)
8    (ensure-directories-exist pkg-dir)
9    (loop :for fasl :in (directory (merge-pathnames "*.cls" dir))
10       :doing (rename-file 
11               fasl
12               (make-pathname :defaults fasl
13                              :directory (pathname-directory pkg-dir)
14                              :type "class")))
15    dir))
16
17       
Note: See TracBrowser for help on using the repository browser.