|
Last change
on this file was
13945,
checked in by Mark Evenson, 13 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.
