Changeset 5804


Ignore:
Timestamp:
02/13/04 02:15:45 (17 years ago)
Author:
piso
Message:

NORMALIZE-TYPE: BIT-VECTOR, SIMPLE-BIT-VECTOR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/early-defuns.lisp

    r5799 r5804  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: early-defuns.lisp,v 1.13 2004-02-13 00:28:17 piso Exp $
     4;;; $Id: early-defuns.lisp,v 1.14 2004-02-13 02:15:45 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    5353            (return-from normalize-type '(simple-array t (*))))
    5454           (BIT-VECTOR
    55             (return-from normalize-type '(array bit (*))))
     55            (return-from normalize-type '(bit-vector *)))
    5656           (SIMPLE-BIT-VECTOR
    57             (return-from normalize-type '(simple-array bit (*))))
     57            (return-from normalize-type '(simple-bit-vector *)))
    5858           (BASE-STRING
    5959            (return-from normalize-type '(array base-char (*))))
     
    127127       (case (length i)
    128128         (0
    129           (return-from normalize-type '(array bit (*))))
     129          (return-from normalize-type '(bit-vector *)))
    130130         (1
    131           (return-from normalize-type (list 'array 'bit (list (car i)))))
     131          (return-from normalize-type (list 'bit-vector (car i))))
    132132         (t
    133133          (error "Invalid type specifier ~S." type))))
     
    135135       (case (length i)
    136136         (0
    137           (return-from normalize-type '(simple-array bit (*))))
     137          (return-from normalize-type '(simple-bit-vector *)))
    138138         (1
    139           (return-from normalize-type (list 'simple-array 'bit (list (car i)))))
     139          (return-from normalize-type (list 'simple-bit-vector (car i))))
    140140         (t
    141141          (error "Invalid type specifier ~S." type))))
Note: See TracChangeset for help on using the changeset viewer.