;;; cross-compilation host Common Lisp.
(defun load-or-cload-xcompiler (load-or-cload-stem)
+ (declare (type function load-or-cload-stem))
+
;; The running-in-the-host-Lisp Python cross-compiler defines its
;; own versions of a number of functions which should not overwrite
;; host-Lisp functions. Instead we put them in a special package.
;; existence in xc and target
"BUILT-IN-CLASS"
"BYTE" "BYTE-POSITION" "BYTE-SIZE"
+ "CHAR-CODE"
"CLASS" "CLASS-NAME" "CLASS-OF"
+ "CODE-CHAR"
"COMPILE-FILE"
"COMPILE-FILE-PATHNAME"
"*COMPILE-FILE-PATHNAME*"
"STRUCTURE-CLASS"
"SUBTYPEP"
"TYPE-OF" "TYPEP"
+ "UPGRADED-ARRAY-ELEMENT-TYPE"
"WITH-COMPILATION-UNIT"))
(export (intern name package-name) package-name)))
;; don't watch:
"SB!INT"
"SB!KERNEL"
"SB!LOOP"
- #!+mp "SB!MP"
"SB!PCL"
"SB!PRETTY"
"SB!PROFILE"
"SB!SYS"
+ "SB!THREAD"
"SB!UNIX"
"SB!VM"
"SB!WALKER"))