Changeset 4433


Ignore:
Timestamp:
10/17/03 15:35:53 (19 years ago)
Author:
piso
Message:

filename => (pathname filename)

File:
1 edited

Legend:

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

    r3284 r4433  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: open.lisp,v 1.2 2003-08-09 23:43:08 piso Exp $
     4;;; $Id: open.lisp,v 1.3 2003-10-17 15:35:53 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2828       (external-format :default))
    2929  (cond ((eq direction :input)
    30          (%open-input-file filename element-type))
     30         (%open-input-file (pathname filename) element-type))
    3131        ((eq direction :output)
    32          (%open-output-file filename element-type if-exists))
     32         (%open-output-file (pathname filename) element-type if-exists))
    3333        (t
    34          (error "operation not supported"))))
     34         (error "OPEN: operation not supported"))))
Note: See TracChangeset for help on using the changeset viewer.