diff --git a/compiler/rt/array.lisp b/compiler/rt/array.lisp index a77f378ce48388ccf766cdcbfda3786c740bcb7a..0357ae1214ee53649c866d48e822c259cdb466e8 100644 --- a/compiler/rt/array.lisp +++ b/compiler/rt/array.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/array.lisp,v 1.6 1991/05/05 15:37:01 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/array.lisp,v 1.7 1991/08/25 19:06:23 ram Exp $ ;;; ;;; This file contains the IBM RT definitions for array operations. ;;; @@ -393,6 +393,7 @@ ;;;; Float vectors. +#-afpa(progn (define-vop (data-vector-ref/simple-array-mc68881-single-float) (:note "inline array access") (:translate data-vector-ref) @@ -470,6 +471,7 @@ (inst mc68881-wait) (unless (location= result value) (inst mc68881-move result value scratch)))) +) ;;;; Raw bits without regard to vector type.