(defun sb!kernel:array-header-p (x)
(and (typep x 'array)
(or (not (typep x 'simple-array))
- (/= (array-rank x) 1))))
+ (/= (array-rank x) 1))))
;;; GENESIS needs these at cross-compile time. The target
;;; implementation of these is reasonably efficient by virtue of its
;; of this function at cross-compile time don't really care if
;; the count is a little too high.) -- WHN 19990826
(multiple-value-bind (symbol status)
- (find-symbol (symbol-name i) package)
- (declare (ignore symbol))
- (when (member status '(:internal :inherited))
- (incf result))))
+ (find-symbol (symbol-name i) package)
+ (declare (ignore symbol))
+ (when (member status '(:internal :inherited))
+ (incf result))))
result))
(defun package-external-symbol-count (package)
(let ((result 0))
(assert (typep array '(simple-array * (*))))
(values array start end 0))
-#!-(or alpha x86-64)
-(progn
- (defun sb!vm::ash-left-mod32 (integer amount)
- (ldb (byte 32 0) (ash integer amount)))
- (defun sb!vm::logxor-mod32 (x y)
- (ldb (byte 32 0) (logxor x y)))
- (defun sb!vm::lognot-mod32 (x)
- (ldb (byte 32 0) (lognot x))))
-#!+(or alpha x86-64)
-(defun sb!vm::ash-left-mod64 (integer amount)
- (ldb (byte 64 0) (ash integer amount)))
+(defun sb!kernel:signed-byte-32-p (number)
+ (typep number '(signed-byte 32)))
;;; package locking nops for the cross-compiler
(defmacro without-package-locks (&body body)
`(progn ,@body))
-(defmacro with-single-package-locked-error ((&optional kind thing &rest format)
- &body body)
+(defmacro with-single-package-locked-error ((&optional kind thing &rest format)
+ &body body)
(declare (ignore kind thing format))
`(progn ,@body))