Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
e194e97a
Commit
e194e97a
authored
Nov 10, 1990
by
wlott
Browse files
Added float arrays to the list of unboxed arrays.
parent
4340ac4b
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/generic/vm-type.lisp
View file @
e194e97a
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.2
0
1990/11/
05 20:03:1
5 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.2
1
1990/11/
10 18:42:0
5 wlott Exp $
;;;
;;; This file contains implementation-dependent parts of the type support
;;; code. This is stuff which deals with the mapping from types defined in
...
...
@@ -104,14 +104,14 @@
(
deftype
unboxed-array
(
&optional
dims
)
(
collect
((
types
(
list
'or
)))
(
dolist
(
type
specialized-array-element-types
)
(
when
(
subtypep
type
'
(
or
integer
character
))
(
when
(
subtypep
type
'
(
or
integer
character
float
))
(
types
`
(
array
,
type
,
dims
))))
(
types
)))
(
deftype
simple-unboxed-array
(
&optional
dims
)
(
collect
((
types
(
list
'or
)))
(
dolist
(
type
specialized-array-element-types
)
(
when
(
subtypep
type
'
(
or
integer
character
))
(
when
(
subtypep
type
'
(
or
integer
character
float
))
(
types
`
(
simple-array
,
type
,
dims
))))
(
types
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment