Skip to content
Snippets Groups Projects
Commit b35875df authored by wlott's avatar wlott
Browse files

Changed data-vector-ref/simple-vector to not include null and zero as valid

scs for the result.
parent 668c1a4c
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.42 1993/06/12 20:35:23 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.43 1993/06/12 21:35:32 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -136,7 +136,9 @@
(defmacro def-full-data-vector-frobs (type element-type &rest scs)
`(progn
(define-full-reffer ,(symbolicate "DATA-VECTOR-REF/" type) ,type
vector-data-offset other-pointer-type ,scs ,element-type
vector-data-offset other-pointer-type
,(remove-if #'(lambda (x) (member x '(null zero))) scs)
,element-type
data-vector-ref)
(define-full-setter ,(symbolicate "DATA-VECTOR-SET/" type) ,type
vector-data-offset other-pointer-type ,scs ,element-type
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment