common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Search-and-replace SB!KERNEL with SB-KERNEL

Browse source
This commit is contained in:
Douglas Katzman 2018-12-05 12:05:55 -05:00
parent ebd6f3689f
commit a2b990e220
157 changed files with 309 additions and 309 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
crossbuild-runner/backends/alpha/stuff-groveled-from-headers.lisp
View file

@ -144,7 +144,7 @@
(tv-sec (signed 64))
(tv-nsec (signed 64))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; Our runtime types
(define-alien-type os-vm-size-t (unsigned 64))

2
crossbuild-runner/backends/arm/stuff-groveled-from-headers.lisp
View file

@ -145,7 +145,7 @@
(tv-sec (signed 32))
(tv-nsec (signed 32))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; GENCGC related
(define-alien-type page-index-t (signed 32))

2
crossbuild-runner/backends/arm64/stuff-groveled-from-headers.lisp
View file

@ -144,7 +144,7 @@
(tv-sec (signed 64))
(tv-nsec (signed 64))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; GENCGC related
(define-alien-type page-index-t (signed 64))

2
crossbuild-runner/backends/hppa/stuff-groveled-from-headers.lisp
View file

@ -145,7 +145,7 @@
(tv-sec (signed 32))
(tv-nsec (signed 32))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; Our runtime types
(define-alien-type os-vm-size-t (unsigned 32))

2
crossbuild-runner/backends/mips/stuff-groveled-from-headers.lisp
View file

@ -145,7 +145,7 @@
(tv-sec (signed 32))
(tv-nsec (signed 32))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; Our runtime types
(define-alien-type os-vm-size-t (unsigned 32))

2
crossbuild-runner/backends/ppc/stuff-groveled-from-headers.lisp
View file

@ -144,7 +144,7 @@
(tv-sec (signed 32))
(tv-nsec (signed 32))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; GENCGC related
(define-alien-type page-index-t (signed 32))

2
crossbuild-runner/backends/ppc64/stuff-groveled-from-headers.lisp
View file

@ -147,7 +147,7 @@
(tv-sec (signed 64))
(tv-nsec (signed 64))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; GENCGC related
(define-alien-type page-index-t (signed 64))

2
crossbuild-runner/backends/sparc/stuff-groveled-from-headers.lisp
View file

@ -144,7 +144,7 @@
(tv-sec (signed 32))
(tv-nsec (signed 32))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; GENCGC related
(define-alien-type page-index-t (signed 32))

2
crossbuild-runner/backends/x86-64/stuff-groveled-from-headers.lisp
View file

@ -145,7 +145,7 @@
(tv-sec (signed 64))
(tv-nsec (signed 64))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; GENCGC related
(define-alien-type page-index-t (signed 64))

2
crossbuild-runner/backends/x86/stuff-groveled-from-headers.lisp
View file

@ -145,7 +145,7 @@
(tv-sec (signed 32))
(tv-nsec (signed 32))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; GENCGC related
(define-alien-type page-index-t (signed 32))

2
make-target-2-load.lisp
View file

@ -24,7 +24,7 @@
(or (and (>= (length name) 1) (char= (char name 0) #\!))
(and (>= (length name) 2) (string= name "*!" :end1 2))
(memq symbol
'(sb-c::sb!pcl sb-c::sb-impl sb-c::sb!kernel
'(sb-c::sb!pcl sb-c::sb-impl sb-c::sb-kernel
sb-c::sb-c sb-c::sb-int))))))
;; A structure constructor name, in particular !MAKE-SAETP,
;; can't be uninterned if referenced by a defstruct-description.

2
src/assembly/x86-64/assem-rtns.lisp
View file

@ -271,7 +271,7 @@
(inst jmp :e undefined)
(inst pop (ea n-word-bytes rbp-tn))
(emit-error-break nil error-trap (error-number-or-lose 'sb!kernel::object-not-callable-error)
(emit-error-break nil error-trap (error-number-or-lose 'sb-kernel::object-not-callable-error)
(list fun)))

2
src/code/alien-type.lisp
View file

@ -11,7 +11,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(/show0 "code/alien-type.lisp 16")

2
src/code/alpha-vm.lisp
View file

@ -116,5 +116,5 @@
(let* ((pc (context-pc context))
(trap-number (sap-ref-8 pc 3)))
(declare (type system-area-pointer pc))
(sb!kernel::decode-internal-error-args (sap+ pc 4) trap-number)))
(sb-kernel::decode-internal-error-args (sap+ pc 4) trap-number)))
) ; end PROGN

2
src/code/arm-vm.lisp
View file

@ -47,5 +47,5 @@
(let* ((pc (context-pc context))
(trap-number (sap-ref-8 pc 4)))
(declare (type system-area-pointer pc))
(sb!kernel::decode-internal-error-args (sap+ pc 5) trap-number)))
(sb-kernel::decode-internal-error-args (sap+ pc 5) trap-number)))
) ; end PROGN

2
src/code/arm64-vm.lisp
View file

@ -83,7 +83,7 @@
(declare (type system-area-pointer pc))
(if (= trap-number invalid-arg-count-trap)
(values error-number '(#.arg-count-sc) trap-number)
(sb!kernel::decode-internal-error-args (sap+ pc 4) trap-number error-number))))
(sb-kernel::decode-internal-error-args (sap+ pc 4) trap-number error-number))))
) ; end PROGN
;;; Undo the effects of XEP-ALLOCATE-FRAME

4
src/code/array.lisp
View file

@ -287,7 +287,7 @@
;; Do things the hard way after falling through the tagbody.
(let* ((ctype (type-or-nil-if-unknown type))
(ctype (and ctype
(sb!kernel::replace-hairy-type ctype))))
(sb-kernel::replace-hairy-type ctype))))
(typecase ctype
(null (result simple-vector-widetag))
(union-type
@ -1829,7 +1829,7 @@ function to be removed without further warning."
(svref ,',table-name ,tag)))
,@args))))))
(defun sb!kernel::check-array-shape (array dimensions)
(defun sb-kernel::check-array-shape (array dimensions)
(when (let ((dimensions dimensions))
(dotimes (i (array-rank array))
(unless (eql (array-dimension array i) (pop dimensions))

2
src/code/bignum.lisp
View file

@ -1048,7 +1048,7 @@
(multiple-value-bind (digits n-bits) (truncate x digit-size)
(let* ((bignum-len (or bignum-len (%bignum-length bignum)))
(res-len (+ digits bignum-len 1)))
(when (> res-len sb!kernel:maximum-bignum-length)
(when (> res-len sb-kernel:maximum-bignum-length)
(error "can't represent result of left shift"))
(if (zerop n-bits)
(bignum-ashift-left-digits bignum bignum-len digits)

16
src/code/bit-bash.lisp
View file

@ -161,17 +161,17 @@
(max-word-offset (ceiling max-bytes bytes-per-word))
(word-offset `(integer 0 ,max-word-offset))
(fix-sap-and-offset-name (intern (format nil "FIX-SAP-AND-OFFSET-UB~D" bitsize)))
(constant-bash-name (intern (format nil "CONSTANT-UB~D-BASH" bitsize) (find-package "SB!KERNEL")))
(array-fill-name (intern (format nil "UB~D-BASH-FILL" bitsize) (find-package "SB!KERNEL")))
(system-area-fill-name (intern (format nil "SYSTEM-AREA-UB~D-FILL" bitsize) (find-package "SB!KERNEL")))
(unary-bash-name (intern (format nil "UNARY-UB~D-BASH" bitsize) (find-package "SB!KERNEL")))
(array-copy-name (intern (format nil "UB~D-BASH-COPY" bitsize) (find-package "SB!KERNEL")))
(system-area-copy-name (intern (format nil "SYSTEM-AREA-UB~D-COPY" bitsize) (find-package "SB!KERNEL")))
(constant-bash-name (intern (format nil "CONSTANT-UB~D-BASH" bitsize) (find-package "SB-KERNEL")))
(array-fill-name (intern (format nil "UB~D-BASH-FILL" bitsize) (find-package "SB-KERNEL")))
(system-area-fill-name (intern (format nil "SYSTEM-AREA-UB~D-FILL" bitsize) (find-package "SB-KERNEL")))
(unary-bash-name (intern (format nil "UNARY-UB~D-BASH" bitsize) (find-package "SB-KERNEL")))
(array-copy-name (intern (format nil "UB~D-BASH-COPY" bitsize) (find-package "SB-KERNEL")))
(system-area-copy-name (intern (format nil "SYSTEM-AREA-UB~D-COPY" bitsize) (find-package "SB-KERNEL")))
(array-copy-to-system-area-name
(intern (format nil "COPY-UB~D-TO-SYSTEM-AREA" bitsize) (find-package "SB!KERNEL")))
(intern (format nil "COPY-UB~D-TO-SYSTEM-AREA" bitsize) (find-package "SB-KERNEL")))
(system-area-copy-to-array-name
(intern (format nil "COPY-UB~D-FROM-SYSTEM-AREA" bitsize)
(find-package "SB!KERNEL"))))
(find-package "SB-KERNEL"))))
`(progn
(declaim (inline ,constant-bash-name ,unary-bash-name))
;; Fill DST with VALUE starting at DST-OFFSET and continuing

2
src/code/cl-specials.lisp
View file

@ -98,7 +98,7 @@
(declaim (type list cl:/ cl:// cl:/// cl:*features* cl:*modules*))
(declaim (type sb!kernel:type-specifier cl:*break-on-signals*))
(declaim (type sb-kernel:type-specifier cl:*break-on-signals*))
(declaim (type package cl:*package*))

2
src/code/class-init.lisp
View file

@ -13,7 +13,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; built-in classes
(/show0 "beginning class-init.lisp")

4
src/code/class.lisp
View file

@ -11,7 +11,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(!begin-collecting-cold-init-forms)
@ -1104,7 +1104,7 @@ between the ~A definition and the ~A definition"
#.(loop for x across sb-vm:*specialized-array-element-type-properties*
unless (member (sb-vm::saetp-specifier x) '(t character base-char nil bit))
collect
;; I'm not sure if it's an accident that there are distinct SB!KERNEL
;; I'm not sure if it's an accident that there are distinct SB-KERNEL
;; versus SB-VM symbols for the specialized arrays. The former are types
;; in the language, and the latter are primitive object types,
;; but istm they should be designated by the same symbols.

4
src/code/coerce.lisp
View file

@ -206,7 +206,7 @@
(length object))))
((cons-type-p type)
(multiple-value-bind (min exactp)
(sb!kernel::cons-type-length-info type)
(sb-kernel::cons-type-length-info type)
(let ((length (length object)))
(if exactp
(unless (= length min)
@ -227,7 +227,7 @@
(length object))))
((cons-type-p type)
(multiple-value-bind (min exactp)
(sb!kernel::cons-type-length-info type)
(sb-kernel::cons-type-length-info type)
(let ((length (length object)))
(if exactp
(unless (= length min)

2
src/code/cold-error.lisp
View file

@ -9,7 +9,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(!defvar *break-on-signals* nil
"When (TYPEP condition *BREAK-ON-SIGNALS*) is true, then calls to SIGNAL will

2
src/code/cold-init-helper-macros.lisp
View file

@ -12,7 +12,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; FIXME: Perhaps this belongs in the %SYS package like some other
;;; cold load stuff.

12
src/code/cold-init.lisp
View file

@ -108,7 +108,7 @@
;; Ensure that *CURRENT-THREAD* and *HANDLER-CLUSTERS* have sane values.
;; create_thread_struct() assigned NIL/unbound-marker respectively.
(sb!thread::init-initial-thread)
(show-and-call sb!kernel::!target-error-cold-init)
(show-and-call sb-kernel::!target-error-cold-init)
;; Putting data in a synchronized hashtable (*PACKAGE-NAMES*)
;; requires that the main thread be properly initialized.
@ -127,7 +127,7 @@
;; *RAW-SLOT-DATA* is essentially a compile-time constant
;; but isn't dumpable as such because it has functions in it.
(show-and-call sb!kernel::!raw-slot-data-init)
(show-and-call sb-kernel::!raw-slot-data-init)
;; Must be done before any non-opencoded array references are made.
(show-and-call sb-vm::!hairy-data-vector-reffer-init)
@ -148,7 +148,7 @@
;; named function requires consing immobile space code.
#!+immobile-code (setq sb-vm::*immobile-space-mutex*
(sb!thread:make-mutex :name "Immobile space"))
(!with-init-wrappers (show-and-call sb!kernel::!primordial-type-cold-init))
(!with-init-wrappers (show-and-call sb-kernel::!primordial-type-cold-init))
(show-and-call !world-lock-cold-init)
(show-and-call !classes-cold-init)
(show-and-call !early-type-cold-init)
@ -165,7 +165,7 @@
;; Must be done before toplevel forms are invoked
;; because a toplevel defstruct will need to add itself
;; to the subclasses of STRUCTURE-OBJECT.
(show-and-call sb!kernel::!set-up-structure-object-class)
(show-and-call sb-kernel::!set-up-structure-object-class)
(dolist (x *!cold-defconstants*)
(destructuring-bind (name source-loc &optional docstring) x
@ -205,7 +205,7 @@
(aver (eq (code-header-ref object index) (make-unbound-marker)))
(setf (code-header-ref object index) (svref *!load-time-values* value))))
((cons (eql defstruct))
(apply 'sb!kernel::%defstruct (cdr toplevel-thing)))
(apply 'sb-kernel::%defstruct (cdr toplevel-thing)))
(t
(!cold-lose "bogus operation in *!COLD-TOPLEVELS*")))))
(/show0 "done with loop over cold toplevel forms and fixups")
@ -272,7 +272,7 @@
(setq *print-level* nil *print-length* nil) ; restore defaults
;; Enable normal (post-cold-init) behavior of INFINITE-ERROR-PROTECT.
(setf sb!kernel::*maximum-error-depth* 10)
(setf sb-kernel::*maximum-error-depth* 10)
(/show0 "enabling internal errors")
(setf (extern-alien "internal_errors_enabled" int) 1)

2
src/code/condition-boot.lisp
View file

@ -7,7 +7,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(!defstruct-with-alternate-metaclass condition
:slot-names (assigned-slots hash)

2
src/code/condition.lisp
View file

@ -11,7 +11,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;;; the CONDITION class

2
src/code/cross-condition.lisp
View file

@ -9,7 +9,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(define-condition simple-style-warning (simple-condition style-warning) ())
(defun style-warn (datum &rest arguments)

2
src/code/cross-misc.lisp
View file

@ -178,7 +178,7 @@
(declare (ignore depth))
(write structure :stream stream :circle t))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(defun %find-position (item seq from-end start end key test)
(let ((position (position item seq :from-end from-end
:start start :end end :key key :test test)))

4
src/code/cross-type.lisp
View file

@ -9,7 +9,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(define-condition cross-type-warning (warning)
((call :initarg :call :reader cross-type-warning-call)
@ -299,7 +299,7 @@
(warn-and-give-up))))
((target-type-is-in '(stream instance sb-impl::string-output-stream
broadcast-stream file-stream))
;; Neither target CL:STREAM nor target SB!KERNEL:INSTANCE
;; Neither target CL:STREAM nor target SB-KERNEL:INSTANCE
;; is implemented as a STRUCTURE-OBJECT, so they'll fall
;; through the tests above. We don't want to assume too
;; much about them here, but at least we know enough

10
src/code/deadline.lisp
View file

@ -43,7 +43,7 @@
;;
;; doesn't go beyond the INTERNAL-TIME range due to rounding
;; errors.
(floor (ash 1 (1- sb!kernel::internal-time-bits))
(floor (ash 1 (1- sb-kernel::internal-time-bits))
sb-xc:internal-time-units-per-second)))
(declaim (inline seconds-to-maybe-internal-time))
@ -111,7 +111,7 @@ Experimental."
(declaim (inline decode-internal-time))
(defun decode-internal-time (time)
"Returns internal time value TIME decoded into seconds and microseconds."
(declare (type sb!kernel:internal-time time))
(declare (type sb-kernel:internal-time time))
(multiple-value-bind (sec frac)
(truncate time sb-xc:internal-time-units-per-second)
(values sec (* frac sb!unix::micro-seconds-per-internal-time-unit))))
@ -174,7 +174,7 @@ CONDITION, or return NIL if the restart is not found."
ABS-SEC and ABS-USEC and current real time.
If ABS-SEC and ABS-USEC are in the past, 0 0 is returned."
(declare (type sb!kernel:internal-seconds abs-sec)
(declare (type sb-kernel:internal-seconds abs-sec)
(type (mod 1000000) abs-usec))
(binding* (((now-sec now-usec)
(decode-internal-time (get-internal-real-time)))
@ -197,9 +197,9 @@ If ABS-SEC and ABS-USEC are in the past, 0 0 is returned."
;;; If SECONDS is NIL and there is no *DEADLINE* all returned values
;;; are NIL.
(declaim (ftype (function ((or null (real 0)))
(values (or null sb!kernel:internal-seconds)
(values (or null sb-kernel:internal-seconds)
(or null (mod 1000000))
(or null sb!kernel:internal-seconds)
(or null sb-kernel:internal-seconds)
(or null (mod 1000000))
t))
decode-timeout))

12
src/code/debug-int.lisp
View file

@ -470,7 +470,7 @@
;; valid value at this code-location. (unexported).
(%live-set :unparsed :type (or simple-bit-vector (member :unparsed)))
;; (unexported) To see SB-C::LOCATION-KIND, do
;; (SB!KERNEL:TYPEXPAND 'SB-C::LOCATION-KIND).
;; (SB-KERNEL:TYPEXPAND 'SB-C::LOCATION-KIND).
(kind :unparsed :type (or (member :unparsed) sb-c::location-kind))
(step-info :unparsed :type (or (member :unparsed :foo) simple-string))
(context :unparsed))
@ -1389,14 +1389,14 @@ register."
(bogus-debug-fun-%name debug-fun))))
(defun interrupted-frame-error (frame)
(declare (special sb!kernel::*current-internal-error*))
(declare (special sb-kernel::*current-internal-error*))
(when (and (compiled-frame-p frame)
(compiled-frame-escaped frame)
sb!kernel::*current-internal-error*
sb-kernel::*current-internal-error*
(array-in-bounds-p sb-c:+backend-internal-errors+
sb!kernel::*current-internal-error*))
sb-kernel::*current-internal-error*))
(cadr (svref sb-c:+backend-internal-errors+
sb!kernel::*current-internal-error*))))
sb-kernel::*current-internal-error*))))
(defun all-args-available-p (frame)
(let ((error (interrupted-frame-error frame))
@ -2401,7 +2401,7 @@ register."
(escaped-float-value complex-double-float))
#!+long-float
(#.sb-vm:complex-long-reg-sc-number
(escaped-float-value sb!kernel::complex-long-float))
(escaped-float-value sb-kernel::complex-long-float))
(#.sb-vm:single-stack-sc-number
(with-nfp (nfp)
(sap-ref-single nfp (number-stack-offset))))

2
src/code/debug-var-io.lisp
View file

@ -158,7 +158,7 @@
(,shift 0)
(,acc 0)
(,prev 0))
#-sb-xc-host (declare (notinline sb!kernel:%ldb)) ; lp#1573398
#-sb-xc-host (declare (notinline sb-kernel:%ldb)) ; lp#1573398
(declare (type (mod ,sb-vm:n-word-bits) ,shift)
(type word ,acc ,prev))
(loop

4
src/code/debug.lisp
View file

@ -1165,7 +1165,7 @@ and LDB (the low-level debugger). See also ENABLE-DEBUGGER."
;;; This calls DEBUG-LOOP, performing some simple initializations
;;; before doing so. INVOKE-DEBUGGER calls this to actually get into
;;; the debugger. SB!KERNEL::ERROR-ERROR calls this in emergencies
;;; the debugger. SB-KERNEL::ERROR-ERROR calls this in emergencies
;;; to get into a debug prompt as quickly as possible with as little
;;; risk as possible for stepping on whatever is causing recursive
;;; errors.
@ -1825,7 +1825,7 @@ forms that explicitly control this kind of evaluation.")
;; But they may call other code through SATISFIES
;; declaration, check that the interrupt is actually in the XEP.
(and (sb!di::compiled-frame-escaped frame)
sb!kernel::*interr-current-bsp*)
sb-kernel::*interr-current-bsp*)
(let* ((compiled-debug-fun (and
(typep debug-fun 'sb!di::compiled-debug-fun)
(sb!di::compiled-debug-fun-compiler-debug-fun debug-fun)))

2
src/code/defbangstruct.lisp
View file

@ -13,7 +13,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; Has the type system been properly initialized? (I.e. is it OK to
;;; use it?)

2
src/code/defbangtype.lisp
View file

@ -7,7 +7,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;;; the DEF!TYPE macro

2
src/code/defboot.lisp
View file

@ -243,7 +243,7 @@ evaluated as a PROGN."
,@(when doc (list doc)) ,@lambda-guts))
(dxable-args (extract-dx-args lambda-list decls))
(inline-thing
(or (sb!kernel::defstruct-generated-defn-p name lambda-list body)
(or (sb-kernel::defstruct-generated-defn-p name lambda-list body)
(when (save-inline-expansion-p name)
;; we want to attempt to inline, so complain if we can't
(acond ((sb-c:maybe-inline-syntactic-closure lambda env)

2
src/code/defmacro.lisp
View file

@ -72,7 +72,7 @@
(setf (sb-xc:macro-function 'sb-xc:defmacro)
(lambda (form env)
(declare (ignore env))
;; Since SB!KERNEL:LEXENV isn't compatible with the host,
;; Since SB-KERNEL:LEXENV isn't compatible with the host,
;; just pass NIL. The expansion correctly captures a non-null
;; environment, but the expander doesn't need it.
(funcall real-expander form nil)))

2
src/code/defsetfs.lisp
View file

@ -44,7 +44,7 @@
(defsetf %raw-instance-ref/word %raw-instance-set/word)
;; The *FEATURE* formerly known as :RAW-SIGNED-WORD
;; This condition would be better as
;; (vop-translates sb!kernel:%raw-instance-ref/signed-word)
;; (vop-translates sb-kernel:%raw-instance-ref/signed-word)
;; however the defknown is only executed if the raw slot type exists.
;; (See compiler/generic/vm-fndb where it maps over *raw-slot-data*)
#!+(vop-named sb-vm::raw-instance-ref/signed-word)

4
src/code/defstruct.lisp
View file

@ -10,7 +10,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(/show0 "code/defstruct.lisp 15")
@ -399,7 +399,7 @@
(multiple-value-bind (forms name)
(!expander-for-defstruct
(etypecase env
(sb!kernel:lexenv (sb-c::null-lexenv-p env))
(sb-kernel:lexenv (sb-c::null-lexenv-p env))
;; a LOCALLY environment would be fine,
;; but is not an important case to handle.
#!+sb-fasteval (sb!interpreter:basic-env nil)

2
src/code/deftypes-for-target.lisp
View file

@ -9,7 +9,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(/show0 "deftypes-for-target.lisp 14")

2
src/code/early-cl.lisp
View file

@ -9,7 +9,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; the Common Lisp defined type spec symbols
(defparameter *!standard-type-names*

2
src/code/early-class.lisp
View file

@ -9,7 +9,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(defun call-with-defining-class (kind name thunk)
(declare (ignorable kind name))

4
src/code/early-classoid.lisp
View file

@ -11,7 +11,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;;; DEFSTRUCT-DESCRIPTION
@ -417,7 +417,7 @@
#+sb-xc-host
(specifier-type 'function)
#-sb-xc-host
(let* ((fdefn (sb!kernel::find-fdefn name))
(let* ((fdefn (sb-kernel::find-fdefn name))
(fun (and fdefn (fdefn-fun fdefn))))
(if fun
(handler-bind ((style-warning #'muffle-warning))

10
src/code/early-extensions.lisp
View file

@ -601,7 +601,7 @@ NOTE: This interface is experimental and subject to change."
;; in VALUES-SPECIFIER-TYPE. It's because SET calls VALUES-SPECIFIER-TYPE.
(macrolet ((set! (symbol value)
`(#+sb-xc-host set
#-sb-xc-host sb!kernel:%set-symbol-global-value
#-sb-xc-host sb-kernel:%set-symbol-global-value
,symbol ,value))
(reset-stats ()
;; If statistics gathering is not not compiled-in,
@ -1344,15 +1344,15 @@ NOTE: This interface is experimental and subject to change."
;; things like this function.
(block nil
(handler-bind
((sb!kernel::parse-deprecated-type
((sb-kernel::parse-deprecated-type
(lambda (condition)
(let ((type-specifier (sb!kernel::parse-deprecated-type-specifier
(let ((type-specifier (sb-kernel::parse-deprecated-type-specifier
condition)))
(aver (symbolp type-specifier))
(unless (memq type-specifier seen)
(push type-specifier seen)
(check-deprecated-thing 'type type-specifier)))))
((or error sb!kernel:parse-unknown-type)
((or error sb-kernel:parse-unknown-type)
(lambda (condition)
(declare (ignore condition))
(return))))
@ -1660,7 +1660,7 @@ to :INTERPRET, an interpreter will be used.")
(length cache))))
short-name))))))
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(defun fp-zero-p (x)
(typecase x

2
src/code/early-float.lisp
View file

@ -13,7 +13,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;;; utilities

2
src/code/early-full-eval.lisp
View file

@ -19,7 +19,7 @@
;; this stuff is split out into its own file. Also, it lets the
;; INTERPRETED-FUNCTION type be declared before it is used in
;; compiler/main and code/deftypes-for-target.
(sb!kernel::!defstruct-with-alternate-metaclass
(sb-kernel::!defstruct-with-alternate-metaclass
interpreted-function
;; DEBUG-NAME and DEBUG-LAMBDA-LIST are initially a copies of the proper
;; ones, but is analogous to SIMPLE-FUN-NAME and ARGLIST in the sense that it

4
src/code/early-impl.lisp
View file

@ -59,5 +59,5 @@
;;; problems when exactly 2^29 GCs happen between epoch
;;; comparisons. Unlikely, but the cost of using a cons instead is too
;;; small to measure. -- JES, 2007-09-30
(declaim (type cons sb!kernel::*gc-epoch*))
(!define-load-time-global sb!kernel::*gc-epoch* '(nil . nil))
(declaim (type cons sb-kernel::*gc-epoch*))
(!define-load-time-global sb-kernel::*gc-epoch* '(nil . nil))

2
src/code/early-raw-slots.lisp
View file

@ -7,7 +7,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; STRUCTURE-OBJECT supports placement of raw bits within the object
;;; to allow representation of native word and float-point types directly.

2
src/code/early-type.lisp
View file

@ -7,7 +7,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(eval-when (:compile-toplevel :load-toplevel :execute)
;; The following macros expand into either constructor calls,

2
src/code/error.lisp
View file

@ -11,7 +11,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; a utility for SIGNAL, ERROR, CERROR, WARN, COMPILER-NOTIFY and
;;; INVOKE-DEBUGGER: Parse the hairy argument conventions into a

2
src/code/exhaust.lisp
View file

@ -10,5 +10,5 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(define-alien-routine reset-control-stack-guard-page void)

2
src/code/float.lisp
View file

@ -13,7 +13,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;;; float predicates and environment query

2
src/code/force-delayed-defbangstructs.lisp
View file

@ -14,6 +14,6 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
#+sb-xc-host (force-delayed-def!structs)

2
src/code/foreign-load.lisp
View file

@ -186,7 +186,7 @@ is never in the linkage-table."
(error 'undefined-alien-error :name symbol))
#!+linkage-table
((not addr)
(style-warn 'sb!kernel:undefined-alien-style-warning
(style-warn 'sb-kernel:undefined-alien-style-warning
:symbol symbol)
(setf (gethash symbol undefineds) t)
(remhash symbol symbols)

2
src/code/full-eval.lisp
View file

@ -43,7 +43,7 @@
;;; ANSI defines that program syntax errors should be of type
;;; PROGRAM-ERROR. Therefore...
(define-condition arg-count-program-error (sb!kernel::arg-count-error
(define-condition arg-count-program-error (sb-kernel::arg-count-error
program-error)
())

2
src/code/gc.lisp
View file

@ -9,7 +9,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;;; DYNAMIC-USAGE and friends

10
src/code/host-alieneval.lisp
View file

@ -100,7 +100,7 @@
;;; Parse TYPE as an alien type specifier and return the resultant
;;; ALIEN-TYPE structure.
(defun parse-alien-type (type env)
(declare (type sb!kernel:lexenv-designator env))
(declare (type sb-kernel:lexenv-designator env))
(if (consp type)
(let ((translator (info :alien-type :translator (car type))))
(unless translator
@ -124,7 +124,7 @@
type)))))
(defun auxiliary-alien-type (kind name env)
(declare (type sb!kernel:lexenv-designator env))
(declare (type sb-kernel:lexenv-designator env))
(flet ((aux-defn-matches (x)
(and (eq (first x) kind) (eq (second x) name))))
(let ((in-auxiliaries
@ -135,7 +135,7 @@
(info :alien-type kind name)))))
(defun (setf auxiliary-alien-type) (new-value kind name env)
(declare (type sb!kernel:lexenv-designator env))
(declare (type sb-kernel:lexenv-designator env))
(flet ((aux-defn-matches (x)
(and (eq (first x) kind) (eq (second x) name))))
(when (find-if #'aux-defn-matches *new-auxiliary-types*)
@ -774,7 +774,7 @@
(let ((bits (alien-mem-block-type-bits type)))
(unless bits
(error "can't deposit aliens of type ~S (unknown size)" type))
`(sb!kernel:system-area-ub8-copy ,value 0 ,sap
`(sb-kernel:system-area-ub8-copy ,value 0 ,sap
(truncate ,offset sb-vm:n-byte-bits)
',(truncate bits sb-vm:n-byte-bits))))
@ -862,7 +862,7 @@
;;; MAKE-ALIEN-RECORD-TYPE to %MAKE-ALIEN-RECORD-TYPE and use
;;; ENSURE-ALIEN-RECORD-TYPE instead. --NS 20040729
(defun parse-alien-record-type (kind name fields env)
(declare (type sb!kernel:lexenv-designator env))
(declare (type sb-kernel:lexenv-designator env))
(flet ((frob-type (type new-fields alignment bits)
(setf (alien-record-type-fields type) new-fields
(alien-record-type-alignment type) alignment

4
src/code/host-c-call.lisp
View file

@ -21,7 +21,7 @@
(element-type 'character)
(not-null nil))
(make-alien-c-string-type
:to (parse-alien-type 'char (sb!kernel:make-null-lexenv))
:to (parse-alien-type 'char (sb-kernel:make-null-lexenv))
:element-type element-type
:external-format external-format
:not-null not-null))
@ -79,7 +79,7 @@
(declaim (ftype (sfunction (t) nil) null-error))
(defun null-error (type)
#-sb-xc-host(declare (optimize sb!kernel:allow-non-returning-tail-call))
#-sb-xc-host(declare (optimize sb-kernel:allow-non-returning-tail-call))
(aver (alien-c-string-type-not-null type))
(error 'type-error
:expected-type `(alien ,(unparse-alien-type type))

2
src/code/hppa-vm.lisp
View file

@ -73,6 +73,6 @@
(let* ((pc (context-pc context))
(trap-number (logand (sap-ref-8 pc 3) #x1f)))
(declare (type system-area-pointer pc))
(sb!kernel::decode-internal-error-args (sap+ pc 5) trap-number
(sb-kernel::decode-internal-error-args (sap+ pc 5) trap-number
(sap-ref-8 pc 4))))
) ; end PROGN

2
src/code/hpux-os.lisp
View file

@ -25,7 +25,7 @@
(or *software-version*
(setf *software-version*
(string-trim '(#\newline)
(sb!kernel:with-simple-output-to-string (stream)
(sb-kernel:with-simple-output-to-string (stream)
(run-program "/bin/uname" `("-r")
:output stream))))))

2
src/code/interr.lisp
View file

@ -10,7 +10,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;;; internal errors

2
src/code/irrat.lisp
View file

@ -10,7 +10,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;;; miscellaneous constants, utility functions, and macros

4
src/code/late-type.lisp
View file

@ -14,7 +14,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(/show0 "late-type.lisp 19")
@ -3427,7 +3427,7 @@ used for a COMPLEX component.~:@>"
(mapcar (lambda (x) (specifier-type-r context x))
type-specifiers))))
(if (union-type-p type)
(sb!kernel::simplify-array-unions type)
(sb-kernel::simplify-array-unions type)
type)))
;;;; CONS types

2
src/code/linux-os.lisp
View file

@ -27,7 +27,7 @@
(or *software-version*
(setf *software-version*
(string-trim '(#\newline)
(sb!kernel:with-simple-output-to-string (stream)
(sb-kernel:with-simple-output-to-string (stream)
(run-program "/bin/uname" `("-r")
:output stream))))))

2
src/code/macroexpand.lisp
View file

@ -55,7 +55,7 @@
;; technique, as it would call COMPILE once per macro usage.
(if (compiled-function-p fun)
fun
(error 'sb!kernel::macroexpand-hook-type-error
(error 'sb-kernel::macroexpand-hook-type-error
:datum hook
:expected-type 'compiled-function))))

2
src/code/mips-vm.lisp
View file

@ -85,5 +85,5 @@
(offset (if (logbitp 31 cause) 4 0))
(trap-number (ldb (byte 8 6) (sap-ref-32 pc offset))))
(declare (type system-area-pointer pc))
(sb!kernel::decode-internal-error-args (sap+ pc (+ offset 4)) trap-number)))
(sb-kernel::decode-internal-error-args (sap+ pc (+ offset 4)) trap-number)))
) ; end PROGN

2
src/code/numbers.lisp
View file

@ -9,7 +9,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;;; the NUMBER-DISPATCH macro

2
src/code/parse-defmacro-errors.lisp
View file

@ -11,7 +11,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(define-condition defmacro-lambda-list-bind-error (error)
((kind :reader defmacro-lambda-list-bind-error-kind

2
src/code/ppc-vm.lisp
View file

@ -103,7 +103,7 @@
(declare (type system-area-pointer pc))
(cond ((= op (logior (ash 3 10) (ash 6 5)))
(let ((trap-number (sap-ref-8 pc 3)))
(sb!kernel::decode-internal-error-args (sap+ pc 4) trap-number)))
(sb-kernel::decode-internal-error-args (sap+ pc 4) trap-number)))
((and (= (ldb (byte 6 10) op) 3) ;; twi
(or (= regnum #.(sc+offset-offset arg-count-sc))
(= (ldb (byte 5 5) op) 24))) ;; :ne

10
src/code/pred.lisp
View file

@ -194,7 +194,7 @@
(declare (optimize (speed 3) (safety 0)))
#!+(and compact-instance-header x86-64)
(values (%primitive layout-of x
(load-time-value sb!kernel::**built-in-class-codes** t)))
(load-time-value sb-kernel::**built-in-class-codes** t)))
#!-(and compact-instance-header x86-64)
(cond ((%instancep x) (%instance-layout x))
((funcallable-instance-p x) (%funcallable-instance-layout x))
@ -204,7 +204,7 @@
(t
;; Note that WIDETAG-OF is slightly suboptimal here and could be
;; improved - we've already ruled out some of the lowtags.
(svref (load-time-value sb!kernel::**built-in-class-codes** t)
(svref (load-time-value sb-kernel::**built-in-class-codes** t)
(widetag-of x)))))
(declaim (inline classoid-of))
@ -249,8 +249,8 @@
((eq (symbol-package object) *keyword-package*) 'keyword)
(t 'symbol)))
((or array complex #!+sb-simd-pack simd-pack)
(let ((sb!kernel::*unparse-allow-negation* nil))
(declare (special sb!kernel::*unparse-allow-negation*)) ; forward ref
(let ((sb-kernel::*unparse-allow-negation* nil))
(declare (special sb-kernel::*unparse-allow-negation*)) ; forward ref
(type-specifier (ctype-of object))))
(t
(let* ((classoid (classoid-of object))
@ -411,7 +411,7 @@ length and have identical components. Other arrays must be EQ to be EQUAL."
`(let ((x-el (%instance-ref x i))
(y-el (%instance-ref y i)))
(or (eq x-el y-el) (equalp x-el y-el)))))
(if (eql (layout-bitmap layout-x) sb!kernel::+layout-all-tagged+)
(if (eql (layout-bitmap layout-x) sb-kernel::+layout-all-tagged+)
(loop for i of-type index from sb-vm:instance-data-start
below (layout-length layout-x)
always (slot-ref-equalp))

2
src/code/primordial-type.lisp
View file

@ -7,7 +7,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(!begin-collecting-cold-init-forms)

2
src/code/print.lisp
View file

@ -372,7 +372,7 @@ variable: an unreadable object representing the error is printed instead.")
;; If an instance has no layout, it has no PRINT-OBJECT method.
;; Additionally, if the object is an obsolete CONDITION, don't crash.
;; (There is no update-instance protocol for conditions)
(when (or (sb!kernel::undefined-classoid-p classoid)
(when (or (sb-kernel::undefined-classoid-p classoid)
(and (layout-invalid layout)
(logtest (layout-%flags layout) +condition-layout-flag+)))
;; not only is this unreadable, it's unprintable too.

2
src/code/random.lisp
View file

@ -7,7 +7,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(sb-xc:defstruct (random-state (:constructor %make-random-state
(state))

2
src/code/reader.lisp
View file

@ -794,7 +794,7 @@ standard Lisp readtable when NIL."
#'(lambda (decoding-error)
(declare (ignorable decoding-error))
(style-warn
'sb!kernel::character-decoding-error-in-macro-char-comment
'sb-kernel::character-decoding-error-in-macro-char-comment
:position (file-position stream) :stream stream)
(invoke-restart 'attempt-resync))))
(let ((stream (in-stream-from-designator stream)))

2
src/code/restart.lisp
View file

@ -7,7 +7,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
#!+stack-allocatable-fixed-objects
(declaim (inline make-restart)) ;; to allow DX-allocation

6
src/code/seq.lisp
View file

@ -179,7 +179,7 @@
,other-form))
(t
(sb-c::%type-check-error/c
,sequence 'sb!kernel::object-not-sequence-error nil)))))))
,sequence 'sb-kernel::object-not-sequence-error nil)))))))
;;; Like SEQ-DISPATCH-CHECKING, but also assert that OTHER-FORM produces
;;; a sequence. This assumes that the containing function declares its
@ -417,7 +417,7 @@
(sequence-type-length-mismatch-error type length)))
((cons-type-p type)
(multiple-value-bind (min exactp)
(sb!kernel::cons-type-length-info type)
(sb-kernel::cons-type-length-info type)
(if exactp
(unless (= length min)
(sequence-type-length-mismatch-error type length))
@ -1075,7 +1075,7 @@ many elements are copied."
'())
((cons-type-p type)
(multiple-value-bind (min exactp)
(sb!kernel::cons-type-length-info type)
(sb-kernel::cons-type-length-info type)
(let ((length (reduce #'+ sequences :key #'length)))
(if exactp
(unless (= length min)

2
src/code/sharpm.lisp
View file

@ -414,7 +414,7 @@
#'(lambda (decoding-error)
(declare (ignorable decoding-error))
(style-warn
'sb!kernel::character-decoding-error-in-dispatch-macro-char-comment
'sb-kernel::character-decoding-error-in-dispatch-macro-char-comment
:sub-char sub-char :position (file-position stream) :stream stream)
(invoke-restart 'attempt-resync))))
(let ((stream (in-stream-from-designator stream)))

2
src/code/simple-fun.lisp
View file

@ -581,7 +581,7 @@
(flet ((unpack-tlf-num+offset (integer &aux (bytepos 0))
(flet ((unpack-1 ()
(let ((shift 0) (acc 0))
(declare (notinline sb!kernel:%ldb)) ; lp#1573398
(declare (notinline sb-kernel:%ldb)) ; lp#1573398
(loop
(let ((byte (ldb (byte 8 bytepos) integer)))
(incf bytepos 8)

2
src/code/sort.lisp
View file

@ -420,7 +420,7 @@
(length s2)))))
(if (cons-type-p type)
(multiple-value-bind (min exactp)
(sb!kernel::cons-type-length-info type)
(sb-kernel::cons-type-length-info type)
(let ((length (+ (length s1) (length s2))))
(if exactp
(unless (= length min)

2
src/code/sparc-vm.lisp
View file

@ -86,5 +86,5 @@
(let* ((pc (context-pc context))
(trap-number (sap-ref-8 pc 3)))
(declare (type system-area-pointer pc))
(sb!kernel::decode-internal-error-args (sap+ pc 4) trap-number)))
(sb-kernel::decode-internal-error-args (sap+ pc 4) trap-number)))
) ; end PROGN

2
src/code/specializable-array.lisp
View file

@ -7,7 +7,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;; ANSI doesn't guarantee the existence of specialized vectors
;;; other than T, BIT, CHARACTER.

6
src/code/stream.lisp
View file

@ -632,7 +632,7 @@
sb-vm:*specialized-array-element-type-properties*
:key #'sb-vm:saetp-specifier)))
(bash-function (intern (format nil "UB~D-BASH-COPY" n-character-array-bits)
(find-package "SB!KERNEL"))))
(find-package "SB-KERNEL"))))
bash-function)
ibuf +ansi-stream-in-buffer-extra+
ibuf start
@ -1501,7 +1501,7 @@ benefit of the function GET-OUTPUT-STREAM-STRING."
(declare (type simple-string string)
(type index start end))
#!+sb-unicode
(when (and (typep string 'sb!kernel:simple-character-string)
(when (and (typep string 'sb-kernel:simple-character-string)
(eq (string-output-stream-element-type stream) 'base-char))
(do ((i (1- end) (1- i))) ((< i start))
(declare (optimize (sb-c::insert-array-bounds-checks 0)))
@ -1521,7 +1521,7 @@ benefit of the function GET-OUTPUT-STREAM-STRING."
:more
(when (plusp here)
(string-dispatch
(simple-character-string simple-base-string sb!kernel::simple-array-nil)
(simple-character-string simple-base-string sb-kernel::simple-array-nil)
string
(replace buffer string :start1 pointer :start2 start :end2 stop))
(setf (string-output-stream-pointer stream) (+ here pointer)))

2
src/code/sunos-os.lisp
View file

@ -25,7 +25,7 @@
(or *software-version*
(setf *software-version*
(string-trim '(#\newline)
(sb!kernel:with-simple-output-to-string (stream)
(sb-kernel:with-simple-output-to-string (stream)
(run-program "/bin/uname" `("-r")
:output stream))))))

2
src/code/target-alieneval.lisp
View file

@ -343,7 +343,7 @@ allocated by MAKE-ALIEN, MAKE-ALIEN-STRING or malloc(3)."
:null-terminate null-terminate))
(count (length octets))
(buf (%make-alien count)))
(sb!kernel:copy-ub8-to-system-area octets 0 buf 0 count)
(sb-kernel:copy-ub8-to-system-area octets 0 buf 0 count)
(values buf count)))
(defun make-alien-string (string &rest rest

2
src/code/target-allocate.lisp
View file

@ -9,7 +9,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(define-alien-routine ("os_allocate" allocate-system-memory)
system-area-pointer

4
src/code/target-c-call.lisp
View file

@ -45,7 +45,7 @@
(eval-when (:compile-toplevel :load-toplevel :execute)
(define-alien-type-translator void ()
(parse-alien-type '(values) (sb!kernel:make-null-lexenv))))
(parse-alien-type '(values) (sb-kernel:make-null-lexenv))))
(defun default-c-string-external-format ()
@ -70,5 +70,5 @@
until (zerop (sap-ref-8 sap offset))
finally (return offset))))
(let ((result (make-string length :element-type 'base-char)))
(sb!kernel:copy-ub8-from-system-area sap 0 result 0 length)
(sb-kernel:copy-ub8-from-system-area sap 0 result 0 length)
result))))

2
src/code/target-defstruct.lisp
View file

@ -7,7 +7,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(/show0 "target-defstruct.lisp 12")

2
src/code/target-error.lisp
View file

@ -10,7 +10,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(defun muffle-warning-p (warning)
(declare (special *muffled-warnings*))

8
src/code/target-exception.lisp
View file

@ -55,7 +55,7 @@
(cons +exception-flt-denormal-operand+ 'floating-point-exception)
(cons +exception-flt-stack-check+ 'floating-point-exception)
;; Stack overflow
(cons +exception-stack-overflow+ 'sb!kernel::control-stack-exhausted)
(cons +exception-stack-overflow+ 'sb-kernel::control-stack-exhausted)
;; Various
(cons-name +exception-single-step+)
(cons +exception-access-violation+ 'memory-fault-error)
@ -95,11 +95,11 @@
;;; Actual exception handler. We hit something the runtime doesn't
;;; want to or know how to deal with (that is, not a sigtrap or gc wp
;;; violation), so it calls us here.
(defun sb!kernel:handle-win32-exception (context-sap exception-record-sap)
(defun sb-kernel:handle-win32-exception (context-sap exception-record-sap)
(let* ((record (deref (sap-alien exception-record-sap (* (struct exception-record)))))
(code (slot record 'exception-code))
(condition-name (cdr (assoc code *exception-code-map*)))
(sb!debug:*stack-top-hint* (sb!kernel:find-interrupted-frame)))
(sb!debug:*stack-top-hint* (sb-kernel:find-interrupted-frame)))
(cond ((stringp condition-name)
(error condition-name))
((and condition-name
@ -124,7 +124,7 @@
(in-package "SB!UNIX")
(defun sb!kernel:signal-cold-init-or-reinit ()
(defun sb-kernel:signal-cold-init-or-reinit ()
"Enable all the default signals that Lisp knows how to deal with."
(unblock-deferrable-signals)
(values))

2
src/code/target-format.lisp
View file

@ -19,7 +19,7 @@
;;; Also note that (DEFTYPE FORMAT-CONTROL) = (OR STRING FUNCTION).
;;; And it's possible that we could decide to install a closure as
;;; the fin-fun but I don't think that's necessary.
(sb!kernel::!defstruct-with-alternate-metaclass fmt-control
(sb-kernel::!defstruct-with-alternate-metaclass fmt-control
:slot-names (string symbols memo)
:constructor %make-fmt-control
:superclass-name function

4
src/code/target-hash-table.lisp
View file

@ -750,7 +750,7 @@ if there is no such entry. Entries can be added using SETF."
(values t (member t nil)))
(tagbody
start
(let ((start-epoch sb!kernel::*gc-epoch*))
(let ((start-epoch sb-kernel::*gc-epoch*))
(macrolet ((result (value foundp)
;; When the table has multiple concurrent readers,
;; it's possible that there was a GC after this
@ -761,7 +761,7 @@ if there is no such entry. Entries can be added using SETF."
;; redo the lookup if the GC epoch counter has changed.
;; -- JES, 2007-09-30
`(if (and (not ,foundp)
(not (eq start-epoch sb!kernel::*gc-epoch*)))
(not (eq start-epoch sb-kernel::*gc-epoch*)))
(go start)
(return-from %gethash3 (values ,value ,foundp))))
(overflow ()

2
src/code/target-random.lisp
View file

@ -15,7 +15,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
;;;; Constants
(defconstant mt19937-n 624)

14
src/code/target-signal.lisp
View file

@ -83,7 +83,7 @@
(:default sig-dfl)
(:ignore sig-ign)
(t
(sb!kernel:get-lisp-obj-address
(sb-kernel:get-lisp-obj-address
#'run-handler)))
synchronous)))
(cond ((= result sig-dfl) :default)
@ -91,7 +91,7 @@
(t ;; MAKE-LISP-OBJ returns 2 values, which gets
;; "too complex to check". We don't want the second value.
(values (the (or function fixnum)
(sb!kernel:make-lisp-obj result)))))))))
(sb-kernel:make-lisp-obj result)))))))))
(defun default-interrupt (signal)
(enable-interrupt signal :default))
@ -152,14 +152,14 @@
) ; end MACROLET
(defun sigint-handler (signal info
sb!kernel:*current-internal-error-context*)
sb-kernel:*current-internal-error-context*)
(declare (ignore signal info))
(flet ((interrupt-it ()
;; SB!KERNEL:*CURRENT-INTERNAL-ERROR-CONTEXT* will
;; SB-KERNEL:*CURRENT-INTERNAL-ERROR-CONTEXT* will
;; either be bound in this thread by SIGINT-HANDLER or
;; in the target thread by SIGPIPE-HANDLER.
(with-alien ((context (* os-context-t)
sb!kernel:*current-internal-error-context*))
sb-kernel:*current-internal-error-context*))
(with-interrupts
(let ((int (make-condition 'interactive-interrupt
:context context
@ -203,7 +203,7 @@
;;; queue. The handler (RUN_INTERRUPTION) just returns if there is
;;; nothing to do so it's safe to receive spurious SIGPIPEs coming
;;; from the kernel.
(defun sigpipe-handler (signal code sb!kernel:*current-internal-error-context*)
(defun sigpipe-handler (signal code sb-kernel:*current-internal-error-context*)
(declare (ignore signal code))
(sb!thread::run-interruption))
@ -212,7 +212,7 @@
(declare (ignore signal code context))
(sb-impl::get-processes-status-changes))
(defun sb!kernel:signal-cold-init-or-reinit ()
(defun sb-kernel:signal-cold-init-or-reinit ()
"Enable all the default signals that Lisp knows how to deal with."
(enable-interrupt sigint #'sigint-handler)
(enable-interrupt sigterm #'sigterm-handler)

4
src/code/target-sxhash.lisp
View file

@ -199,12 +199,12 @@
(declaim (inline !condition-hash))
(defun !condition-hash (instance)
(let ((hash (sb!kernel::condition-hash instance)))
(let ((hash (sb-kernel::condition-hash instance)))
(if (not (eql hash 0))
hash
(let ((new (new-instance-hash-code)))
;; At most one thread will compute a random hash.
(let ((old (cas (sb!kernel::condition-hash instance) 0 new)))
(let ((old (cas (sb-kernel::condition-hash instance) 0 new)))
(if (eql old 0) new old))))))
#!+(and compact-instance-header x86-64)

2
src/code/target-thread.lisp
View file

@ -1578,7 +1578,7 @@ session."
(when *exit-in-process*
(sb-impl::call-exit-hooks))))
#!+sb-safepoint
(sb!kernel::gc-safepoint))))
(sb-kernel::gc-safepoint))))
;; we're going down, can't handle interrupts
;; sanely anymore. gc remains enabled.
(block-deferrable-signals)

2
src/code/target-type.lisp
View file

@ -9,7 +9,7 @@
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
(in-package "SB-KERNEL")
(!begin-collecting-cold-init-forms)

4
src/code/target-unicode.lisp
View file

@ -529,10 +529,10 @@ disappears when accents are placed on top of it. and NIL otherwise"
(t
(push char chars)
(setf previous-combining-class combining-class))))))
(sb!kernel:with-array-data ((string string) (start) (end)
(sb-kernel:with-array-data ((string string) (start) (end)
:check-fill-pointer t)
(let ((calback (if filter
(let ((filter (sb!kernel:%coerce-callable-to-fun filter)))
(let ((filter (sb-kernel:%coerce-callable-to-fun filter)))
(lambda (char)
(when (funcall filter char)
(callback char))))

2
src/code/toplevel.lisp
View file

@ -595,7 +595,7 @@ that provides the REPL for the system. Assumes that *STANDARD-INPUT* and
;; should have unwound enough stack by the time we get
;; here that this is now possible.
#!-win32
(sb!kernel::reset-control-stack-guard-page)
(sb-kernel::reset-control-stack-guard-page)
(funcall repl-fun noprint)
(critically-unreachable "after REPL")))))))))

Some files were not shown because too many files have changed in this diff Show more