[armedbear-cvs] r13944 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu May 24 04:11:43 2012
New Revision: 13944

Log:
Add docstring for SYS:UNZIP.

Modified:
   trunk/abcl/src/org/armedbear/lisp/unzip.java

Modified: trunk/abcl/src/org/armedbear/lisp/unzip.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/unzip.java	Thu May 24 04:11:41 2012	(r13943)
+++ trunk/abcl/src/org/armedbear/lisp/unzip.java	Thu May 24 04:11:43 2012	(r13944)
@@ -42,12 +42,15 @@
 import java.util.zip.ZipEntry;
 import java.util.zip.ZipFile;
 
-// ### unzip pathname directory => unzipped_pathnames
+ at DocString(name="unzip",
+           args="pathname &optional directory => unzipped_pathnames",
+           doc="Unpack zip archive at PATHNAME returning a list of extracted pathnames.\nIf the optional DIRECTORY is specified, root the abstraction in that directory, otherwise use the current value of *DEFAULT-PATHNAME-DEFAULTS.")
 public final class unzip 
   extends Primitive
 {
     public unzip() {
-        super("unzip", PACKAGE_SYS, true, "pathname &optional directory => unzipped_pathnames");
+        super("unzip", PACKAGE_SYS, true, 
+              "pathname &optional directory => unzipped_pathnames");
     }
   
     @Override