Set SYSTEM-PACKAGE-P bit for contrib modules

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")

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

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

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))

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))

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*))
 

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))

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)
 

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))

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
 

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)

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)

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")

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))

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))

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)

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")

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))