Changeset 5804
 Timestamp:
 02/13/04 02:15:45 (17 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/j/src/org/armedbear/lisp/earlydefuns.lisp
r5799 r5804 2 2 ;;; 3 3 ;;; Copyright (C) 20032004 Peter Graves 4 ;;; $Id: earlydefuns.lisp,v 1.1 3 20040213 00:28:17piso Exp $4 ;;; $Id: earlydefuns.lisp,v 1.14 20040213 02:15:45 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 53 53 (returnfrom normalizetype '(simplearray t (*)))) 54 54 (BITVECTOR 55 (returnfrom normalizetype '( array bit (*))))55 (returnfrom normalizetype '(bitvector *))) 56 56 (SIMPLEBITVECTOR 57 (returnfrom normalizetype '(simple array bit (*))))57 (returnfrom normalizetype '(simplebitvector *))) 58 58 (BASESTRING 59 59 (returnfrom normalizetype '(array basechar (*)))) … … 127 127 (case (length i) 128 128 (0 129 (returnfrom normalizetype '( array bit (*))))129 (returnfrom normalizetype '(bitvector *))) 130 130 (1 131 (returnfrom normalizetype (list ' array 'bit (list (car i)))))131 (returnfrom normalizetype (list 'bitvector (car i)))) 132 132 (t 133 133 (error "Invalid type specifier ~S." type)))) … … 135 135 (case (length i) 136 136 (0 137 (returnfrom normalizetype '(simple array bit (*))))137 (returnfrom normalizetype '(simplebitvector *))) 138 138 (1 139 (returnfrom normalizetype (list 'simple array 'bit (list (car i)))))139 (returnfrom normalizetype (list 'simplebitvector (car i)))) 140 140 (t 141 141 (error "Invalid type specifier ~S." type))))
Note: See TracChangeset
for help on using the changeset viewer.