diff --git a/contrib/sb-aclrepl/toplevel.lisp b/contrib/sb-aclrepl/toplevel.lisp index ebb64fb5f..a2874caf2 100644 --- a/contrib/sb-aclrepl/toplevel.lisp +++ b/contrib/sb-aclrepl/toplevel.lisp @@ -14,6 +14,8 @@ "MAKE-REPL-FUN")) (cl:in-package :sb-aclrepl) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p *package*) t)) (defvar *noprint* nil "boolean: T if don't print prompt and output") diff --git a/contrib/sb-bsd-sockets/defpackage.lisp b/contrib/sb-bsd-sockets/defpackage.lisp index f00f436ff..3a9cb2f9b 100644 --- a/contrib/sb-bsd-sockets/defpackage.lisp +++ b/contrib/sb-bsd-sockets/defpackage.lisp @@ -51,6 +51,9 @@ socket API for C and Graham Barr's IO::Socket classes for Perl. We represent sockets as CLOS objects, and rename a lot of methods and arguments to fit Lisp style more closely.")) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p (find-package "SB-BSD-SOCKETS-INTERNAL")) t + (sb-int:system-package-p (find-package "SB-BSD-SOCKETS")) t)) ;;; gethostbyname/gethostbyaddr are generally not thread safe. POSIX ;;; 1003.1-2003 defines an alternative API, which is specified in the diff --git a/contrib/sb-capstone/capstone.lisp b/contrib/sb-capstone/capstone.lisp index 5df6ab114..d6dbda80f 100644 --- a/contrib/sb-capstone/capstone.lisp +++ b/contrib/sb-capstone/capstone.lisp @@ -136,6 +136,8 @@ #:cs-open-for-target)) (in-package "SB-CAPSTONE") +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p *package*) t)) (defun try-load-shared-object (pathname) (handler-case diff --git a/contrib/sb-cltl2/defpackage.lisp b/contrib/sb-cltl2/defpackage.lisp index 696e1b840..765e79472 100644 --- a/contrib/sb-cltl2/defpackage.lisp +++ b/contrib/sb-cltl2/defpackage.lisp @@ -11,3 +11,5 @@ #:parse-macro #:enclose )) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p (find-package "SB-CLTL2")) t)) diff --git a/contrib/sb-concurrency/package.lisp b/contrib/sb-concurrency/package.lisp index ea6e0a846..33553619b 100644 --- a/contrib/sb-concurrency/package.lisp +++ b/contrib/sb-concurrency/package.lisp @@ -57,3 +57,5 @@ "GRAB-FRLOCK-WRITE-LOCK" "RELEASE-FRLOCK-WRITE-LOCK" )) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p (find-package "SB-CONCURRENCY")) t)) diff --git a/contrib/sb-cover/cover.lisp b/contrib/sb-cover/cover.lisp index ebb26bccf..24f1a5fbe 100644 --- a/contrib/sb-cover/cover.lisp +++ b/contrib/sb-cover/cover.lisp @@ -15,6 +15,8 @@ #:store-coverage-data)) (in-package #:sb-cover) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p *package*) t)) (defmacro code-coverage-hashtable () `(car sb-c:*code-coverage-info*)) diff --git a/contrib/sb-executable/sb-executable.lisp b/contrib/sb-executable/sb-executable.lisp index 364af21de..527c8d82d 100644 --- a/contrib/sb-executable/sb-executable.lisp +++ b/contrib/sb-executable/sb-executable.lisp @@ -5,6 +5,8 @@ ) (cl:in-package :sb-executable) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p *package*) t)) (defvar *stream-buffer-size* 8192) (defun copy-stream (from to &key (element-type (stream-element-type from) element-type-passed-p)) diff --git a/contrib/sb-gmp/gmp.lisp b/contrib/sb-gmp/gmp.lisp index 551dac277..dc21f6b5d 100644 --- a/contrib/sb-gmp/gmp.lisp +++ b/contrib/sb-gmp/gmp.lisp @@ -56,6 +56,8 @@ )) (in-package "SB-GMP") +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p *package*) t)) (defvar *gmp-disabled* nil) diff --git a/contrib/sb-grovel/defpackage.lisp b/contrib/sb-grovel/defpackage.lisp index d95685ff0..9aa3d5f4b 100644 --- a/contrib/sb-grovel/defpackage.lisp +++ b/contrib/sb-grovel/defpackage.lisp @@ -6,3 +6,5 @@ ;; nasty things done with SB-ALIEN:STRUCT. (:implement "SB-ALIEN") (:use "COMMON-LISP" "SB-ALIEN" #+asdf "ASDF" #+asdf "UIOP")) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p (find-package "SB-GROVEL")) t)) diff --git a/contrib/sb-introspect/introspect.lisp b/contrib/sb-introspect/introspect.lisp index 0baba7eba..0b4b4fc9d 100644 --- a/contrib/sb-introspect/introspect.lisp +++ b/contrib/sb-introspect/introspect.lisp @@ -57,6 +57,8 @@ "WHO-SPECIALIZES-GENERALLY")) (in-package :sb-introspect) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (system-package-p *package*) t)) ;;;; Internal interface for SBCL debug info diff --git a/contrib/sb-md5/md5.lisp b/contrib/sb-md5/md5.lisp index 8f9a15d6b..a737b70e8 100644 --- a/contrib/sb-md5/md5.lisp +++ b/contrib/sb-md5/md5.lisp @@ -68,6 +68,8 @@ #:md5sum-sequence #:md5sum-string #:md5sum-stream #:md5sum-file)) (in-package sb-md5) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p *package*) t)) #+cmu (eval-when (:compile-toplevel) diff --git a/contrib/sb-mpfr/mpfr.lisp b/contrib/sb-mpfr/mpfr.lisp index 3a25f21a4..5ab5430b6 100644 --- a/contrib/sb-mpfr/mpfr.lisp +++ b/contrib/sb-mpfr/mpfr.lisp @@ -183,6 +183,8 @@ #:coerce)) (in-package :sb-mpfr) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p *package*) t)) (defvar +mpfr-precision+) (defvar *mpfr-version* nil) diff --git a/contrib/sb-posix/defpackage.lisp b/contrib/sb-posix/defpackage.lisp index f81c0a78a..663f6263a 100644 --- a/contrib/sb-posix/defpackage.lisp +++ b/contrib/sb-posix/defpackage.lisp @@ -27,6 +27,8 @@ ;; libc routines #:getenv #:strtod )) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p (find-package "SB-POSIX")) t)) #+win32 (sb-alien:load-shared-object "msvcrt.dll") diff --git a/contrib/sb-queue/package.lisp b/contrib/sb-queue/package.lisp index 314af994f..29318380f 100644 --- a/contrib/sb-queue/package.lisp +++ b/contrib/sb-queue/package.lisp @@ -23,3 +23,5 @@ "QUEUE-EMPTY-P" "QUEUE-NAME" "QUEUEP")) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p (find-package "SB-QUEUE")) t)) diff --git a/contrib/sb-rotate-byte/package.lisp b/contrib/sb-rotate-byte/package.lisp index f65678bfd..ef4841ab5 100644 --- a/contrib/sb-rotate-byte/package.lisp +++ b/contrib/sb-rotate-byte/package.lisp @@ -1,3 +1,5 @@ (defpackage "SB-ROTATE-BYTE" (:use "CL" "SB-C" "SB-VM" "SB-INT" "SB-KERNEL" "SB-ASSEM") (:export "ROTATE-BYTE")) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p (find-package "SB-ROTATE-BYTE")) t)) diff --git a/contrib/sb-rt/rt.lisp b/contrib/sb-rt/rt.lisp index d3d09a533..8e6decfcb 100644 --- a/contrib/sb-rt/rt.lisp +++ b/contrib/sb-rt/rt.lisp @@ -27,6 +27,8 @@ (:documentation "The MIT regression tester")) (in-package :sb-rt) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p *package*) t)) (defvar *test* nil "Current test name") (defvar *do-tests-when-defined* nil) diff --git a/contrib/sb-simple-streams/package.lisp b/contrib/sb-simple-streams/package.lisp index 0ba9a49fc..c15c1c246 100644 --- a/contrib/sb-simple-streams/package.lisp +++ b/contrib/sb-simple-streams/package.lisp @@ -70,6 +70,8 @@ #:PRIN1-TO-STRING #:PRINC #:PRINC-TO-STRING #:PRINT #:READ #:READ-DELIMITED-LIST #:READ-FROM-STRING #:WRITE #:WRITE-LINE #:WRITE-TO-STRING #:READ-PRESERVING-WHITESPACE)) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p (find-package "SB-SIMPLE-STREAMS")) t)) #|| (in-package "SB-EXT") diff --git a/contrib/sb-sprof/package.lisp b/contrib/sb-sprof/package.lisp index c00b4a4bf..a0c6262d1 100644 --- a/contrib/sb-sprof/package.lisp +++ b/contrib/sb-sprof/package.lisp @@ -22,3 +22,5 @@ #:*sample-interval* #:*max-samples* #:*alloc-interval* #:start-profiling #:stop-profiling #:with-profiling #:reset)) +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf (sb-int:system-package-p (find-package "SB-SPROF")) t))