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

Added defknown for structurify.

parent 0aa3e5f6
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.23 1990/08/21 14:58:38 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.24 1990/10/02 05:40:29 wlott Exp $
;;;
;;; This file defines the machine specific function signatures.
;;;
......@@ -88,6 +88,10 @@
(unsafe))
(defknown structurify (simple-vector) structure
(unsafe))
(defknown %raw-bits (t fixnum) (unsigned-byte 32)
(foldable flushable))
(defknown (%set-raw-bits) (t fixnum (unsigned-byte 32)) (unsigned-byte 32)
......
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