(assert (typep array '(simple-array * (*))))
(values array start end 0))
-#!-alpha
+#!-(or alpha x86-64)
(defun sb!vm::ash-left-mod32 (integer amount)
(ldb (byte 32 0) (ash integer amount)))
-#!+alpha
+#!+(or alpha x86-64)
(defun sb!vm::ash-left-mod64 (integer amount)
(ldb (byte 64 0) (ash integer amount)))
(declare (ignore kind thing format))
`(progn ,@body))
-(defmacro with-deferred-package-lock-violations (&body body)
- `(flet ((prepend-package-lock-violations (forms) forms)
- (package-lock-violations () nil))
- ,@body))
+(defun compiler-assert-symbol-home-package-unlocked (symbol control)
+ (declare (ignore control))
+ symbol)
(defun assert-package-unlocked (package &optional control &rest args)
(declare (ignore control args))
(declare (ignore format continuablep))
name)
-(deftype package-lock-violation () nil)
-
-(deftype package-locked-error () nil)
-
-(deftype symbol-package-locked-error () nil)
-
(declaim (declaration enable-package-locks disable-package-locks))