X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Flate-extensions.lisp;h=890fd43f8ac40fbc10dd4af08e3b6b61761b8328;hb=b2036b630923934234d66247f18acf7a6c1085ec;hp=21df767f0dc7a3a1e24a97f23915c1a2e5a5d4e7;hpb=b92e0bedf7e29a43fe4fd9141b5d658751e3bef0;p=sbcl.git

diff --git a/src/code/late-extensions.lisp b/src/code/late-extensions.lisp
index 21df767..890fd43 100644
--- a/src/code/late-extensions.lisp
+++ b/src/code/late-extensions.lisp
@@ -296,6 +296,11 @@ EXPERIMENTAL: Interface subject to change."
            (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
@@ -344,16 +349,3 @@ See also the declarations SB-EXT:GLOBAL and SB-EXT:ALWAYS-BOUND."
   (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))))