;;; may then have to wade through some irrelevant warnings).
(declaim (declaration inhibit-warnings))
-;;; We sometimes want to enable DX unconditionally in our own code,
-;;; but the host can ignore this without harm.
-(declaim (declaration sb!c::stack-allocate-dynamic-extent))
-
;;; Interrupt control isn't an issue in the cross-compiler: we don't
;;; use address-dependent (and thus GC-dependent) hashes, and we only
;;; have a single thread of control.
`(progn ,@body)))
,@forms))
+(defmacro with-locked-hash-table ((table) &body body)
+ (declare (ignore table))
+ `(progn ,@body))
+
;;; The GENESIS function works with fasl code which would, in the
;;; target SBCL, work on ANSI-STREAMs (streams which aren't extended
;;; Gray streams). In ANSI Common Lisp, an ANSI-STREAM is just a
(assert (typep array '(simple-array * (*))))
(values array start end 0))
+(defun sb!kernel:%with-array-data/fp (array start end)
+ (assert (typep array '(simple-array * (*))))
+ (values array start end 0))
+
(defun sb!kernel:signed-byte-32-p (number)
(typep number '(signed-byte 32)))