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

Import simple-array-p from the lisp package.

defknown %raw-bits and (setf %raw-bits).
parent 65b11712
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.1 1990/03/27 21:01:52 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.2 1990/03/29 21:32:30 wlott Exp $
;;;
;;; This file defines the machine specific function signatures.
;;;
......@@ -15,6 +15,9 @@
;;;
(in-package "C")
(import '(lisp::%raw-bits lisp::simple-array-p))
;;;; Internal type predicates:
;;;
......@@ -33,3 +36,10 @@
(simple-string index index simple-string index index)
(or index null)
(foldable flushable))
(defknown %raw-bits (t fixnum) (unsigned-byte 16)
(foldable flushable))
(defknown ((setf %raw-bits)) (t fixnum (unsigned-byte 16)) (unsigned-byte 16)
(unsafe))
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