Changeset 14987


Ignore:
Timestamp:
03/30/17 09:37:09 (9 months ago)
Author:
mevenson
Message:

Fix CL:MAKE-PATHNAME for explicit NIL host

Location:
trunk/abcl
Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/CHANGES

    r14913 r14987  
    88Fixes
    99-----
     10
     11* Fix CL:MAKE-PATHNAME for explicitly nil HOST
    1012
    1113* JNEW-RUNTIME-CLASS
  • trunk/abcl/abcl.asd

    r14986 r14987  
    6363                         #+abcl
    6464                         (:file "package-local-nicknames-tests")))))
     65
     66(defsystem abcl/t
     67  :description "Tests for ABCL via PROVE."
     68  :defsystem-depends-on (prove-asdf)
     69  :depends-on (abcl
     70               prove)
     71  :perform (asdf:test-op (op c)
     72                         (uiop:symbol-call :prove-asdf :run-test-system c))
     73  :components ((:module package
     74                        :pathname "t/"
     75                        :components ((:file "package")))
     76               (:module build
     77                        :depends-on (package)
     78                        :pathname "t/"
     79                        :components ((:test-file "pathname")))))
    6580
    6681;;;
  • trunk/abcl/src/org/armedbear/lisp/Pathname.java

    r14659 r14987  
    13201320    }
    13211321
     1322
    13221323    static final Pathname _makePathname(LispObject[] args) {
    13231324        if (args.length % 2 != 0) {
     
    13311332        LispObject version = NIL;
    13321333        Pathname defaults = null;
     1334        boolean hostSupplied = false;
    13331335        boolean deviceSupplied = false;
    13341336        boolean nameSupplied = false;
     
    13411343            if (key == Keyword.HOST) {
    13421344                host = value;
     1345                hostSupplied = true;
    13431346            } else if (key == Keyword.DEVICE) {
    13441347                device = value;
     
    13851388        }
    13861389        if (defaults != null) {
    1387             if (host == NIL) {
     1390            if (!hostSupplied) {
    13881391                host = defaults.host;
    13891392            }
  • trunk/abcl/t/package.lisp

    r14986 r14987  
    44   #:install))
    55
     6(defpackage abcl/test
     7  (:use :cl :prove))
    68
    79
Note: See TracChangeset for help on using the changeset viewer.