Changeset 5301


Ignore:
Timestamp:
01/01/04 01:39:20 (17 years ago)
Author:
piso
Message:

PATHNAME-HOST
PATHNAME-DEVICE
PATHNAME-DIRECTORY
PATHNAME-NAME
PATHNAME-TYPE

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/autoloads.lisp

    r5291 r5301  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: autoloads.lisp,v 1.81 2003-12-31 19:39:44 piso Exp $
     4;;; $Id: autoloads.lisp,v 1.82 2004-01-01 01:39:20 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7373(autoload '(mismatch search))
    7474(autoload 'make-string)
    75 (autoload 'make-pathname)
     75(autoload '(make-pathname pathname-host pathname-device pathname-directory
     76            pathname-name pathname-type)
     77          "make-pathname.lisp")
    7678(autoload '(signum floor ceiling round rem mod ftruncate ffloor fceiling fround
    7779            rational rationalize gcd isqrt float-sign phase cis)
  • trunk/j/src/org/armedbear/lisp/make-pathname.lisp

    r3294 r5301  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: make-pathname.lisp,v 1.1 2003-08-10 00:36:59 piso Exp $
     4;;; $Id: make-pathname.lisp,v 1.2 2004-01-01 01:38:45 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2929         (case :local))
    3030  (%make-pathname host device directory name type version defaults case))
     31
     32(defun pathname-host (pathname &key (case :local))
     33  (%pathname-host pathname case))
     34
     35(defun pathname-device (pathname &key (case :local))
     36  (%pathname-device pathname case))
     37
     38(defun pathname-directory (pathname &key (case :local))
     39  (%pathname-directory pathname case))
     40
     41(defun pathname-name (pathname &key (case :local))
     42  (%pathname-name pathname case))
     43
     44(defun pathname-type (pathname &key (case :local))
     45  (%pathname-type pathname case))
Note: See TracChangeset for help on using the changeset viewer.