(type sb!vm:signed-word diff))
(%array-atomic-incf/word array index diff))
+(defun spin-loop-hint ()
+ #!+sb-doc
+ "Hints the processor that the current thread is spin-looping."
+ (spin-loop-hint))
+
(defun call-hooks (kind hooks &key (on-error :error))
(dolist (hook hooks)
(handler-case
(sb!c:with-source-location (source-location)
(setf (info :source-location :variable name) source-location))
name)
-
-;;; Needs WITH-COMPILATION-UNIT, hence not in toplevel.lisp.
-(defun load-script (pathname)
- ;; WITH-COMPILATION-UNIT to avoid style-warnings for
- ;; forward-referenced functions in scripts. Needs to be around
- ;; HANDLING-END-OF-THE-WORLD so that we don't unwind from it, which
- ;; would cause a bogus complaint about a fatal error...
- (sb!xc:with-compilation-unit ()
- (handling-end-of-the-world
- (with-open-file (f pathname :element-type :default)
- (sb!fasl::maybe-skip-shebang-line f)
- (load f :verbose nil :print nil))
- (quit))))