Changeset 9237


Ignore:
Timestamp:
05/24/05 13:58:01 (16 years ago)
Author:
piso
Message:

OPEN: the :DEFAULT element type is (UNSIGNED-BYTE 8).

File:
1 edited

Legend:

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

    r9124 r9237  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: open.lisp,v 1.22 2005-05-10 18:17:30 piso Exp $
     4;;; $Id: open.lisp,v 1.23 2005-05-24 13:58:01 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    9595       (if-does-not-exist nil if-does-not-exist-given)
    9696       (external-format :default))
    97   (setf element-type (upgraded-element-type element-type))
     97  (setf element-type (case element-type
     98                       (:default
     99                        '(unsigned-byte 8))
     100                       (t
     101                        (upgraded-element-type element-type))))
    98102  (let ((pathname (merge-pathnames filename)))
    99103    (when (memq direction '(:output :io))
Note: See TracChangeset for help on using the changeset viewer.