Changeset 15402

Timestamp:

10/10/20 21:43:39 (2 years ago)

Author:

Mark Evenson

Message:

Modernize Cons references

File:

• trunk/abcl/src/org/armedbear/lisp/Pathname.java (modified) (1 diff)

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

@@ -430 +430 @@
     @Override
     public LispObject getParts() {
-        LispObject parts = NIL;
-        parts = parts.push(new Cons("HOST", getHost()));
-        parts = parts.push(new Cons("DEVICE", getDevice()));
-        parts = parts.push(new Cons("DIRECTORY", getDirectory()));
-        parts = parts.push(new Cons("NAME", getName()));
-        parts = parts.push(new Cons("TYPE", getType()));
-        parts = parts.push(new Cons("VERSION", getVersion()));
-        return parts.nreverse();
+        LispObject parts 
+          = list(new Cons("HOST", getHost()),
+                 new Cons("DEVICE", getDevice()),
+                 new Cons("DIRECTORY", getDirectory()),
+                 new Cons("NAME", getName()),
+                 new Cons("TYPE", getType()),
+                 new Cons("VERSION", getVersion()));
+        return parts; 
     }