Changeset 4438

Timestamp:

10/17/03 17:34:13 (19 years ago)

Author:

piso

Message:

parseNamestring()

File:

• trunk/j/src/org/armedbear/lisp/Pathname.java (modified) (5 diffs)

trunk/j/src/org/armedbear/lisp/Pathname.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Pathname.java,v 1.16 2003-09-25 01:21:42 piso Exp $
+ * $Id: Pathname.java,v 1.17 2003-10-17 17:34:13 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -86 +86 @@
     }
 
+    public static Pathname parseNamestring(String namestring)
+        throws ConditionThrowable
+    {
+        return new Pathname(namestring);
+    }
+
     // ### namestring
     // namestring pathname => namestring
     // FIXME arg can be a stream, too...
-    private static final Primitive1 NAMESTRING = new Primitive1("namestring") {
+    private static final Primitive1 NAMESTRING = new Primitive1("namestring")
+    {
         public LispObject execute(LispObject arg) throws ConditionThrowable
         {
@@ -129 +136 @@
     // pathname pathspec => pathname
     // FIXME pathspec can be a stream, too...
-    private static final Primitive1 PATHNAME = new Primitive1("pathname") {
+    private static final Primitive1 PATHNAME = new Primitive1("pathname")
+    {
         public LispObject execute(LispObject arg) throws ConditionThrowable
         {
@@ -145 +153 @@
     // FIXME Very incomplete.
     private static final Primitive _MAKE_PATHNAME =
-        new Primitive("%make-pathname", PACKAGE_SYS, false) {
+        new Primitive("%make-pathname", PACKAGE_SYS, false)
+    {
         public LispObject execute(LispObject[] args) throws ConditionThrowable
         {
@@ -194 +203 @@
 
     // ### pathnamep
-    private static final Primitive1 PATHNAMEP = new Primitive1("pathnamep") {
+    private static final Primitive1 PATHNAMEP = new Primitive1("pathnamep")
+    {
         public LispObject execute(LispObject arg) throws ConditionThrowable
         {