From cea4896b2482b7b2b429c1631d774b4cfbc0efba Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Fri, 20 Oct 2000 23:30:33 +0000 Subject: [PATCH] 0.6.7.22: removed CVS dollar-Header-dollar tags from sources --- doc/sbcl.1 | 2 - src/assembly/assemfile.lisp | 3 - src/assembly/x86/alloc.lisp | 3 - src/assembly/x86/arith.lisp | 3 - src/assembly/x86/array.lisp | 3 - src/assembly/x86/assem-rtns.lisp | 3 - src/assembly/x86/bit-bash.lisp | 3 - src/assembly/x86/support.lisp | 3 - src/code/alien-type.lisp | 3 - src/code/array.lisp | 3 - src/code/backq.lisp | 3 - src/code/bignum.lisp | 3 - src/code/bit-bash.lisp | 3 - src/code/boot-extensions.lisp | 3 - src/code/bsd-os.lisp | 3 - src/code/byte-interp.lisp | 3 - src/code/byte-types.lisp | 3 - src/code/char.lisp | 3 - src/code/cl-specials.lisp | 3 - src/code/class.lisp | 3 - src/code/coerce.lisp | 3 - src/code/cold-error.lisp | 3 - src/code/cold-init-helper-macros.lisp | 3 - src/code/cold-init.lisp | 3 - src/code/cross-float.lisp | 3 - src/code/cross-io.lisp | 3 - src/code/cross-misc.lisp | 112 +++++++++++++-------------- src/code/cross-sap.lisp | 9 +-- src/code/cross-type.lisp | 3 - src/code/debug-info.lisp | 3 - src/code/debug-int.lisp | 3 - src/code/debug-var-io.lisp | 3 - src/code/debug-vm.lisp | 3 - src/code/debug.lisp | 3 - src/code/defbangmacro.lisp | 3 - src/code/defbangstruct.lisp | 3 - src/code/defbangtype.lisp | 3 - src/code/defboot.lisp | 3 - src/code/defmacro.lisp | 3 - src/code/defpackage.lisp | 3 - src/code/defsetfs.lisp | 3 - src/code/defstruct.lisp | 3 - src/code/deftypes-for-target.lisp | 3 - src/code/describe.lisp | 3 - src/code/destructuring-bind.lisp | 3 - src/code/dyncount.lisp | 12 ++- src/code/early-alieneval.lisp | 3 - src/code/early-array.lisp | 3 - src/code/early-cl.lisp | 3 - src/code/early-defbangmethod.lisp | 3 - src/code/early-defboot.lisp | 3 - src/code/early-defstruct-args.lisp-expr | 2 - src/code/early-defstructs.lisp | 3 - src/code/early-extensions.lisp | 3 - src/code/early-format.lisp | 3 - src/code/early-impl.lisp | 3 - src/code/early-load.lisp | 3 - src/code/early-pprint.lisp | 3 - src/code/early-print.lisp | 3 - src/code/early-setf.lisp | 3 - src/code/early-target-error.lisp | 3 - src/code/early-type.lisp | 3 - src/code/error-error.lisp | 3 - src/code/error.lisp | 3 - src/code/eval.lisp | 3 - src/code/fd-stream.lisp | 3 - src/code/fdefinition.lisp | 3 - src/code/filesys.lisp | 3 - src/code/final.lisp | 3 - src/code/float-trap.lisp | 3 - src/code/float.lisp | 3 - src/code/fop.lisp | 3 - src/code/force-delayed-defbangmacros.lisp | 3 - src/code/force-delayed-defbangmethods.lisp | 3 - src/code/force-delayed-defbangstructs.lisp | 3 - src/code/foreign.lisp | 3 - src/code/format-time.lisp | 3 - src/code/gc.lisp | 3 - src/code/globals.lisp | 3 - src/code/hash-table.lisp | 3 - src/code/host-alieneval.lisp | 3 - src/code/host-c-call.lisp | 3 - src/code/inspect.lisp | 3 - src/code/interr.lisp | 3 - src/code/irrat.lisp | 3 - src/code/kernel.lisp | 3 - src/code/late-defbangmethod.lisp | 3 - src/code/late-extensions.lisp | 3 - src/code/late-format.lisp | 3 - src/code/late-setf.lisp | 3 - src/code/late-target-error.lisp | 3 - src/code/late-type.lisp | 3 - src/code/linux-os.lisp | 6 +- src/code/lisp-stream.lisp | 3 - src/code/list.lisp | 3 - src/code/load.lisp | 3 - src/code/loop.lisp | 3 - src/code/macroexpand.lisp | 3 - src/code/macros.lisp | 3 - src/code/mipsstrops.lisp | 3 - src/code/misc.lisp | 3 - src/code/module.lisp | 3 - src/code/ntrace.lisp | 8 +- src/code/numbers.lisp | 3 - src/code/package.lisp | 3 - src/code/parse-body.lisp | 3 - src/code/parse-defmacro-errors.lisp | 3 - src/code/parse-defmacro.lisp | 3 - src/code/pathname.lisp | 3 - src/code/pp-backq.lisp | 3 - src/code/pprint.lisp | 3 - src/code/pred.lisp | 3 - src/code/print.lisp | 3 - src/code/purify.lisp | 3 - src/code/query.lisp | 3 - src/code/random.lisp | 3 - src/code/reader.lisp | 3 - src/code/readtable.lisp | 3 - src/code/room.lisp | 3 - src/code/run-program.lisp | 3 - src/code/save.lisp | 3 - src/code/seq.lisp | 3 - src/code/serve-event.lisp | 3 - src/code/setf-funs.lisp | 3 - src/code/sharpm.lisp | 3 - src/code/show.lisp | 4 - src/code/signal.lisp | 3 - src/code/sort.lisp | 3 - src/code/specializable-array.lisp | 3 - src/code/stream.lisp | 3 - src/code/string.lisp | 3 - src/code/symbol.lisp | 3 - src/code/sysmacs.lisp | 3 - src/code/target-alieneval.lisp | 3 - src/code/target-c-call.lisp | 3 - src/code/target-defbangmethod.lisp | 3 - src/code/target-defstruct.lisp | 3 - src/code/target-eval.lisp | 3 - src/code/target-extensions.lisp | 3 - src/code/target-format.lisp | 3 - src/code/target-hash-table.lisp | 3 - src/code/target-load.lisp | 3 - src/code/target-misc.lisp | 3 - src/code/target-numbers.lisp | 3 - src/code/target-package.lisp | 3 - src/code/target-pathname.lisp | 3 - src/code/target-random.lisp | 3 - src/code/target-sap.lisp | 3 - src/code/target-signal.lisp | 3 - src/code/target-sxhash.lisp | 3 - src/code/target-type.lisp | 3 - src/code/time.lisp | 3 - src/code/toplevel.lisp | 3 - src/code/type-class.lisp | 3 - src/code/type-init.lisp | 3 - src/code/typedefs.lisp | 3 - src/code/typep.lisp | 3 - src/code/uncross.lisp | 2 - src/code/unix.lisp | 3 - src/code/weak.lisp | 3 - src/code/x86-vm.lisp | 3 - src/cold/ansify.lisp | 2 - src/cold/compile-cold-sbcl.lisp | 2 - src/cold/defun-load-or-cload-xcompiler.lisp | 2 - src/cold/read-from-file.lisp | 2 - src/cold/rename-package-carefully.lisp | 2 - src/cold/set-up-cold-packages.lisp | 2 - src/cold/shared.lisp | 2 - src/cold/shebang.lisp | 2 - src/cold/snapshot.lisp | 2 - src/cold/warm.lisp | 2 - src/cold/with-stuff.lisp | 2 - src/compiler/aliencomp.lisp | 3 - src/compiler/array-tran.lisp | 3 - src/compiler/assem.lisp | 3 - src/compiler/backend.lisp | 3 - src/compiler/bit-util.lisp | 3 - src/compiler/byte-comp.lisp | 3 - src/compiler/checkgen.lisp | 3 - src/compiler/codegen.lisp | 3 - src/compiler/compiler-deftype.lisp | 2 - src/compiler/compiler-error.lisp | 3 - src/compiler/constraint.lisp | 3 - src/compiler/control.lisp | 3 - src/compiler/copyprop.lisp | 3 - src/compiler/ctype.lisp | 3 - src/compiler/debug-dump.lisp | 3 - src/compiler/debug.lisp | 3 - src/compiler/deftype.lisp | 3 - src/compiler/dfo.lisp | 3 - src/compiler/disassem.lisp | 3 - src/compiler/dump.lisp | 3 - src/compiler/dyncount.lisp | 3 - src/compiler/early-assem.lisp | 3 - src/compiler/early-c.lisp | 3 - src/compiler/entry.lisp | 3 - src/compiler/envanal.lisp | 3 - src/compiler/eval-comp.lisp | 3 - src/compiler/eval.lisp | 3 - src/compiler/fixup.lisp | 3 - src/compiler/float-tran.lisp | 3 - src/compiler/fndb.lisp | 3 - src/compiler/generic/core.lisp | 3 - src/compiler/generic/early-objdef.lisp | 3 - src/compiler/generic/early-vm-macs.lisp | 3 - src/compiler/generic/early-vm.lisp | 3 - src/compiler/generic/genesis.lisp | 3 - src/compiler/generic/interr.lisp | 3 - src/compiler/generic/objdef.lisp | 3 - src/compiler/generic/primtype.lisp | 3 - src/compiler/generic/target-core.lisp | 3 - src/compiler/generic/utils.lisp | 3 - src/compiler/generic/vm-fndb.lisp | 3 - src/compiler/generic/vm-ir2tran.lisp | 3 - src/compiler/generic/vm-macs.lisp | 3 - src/compiler/generic/vm-tran.lisp | 3 - src/compiler/generic/vm-type.lisp | 3 - src/compiler/generic/vm-typetran.lisp | 3 - src/compiler/globaldb.lisp | 3 - src/compiler/gtn.lisp | 3 - src/compiler/info-functions.lisp | 3 - src/compiler/ir1final.lisp | 3 - src/compiler/ir1opt.lisp | 3 - src/compiler/ir1tran.lisp | 3 - src/compiler/ir1util.lisp | 3 - src/compiler/ir2tran.lisp | 3 - src/compiler/knownfun.lisp | 3 - src/compiler/late-macros.lisp | 3 - src/compiler/late-vmdef.lisp | 3 - src/compiler/lexenv.lisp | 3 - src/compiler/life.lisp | 3 - src/compiler/locall.lisp | 3 - src/compiler/ltn.lisp | 3 - src/compiler/ltv.lisp | 3 - src/compiler/macros.lisp | 3 - src/compiler/main.lisp | 3 - src/compiler/meta-vmdef.lisp | 3 - src/compiler/node.lisp | 3 - src/compiler/pack.lisp | 10 +-- src/compiler/parse-lambda-list.lisp | 3 - src/compiler/proclaim.lisp | 3 - src/compiler/pseudo-vops.lisp | 3 - src/compiler/represent.lisp | 3 - src/compiler/saptran.lisp | 3 - src/compiler/seqtran.lisp | 3 - src/compiler/srctran.lisp | 3 - src/compiler/sset.lisp | 3 - src/compiler/stack.lisp | 3 - src/compiler/target-byte-comp.lisp | 3 - src/compiler/target-disassem.lisp | 3 - src/compiler/target-dump.lisp | 3 - src/compiler/target-main.lisp | 3 - src/compiler/tn.lisp | 3 - src/compiler/trace-table.lisp | 3 - src/compiler/typetran.lisp | 3 - src/compiler/vmdef.lisp | 7 +- src/compiler/vop.lisp | 7 +- src/compiler/x86/alloc.lisp | 3 - src/compiler/x86/arith.lisp | 3 - src/compiler/x86/array.lisp | 3 - src/compiler/x86/backend-parms.lisp | 3 - src/compiler/x86/c-call.lisp | 3 - src/compiler/x86/call.lisp | 3 - src/compiler/x86/cell.lisp | 3 - src/compiler/x86/char.lisp | 3 - src/compiler/x86/debug.lisp | 3 - src/compiler/x86/float.lisp | 3 - src/compiler/x86/insts.lisp | 3 - src/compiler/x86/macros.lisp | 3 - src/compiler/x86/memory.lisp | 22 +++--- src/compiler/x86/move.lisp | 3 - src/compiler/x86/nlx.lisp | 3 - src/compiler/x86/parms.lisp | 3 - src/compiler/x86/pred.lisp | 3 - src/compiler/x86/sap.lisp | 3 - src/compiler/x86/show.lisp | 3 - src/compiler/x86/static-fn.lisp | 3 - src/compiler/x86/subprim.lisp | 3 - src/compiler/x86/system.lisp | 3 - src/compiler/x86/target-insts.lisp | 3 - src/compiler/x86/type-vops.lisp | 3 - src/compiler/x86/values.lisp | 3 - src/compiler/x86/vm.lisp | 3 - src/pcl/boot.lisp | 3 - src/pcl/braid.lisp | 3 - src/pcl/cache.lisp | 3 - src/pcl/combin.lisp | 3 - src/pcl/construct.lisp | 3 - src/pcl/cpl.lisp | 3 - src/pcl/ctypes.lisp | 3 - src/pcl/defclass.lisp | 3 - src/pcl/defcombin.lisp | 3 - src/pcl/defs.lisp | 3 - src/pcl/describe.lisp | 3 - src/pcl/dfun.lisp | 3 - src/pcl/dlisp.lisp | 3 - src/pcl/dlisp2.lisp | 3 - src/pcl/dlisp3.lisp | 3 - src/pcl/documentation.lisp | 3 - src/pcl/early-low.lisp | 3 - src/pcl/env.lisp | 3 - src/pcl/fast-init.lisp | 3 - src/pcl/fin.lisp | 3 - src/pcl/fixup.lisp | 3 - src/pcl/fngen.lisp | 3 - src/pcl/fsc.lisp | 3 - src/pcl/generic-functions.lisp | 3 - src/pcl/gray-streams-class.lisp | 3 - src/pcl/gray-streams.lisp | 3 - src/pcl/init.lisp | 3 - src/pcl/iterate.lisp | 3 - src/pcl/low.lisp | 3 - src/pcl/macros.lisp | 3 - src/pcl/methods.lisp | 3 - src/pcl/precom1.lisp | 3 - src/pcl/precom2.lisp | 3 - src/pcl/print-object.lisp | 3 - src/pcl/slots-boot.lisp | 3 - src/pcl/slots.lisp | 3 - src/pcl/std-class.lisp | 3 - src/pcl/structure-class.lisp | 3 - src/pcl/time.lisp | 3 - src/pcl/vector.lisp | 3 - src/pcl/walk.lisp | 3 - src/runtime/alloc.c | 4 - src/runtime/alloc.h | 4 - src/runtime/arch.h | 4 - src/runtime/backtrace.c | 4 - src/runtime/breakpoint.c | 4 - src/runtime/breakpoint.h | 4 - src/runtime/bsd-os.c | 4 - src/runtime/bsd-os.h | 4 - src/runtime/core.h | 4 - src/runtime/coreparse.c | 4 - src/runtime/dynbind.c | 4 - src/runtime/dynbind.h | 4 - src/runtime/gc.h | 4 - src/runtime/gencgc.c | 4 - src/runtime/gencgc.h | 4 - src/runtime/globals.c | 4 - src/runtime/globals.h | 4 - src/runtime/interr.c | 4 - src/runtime/interr.h | 4 - src/runtime/interrupt.c | 4 - src/runtime/interrupt.h | 4 - src/runtime/linux-os.c | 4 - src/runtime/linux-os.h | 4 - src/runtime/linux-stubs.S | 2 - src/runtime/lispregs.h | 4 - src/runtime/monitor.c | 4 - src/runtime/monitor.h | 4 - src/runtime/os-common.c | 4 - src/runtime/os.h | 4 - src/runtime/parse.c | 4 - src/runtime/parse.h | 4 - src/runtime/print.c | 4 - src/runtime/print.h | 4 - src/runtime/purify.c | 4 - src/runtime/purify.h | 4 - src/runtime/regnames.c | 4 - src/runtime/run-program.c | 4 - src/runtime/runtime.c | 4 - src/runtime/runtime.h | 4 - src/runtime/save.c | 4 - src/runtime/save.h | 4 - src/runtime/search.c | 4 - src/runtime/search.h | 4 - src/runtime/time.c | 4 - src/runtime/undefineds.c | 4 - src/runtime/undefineds.h | 4 - src/runtime/validate.c | 4 - src/runtime/validate.h | 4 - src/runtime/vars.c | 4 - src/runtime/vars.h | 4 - src/runtime/x86-arch.c | 4 - src/runtime/x86-assem.S | 2 - src/runtime/x86-lispregs.h | 4 - src/runtime/x86-validate.h | 4 - version.lisp-expr | 2 +- 379 files changed, 88 insertions(+), 1250 deletions(-) diff --git a/doc/sbcl.1 b/doc/sbcl.1 index 7af037b..4bf0893 100644 --- a/doc/sbcl.1 +++ b/doc/sbcl.1 @@ -11,8 +11,6 @@ .\" contact Scott Fahlman or slisp-group@cs.cmu.edu. .\" ********************************************************************** .\" -.\" $Header$ -.\" FIXME: The date below should be $Date$. .TH SBCL 1 "$Date$" .AT 3 .SH NAME diff --git a/src/assembly/assemfile.lisp b/src/assembly/assemfile.lisp index d17a5a3..6578aa2 100644 --- a/src/assembly/assemfile.lisp +++ b/src/assembly/assemfile.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") (defvar *do-assembly* nil #!+sb-doc "If non-NIL, emit assembly code. If NIL, emit VOP templates.") diff --git a/src/assembly/x86/alloc.lisp b/src/assembly/x86/alloc.lisp index d3da607..e0558e7 100644 --- a/src/assembly/x86/alloc.lisp +++ b/src/assembly/x86/alloc.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; from signed/unsigned diff --git a/src/assembly/x86/arith.lisp b/src/assembly/x86/arith.lisp index 59d1edf..68cdc1b 100644 --- a/src/assembly/x86/arith.lisp +++ b/src/assembly/x86/arith.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; addition, subtraction, and multiplication diff --git a/src/assembly/x86/array.lisp b/src/assembly/x86/array.lisp index 8ae3e8d..677bffa 100644 --- a/src/assembly/x86/array.lisp +++ b/src/assembly/x86/array.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; allocation diff --git a/src/assembly/x86/assem-rtns.lisp b/src/assembly/x86/assem-rtns.lisp index 65e50b1..3784517 100644 --- a/src/assembly/x86/assem-rtns.lisp +++ b/src/assembly/x86/assem-rtns.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; RETURN-MULTIPLE diff --git a/src/assembly/x86/bit-bash.lisp b/src/assembly/x86/bit-bash.lisp index 26cc2a1..15f45ab 100644 --- a/src/assembly/x86/bit-bash.lisp +++ b/src/assembly/x86/bit-bash.lisp @@ -10,6 +10,3 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") diff --git a/src/assembly/x86/support.lisp b/src/assembly/x86/support.lisp index 0d2427e..0c08cee 100644 --- a/src/assembly/x86/support.lisp +++ b/src/assembly/x86/support.lisp @@ -9,9 +9,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - (def-vm-support-routine generate-call-sequence (name style vop) (ecase style (:raw diff --git a/src/code/alien-type.lisp b/src/code/alien-type.lisp index dd9bceb..add7d74 100644 --- a/src/code/alien-type.lisp +++ b/src/code/alien-type.lisp @@ -13,9 +13,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) (defstruct (alien-type-type diff --git a/src/code/array.lisp b/src/code/array.lisp index e5f56e6..9bf63aa 100644 --- a/src/code/array.lisp +++ b/src/code/array.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - #!-sb-fluid (declaim (inline fill-pointer array-has-fill-pointer-p adjustable-array-p array-displacement)) diff --git a/src/code/backq.lisp b/src/code/backq.lisp index b1afe3b..c601ee4 100644 --- a/src/code/backq.lisp +++ b/src/code/backq.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; The flags passed back by BACKQUOTIFY can be interpreted as follows: ;;; ;;; |`,|: [a] => a diff --git a/src/code/bignum.lisp b/src/code/bignum.lisp index e66c5eb..5fd2fe0 100644 --- a/src/code/bignum.lisp +++ b/src/code/bignum.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!BIGNUM") - -(file-comment - "$Header$") ;;;; notes diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp index 64cd344..1a9752d 100644 --- a/src/code/bit-bash.lisp +++ b/src/code/bit-bash.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; constants and types diff --git a/src/code/boot-extensions.lisp b/src/code/boot-extensions.lisp index aa1fc8c..4dfc372 100644 --- a/src/code/boot-extensions.lisp +++ b/src/code/boot-extensions.lisp @@ -11,9 +11,6 @@ (in-package "SB!EXT") -(file-comment - "$Header$") - ;;; Lots of code wants to get to the KEYWORD package or the COMMON-LISP package ;;; without a lot of fuss, so we cache them in variables. TO DO: How much ;;; does this actually buy us? It sounds sensible, but I don't know for sure diff --git a/src/code/bsd-os.lisp b/src/code/bsd-os.lisp index e36b615..0fce3c9 100644 --- a/src/code/bsd-os.lisp +++ b/src/code/bsd-os.lisp @@ -4,9 +4,6 @@ ;;;; Carnegie Mellon University, and has been placed in the public ;;;; domain. -(sb!int:file-comment - "$Header$") - (in-package "SB!SYS") ;;;; Check that target machine features are set up consistently with diff --git a/src/code/byte-interp.lisp b/src/code/byte-interp.lisp index 9dc34ea..67f7fac 100644 --- a/src/code/byte-interp.lisp +++ b/src/code/byte-interp.lisp @@ -2,9 +2,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;;; This software is part of the SBCL system. See the README file for ;;;; more information. ;;;; diff --git a/src/code/byte-types.lisp b/src/code/byte-types.lisp index 8f7824e..6e30dc0 100644 --- a/src/code/byte-types.lisp +++ b/src/code/byte-types.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; types diff --git a/src/code/char.lisp b/src/code/char.lisp index 7c8248f..f855306 100644 --- a/src/code/char.lisp +++ b/src/code/char.lisp @@ -20,9 +20,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; We compile some trivial character operations via inline expansion. #!-sb-fluid (declaim (inline standard-char-p graphic-char-p alpha-char-p diff --git a/src/code/cl-specials.lisp b/src/code/cl-specials.lisp index 6f5a830..ec7494a 100644 --- a/src/code/cl-specials.lisp +++ b/src/code/cl-specials.lisp @@ -12,9 +12,6 @@ (in-package "COMMON-LISP") -(sb!int:file-comment - "$Header$") - (sb!xc:proclaim '(special cl:* cl:** cl:*** diff --git a/src/code/class.lisp b/src/code/class.lisp index b119f59..403860f 100644 --- a/src/code/class.lisp +++ b/src/code/class.lisp @@ -14,9 +14,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) ;;;; the CLASS structure diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp index 6d0a3cf..e257fd7 100644 --- a/src/code/coerce.lisp +++ b/src/code/coerce.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (macrolet ((def-frob (name result access src-type &optional typep) `(defun ,name (object ,@(if typep '(type) ())) (do* ((index 0 (1+ index)) diff --git a/src/code/cold-error.lisp b/src/code/cold-error.lisp index a88b1a2..ba5a7f0 100644 --- a/src/code/cold-error.lisp +++ b/src/code/cold-error.lisp @@ -12,9 +12,6 @@ (in-package "SB!CONDITIONS") -(sb!int:file-comment - "$Header$") - (defvar *break-on-signals* nil #!+sb-doc "When (TYPEP condition *BREAK-ON-SIGNALS*) is true, then calls to SIGNAL will diff --git a/src/code/cold-init-helper-macros.lisp b/src/code/cold-init-helper-macros.lisp index ec20c2e..8a7b9de 100644 --- a/src/code/cold-init-helper-macros.lisp +++ b/src/code/cold-init-helper-macros.lisp @@ -16,9 +16,6 @@ ;;; FIXME: Perhaps this belongs in the %SYS package like some other ;;; cold load stuff. -(file-comment - "$Header$") - (eval-when (:compile-toplevel :load-toplevel :execute) (defvar *cold-init-forms*)) diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp index 4bc3375..2454804 100644 --- a/src/code/cold-init.lisp +++ b/src/code/cold-init.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; burning our ships behind us diff --git a/src/code/cross-float.lisp b/src/code/cross-float.lisp index 7023302..a820745 100644 --- a/src/code/cross-float.lisp +++ b/src/code/cross-float.lisp @@ -13,9 +13,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; There seems to be no portable way to mask float traps, but we shouldn't ;;; encounter any float traps when cross-compiling SBCL itself, anyway, so we ;;; just make this a no-op. diff --git a/src/code/cross-io.lisp b/src/code/cross-io.lisp index 98f3c7a..2714eaf 100644 --- a/src/code/cross-io.lisp +++ b/src/code/cross-io.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;;; fast-read operations ;;;; ;;;; (Portable versions of these are needed at cross-compile time because diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp index 14f50ed..6c3b8ce 100644 --- a/src/code/cross-misc.lisp +++ b/src/code/cross-misc.lisp @@ -12,11 +12,8 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - -;;; In correct code, TRULY-THE has only a performance impact and can be -;;; safely degraded to ordinary THE. +;;; In correct code, TRULY-THE has only a performance impact and can +;;; be safely degraded to ordinary THE. (defmacro truly-the (type expr) `(the ,type ,expr)) @@ -24,44 +21,45 @@ ;;; (possibly at some cost in efficiency). (declaim (declaration freeze-type maybe-inline)) -;;; INHIBIT-WARNINGS declarations can be safely ignored (although we may then -;;; have to wade through some irrelevant warnings). +;;; INHIBIT-WARNINGS declarations can be safely ignored (although we +;;; may then have to wade through some irrelevant warnings). (declaim (declaration inhibit-warnings)) -;;; Interrupt control isn't an issue in the cross-compiler: we don't use -;;; address-dependent (and thus GC-dependent) hashes, and we only have a single -;;; thread of control. +;;; Interrupt control isn't an issue in the cross-compiler: we don't +;;; use address-dependent (and thus GC-dependent) hashes, and we only +;;; have a single thread of control. (defmacro without-interrupts (&rest forms) `(progn ,@forms)) -;;; When we're running as a cross-compiler in an arbitrary host ANSI Lisp, we -;;; don't have any hooks available to manipulate the debugging name and -;;; debugging argument list of an interpreted function object (and don't care -;;; much about getting debugging name and debugging argument list right -;;; anyway). +;;; When we're running as a cross-compiler in an arbitrary host ANSI +;;; Lisp, we don't have any hooks available to manipulate the +;;; debugging name and debugging argument list of an interpreted +;;; function object (and don't care much about getting debugging name +;;; and debugging argument list right anyway). (defun try-to-rename-interpreted-function-as-macro (f name lambda-list) (declare (ignore f name lambda-list)) (values)) -;;; When we're running as a cross-compiler in an arbitrary host ANSI Lisp, we -;;; shouldn't be doing anything which is sensitive to GC. KLUDGE: I (WHN -;;; 19990131) think the proper long-term solution would be to remove any -;;; operations from cross-compiler source files (putting them in target-only -;;; source files) if they refer to these hooks. This is a short-term hack. +;;; When we're running as a cross-compiler in an arbitrary host ANSI +;;; Lisp, we shouldn't be doing anything which is sensitive to GC. +;;; KLUDGE: I (WHN 19990131) think the proper long-term solution would +;;; be to remove any operations from cross-compiler source files +;;; (putting them in target-only source files) if they refer to these +;;; hooks. This is a short-term hack. (defvar *before-gc-hooks* nil) (defvar *after-gc-hooks* nil) -;;; The GENESIS function works with fasl code which would, in the target SBCL, -;;; work on LISP-STREAMs. A true LISP-STREAM doesn't seem to be a meaningful -;;; concept in ANSI Common Lisp, but we can fake it acceptably well using a -;;; standard STREAM. +;;; The GENESIS function works with fasl code which would, in the +;;; target SBCL, work on LISP-STREAMs. A true LISP-STREAM doesn't seem +;;; to be a meaningful concept in ANSI Common Lisp, but we can fake it +;;; acceptably well using a standard STREAM. (deftype lisp-stream () 'stream) -;;; In the target SBCL, the INSTANCE type refers to a base implementation -;;; for compound types. There's no way to express exactly that concept -;;; portably, but we can get essentially the same effect by testing for -;;; any of the standard types which would, in the target SBCL, be derived -;;; from INSTANCE: +;;; In the target SBCL, the INSTANCE type refers to a base +;;; implementation for compound types. There's no way to express +;;; exactly that concept portably, but we can get essentially the same +;;; effect by testing for any of the standard types which would, in +;;; the target SBCL, be derived from INSTANCE: (deftype sb!kernel:instance () '(or condition standard-object structure-object)) @@ -69,33 +67,35 @@ ;;; host Common Lisp. (defun funcallable-instance-p (x) (if (typep x 'generic-function) - ;; In the target SBCL, FUNCALLABLE-INSTANCEs are used to implement generic - ;; functions, so any case which tests for this might in fact be trying to - ;; test for generic functions. My (WHN 19990313) expectation is that this - ;; case won't arise in the cross-compiler, but if it does, it deserves a - ;; little thought, rather than reflexively returning NIL. + ;; In the target SBCL, FUNCALLABLE-INSTANCEs are used to implement + ;; generic functions, so any case which tests for this might in + ;; fact be trying to test for generic functions. My (WHN 19990313) + ;; expectation is that this case won't arise in the + ;; cross-compiler, but if it does, it deserves a little thought, + ;; rather than reflexively returning NIL. (error "not clear how to handle GENERIC-FUNCTION") nil)) -;;; This seems to be the portable Common Lisp type test which corresponds -;;; to the effect of the target SBCL implementation test.. +;;; This seems to be the portable Common Lisp type test which +;;; corresponds to the effect of the target SBCL implementation test.. (defun sb!kernel:array-header-p (x) (and (typep x 'simple-array) (= 1 (array-rank x)))) -;;; Genesis needs these at cross-compile time. The target implementation of -;;; these is reasonably efficient by virtue of its ability to peek into the -;;; internals of the package implementation; this reimplementation is portable -;;; but slow. +;;; Genesis needs these at cross-compile time. The target +;;; implementation of these is reasonably efficient by virtue of its +;;; ability to peek into the internals of the package implementation; +;;; this reimplementation is portable but slow. (defun package-internal-symbol-count (package) (let ((result 0)) (declare (type fixnum result)) (do-symbols (i package) - ;; KLUDGE: The ANSI Common Lisp specification warns that DO-SYMBOLS may - ;; execute its body more than once for symbols that are inherited from - ;; multiple packages, and we currently make no attempt to correct for - ;; that here. (The current uses of this function at cross-compile time - ;; don't really care if the count is a little too high.) -- WHN 19990826 + ;; KLUDGE: The ANSI Common Lisp specification warns that + ;; DO-SYMBOLS may execute its body more than once for symbols + ;; that are inherited from multiple packages, and we currently + ;; make no attempt to correct for that here. (The current uses + ;; of this function at cross-compile time don't really care if + ;; the count is a little too high.) -- WHN 19990826 (multiple-value-bind (symbol status) (find-symbol (symbol-name i) package) (declare (ignore symbol)) @@ -110,20 +110,20 @@ (incf result)) result)) -;;; In the target Lisp, INTERN* is the primitive and INTERN is implemented in -;;; terms of it. This increases efficiency by letting us reuse a fixed-size -;;; buffer; the alternative would be particularly painful because we don't -;;; implement DYNAMIC-EXTENT. In the host Lisp, this is only used at -;;; cold load time, and we don't care as much about efficiency, so it's fine -;;; to treat the host Lisp's INTERN as primitive and implement INTERN* in -;;; terms of it. +;;; In the target Lisp, INTERN* is the primitive and INTERN is +;;; implemented in terms of it. This increases efficiency by letting +;;; us reuse a fixed-size buffer; the alternative would be +;;; particularly painful because we don't implement DYNAMIC-EXTENT. In +;;; the host Lisp, this is only used at cold load time, and we don't +;;; care as much about efficiency, so it's fine to treat the host +;;; Lisp's INTERN as primitive and implement INTERN* in terms of it. (defun intern* (nameoid length package) (intern (replace (make-string length) nameoid :end2 length) package)) -;;; In the target Lisp this is implemented by reading a fixed slot in the -;;; symbol. In portable ANSI Common Lisp the same criteria can be met (more -;;; slowly, and with the extra property of repeatability between runs) by just -;;; calling SXHASH. +;;; In the target Lisp this is implemented by reading a fixed slot in +;;; the symbol. In portable ANSI Common Lisp the same criteria can be +;;; met (more slowly, and with the extra property of repeatability +;;; between runs) by just calling SXHASH. (defun symbol-hash (symbol) (declare (type symbol symbol)) (sxhash symbol)) diff --git a/src/code/cross-sap.lisp b/src/code/cross-sap.lisp index d4fcfe9..2ef9f24 100644 --- a/src/code/cross-sap.lisp +++ b/src/code/cross-sap.lisp @@ -12,12 +12,9 @@ (in-package "SB!SYS") -(file-comment - "$Header$") - -;;; SYSTEM-AREA-POINTER is not a primitive type in ANSI Common Lisp, so we -;;; need a compound type to represent it in the host Common Lisp at -;;; cross-compile time: +;;; SYSTEM-AREA-POINTER is not a primitive type in ANSI Common Lisp, +;;; so we need a compound type to represent it in the host Common Lisp +;;; at cross-compile time: (defstruct (system-area-pointer (:constructor make-sap) (:conc-name "SAP-")) ;; the integer representation of the address (int (error "missing SAP-INT argument") :type sap-int-type :read-only t)) diff --git a/src/code/cross-type.lisp b/src/code/cross-type.lisp index 9e16a6f..53447f3 100644 --- a/src/code/cross-type.lisp +++ b/src/code/cross-type.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; (This was a useful warning when trying to get bootstrapping ;;; to work, but it's mostly irrelevant noise now that the system ;;; works.) diff --git a/src/code/debug-info.lisp b/src/code/debug-info.lisp index 13aaf7b..23326d0 100644 --- a/src/code/debug-info.lisp +++ b/src/code/debug-info.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; SC-OFFSETs ;;;; diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp index 42ab7e8..307ecd3 100644 --- a/src/code/debug-int.lisp +++ b/src/code/debug-int.lisp @@ -12,9 +12,6 @@ (in-package "SB!DI") -(file-comment - "$Header$") - ;;; FIXME: There are an awful lot of package prefixes in this code. ;;; Couldn't we have SB-DI use the SB-C and SB-VM packages? diff --git a/src/code/debug-var-io.lisp b/src/code/debug-var-io.lisp index 0d0ba29..36cbb44 100644 --- a/src/code/debug-var-io.lisp +++ b/src/code/debug-var-io.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; reading variable length integers ;;;; diff --git a/src/code/debug-vm.lisp b/src/code/debug-vm.lisp index 6ad8ddc..61df7c8 100644 --- a/src/code/debug-vm.lisp +++ b/src/code/debug-vm.lisp @@ -12,9 +12,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - (defconstant bogus-lra-constants 2) (defconstant real-lra-slot (+ code-constants-offset 0)) (defconstant known-return-p-slot (+ code-constants-offset 1)) diff --git a/src/code/debug.lisp b/src/code/debug.lisp index 5105bb4..79f9504 100644 --- a/src/code/debug.lisp +++ b/src/code/debug.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!DEBUG") - -(file-comment - "$Header$") ;;;; variables and constants diff --git a/src/code/defbangmacro.lisp b/src/code/defbangmacro.lisp index f0e40e8..7e7dba3 100644 --- a/src/code/defbangmacro.lisp +++ b/src/code/defbangmacro.lisp @@ -17,9 +17,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - #+sb-xc-host (progn ;; a description of the DEF!MACRO call to be stored until we get enough diff --git a/src/code/defbangstruct.lisp b/src/code/defbangstruct.lisp index 2315186..55cff76 100644 --- a/src/code/defbangstruct.lisp +++ b/src/code/defbangstruct.lisp @@ -17,9 +17,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - ;;; A bootstrap MAKE-LOAD-FORM method can be a function or the name ;;; of a function. (deftype def!struct-type-make-load-form-fun () '(or function symbol)) diff --git a/src/code/defbangtype.lisp b/src/code/defbangtype.lisp index f5f0b4e..c42a0c1 100644 --- a/src/code/defbangtype.lisp +++ b/src/code/defbangtype.lisp @@ -8,9 +8,6 @@ ;;;; files for more information. (in-package "SB!KERNEL") - -(file-comment - "$Header$") ;;;; the DEF!TYPE macro diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp index e280779..f095935 100644 --- a/src/code/defboot.lisp +++ b/src/code/defboot.lisp @@ -19,9 +19,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; IN-PACKAGE diff --git a/src/code/defmacro.lisp b/src/code/defmacro.lisp index 8a0f43e..9ec1d2b 100644 --- a/src/code/defmacro.lisp +++ b/src/code/defmacro.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; the guts of the DEFMACRO macro, pulled out into a separate ;;; function in order to make it easier to express the common ;;; bootstrap idiom diff --git a/src/code/defpackage.lisp b/src/code/defpackage.lisp index b087dca..31a9e7d 100644 --- a/src/code/defpackage.lisp +++ b/src/code/defpackage.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defmacro defpackage (package &rest options) #!+sb-doc "Defines a new package called PACKAGE. Each of OPTIONS should be one of the diff --git a/src/code/defsetfs.lisp b/src/code/defsetfs.lisp index 6b8f261..4aead1f 100644 --- a/src/code/defsetfs.lisp +++ b/src/code/defsetfs.lisp @@ -12,9 +12,6 @@ ;;;; provided with absolutely no warranty. See the COPYING and CREDITS ;;;; files for more information. -(sb!int:file-comment - "$Header$") - (sb!int:/show0 "entering defsetfs.lisp") ;;; from alieneval.lisp diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp index ca7e467..5a443c9 100644 --- a/src/code/defstruct.lisp +++ b/src/code/defstruct.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!KERNEL") - -(file-comment - "$Header$") ;;;; getting LAYOUTs diff --git a/src/code/deftypes-for-target.lisp b/src/code/deftypes-for-target.lisp index 59149cc..f42b20b 100644 --- a/src/code/deftypes-for-target.lisp +++ b/src/code/deftypes-for-target.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!KERNEL") - -(file-comment - "$Header$") ;;;; Now that DEFTYPE is set up, any pending requests for it can ;;;; be honored. diff --git a/src/code/describe.lisp b/src/code/describe.lisp index 27f7c53..d53dcc6 100644 --- a/src/code/describe.lisp +++ b/src/code/describe.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB-IMPL") - -(file-comment - "$Header$") (defvar *describe-indentation-step* 3 #+sb-doc diff --git a/src/code/destructuring-bind.lisp b/src/code/destructuring-bind.lisp index a3b7550..7e9b8e1 100644 --- a/src/code/destructuring-bind.lisp +++ b/src/code/destructuring-bind.lisp @@ -9,9 +9,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defmacro-mundanely destructuring-bind (lambda-list arg-list &rest body) #!+sb-doc "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST." diff --git a/src/code/dyncount.lisp b/src/code/dyncount.lisp index ffc0aed..744cf74 100644 --- a/src/code/dyncount.lisp +++ b/src/code/dyncount.lisp @@ -11,14 +11,12 @@ (in-package "SB!DYNCOUNT") -(file-comment - "$Header$") - #| -Make sure multi-cycle instruction costs are plausible. -VOP classification. - Make tables of %cost for benchmark X class. - Could be represented as a sort of bar chart. +comments from CMU CL: + Make sure multi-cycle instruction costs are plausible. + VOP classification. + Make tables of %cost for benchmark X class. + Could be represented as a sort of bar chart. |# (eval-when (:compile-toplevel) diff --git a/src/code/early-alieneval.lisp b/src/code/early-alieneval.lisp index 6e38fdb..67478a5 100644 --- a/src/code/early-alieneval.lisp +++ b/src/code/early-alieneval.lisp @@ -9,9 +9,6 @@ (in-package "SB!ALIEN") -(file-comment - "$Header$") - (defvar *alien-type-classes* (make-hash-table :test 'eq)) (defvar *new-auxiliary-types* nil) diff --git a/src/code/early-array.lisp b/src/code/early-array.lisp index 7ee1157..808cfef 100644 --- a/src/code/early-array.lisp +++ b/src/code/early-array.lisp @@ -9,9 +9,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defconstant sb!xc:array-rank-limit 65529 #!+sb-doc "the exclusive upper bound on the rank of an array") diff --git a/src/code/early-cl.lisp b/src/code/early-cl.lisp index aae673c..46c6c88 100644 --- a/src/code/early-cl.lisp +++ b/src/code/early-cl.lisp @@ -11,9 +11,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - ;;; Common Lisp special variables which have SB-XC versions (proclaim '(special sb!xc:*macroexpand-hook*)) diff --git a/src/code/early-defbangmethod.lisp b/src/code/early-defbangmethod.lisp index eda6690..b12b136 100644 --- a/src/code/early-defbangmethod.lisp +++ b/src/code/early-defbangmethod.lisp @@ -9,9 +9,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - #+sb-xc-host (defmacro def!method (&rest args) `(defmethod ,@args)) diff --git a/src/code/early-defboot.lisp b/src/code/early-defboot.lisp index e72074c..d69b6aa 100644 --- a/src/code/early-defboot.lisp +++ b/src/code/early-defboot.lisp @@ -12,9 +12,6 @@ (in-package "SB!EXT") -(file-comment - "$Header$") - ;;; helper function for various macros which expect clauses of a given ;;; length, etc. ;;; diff --git a/src/code/early-defstruct-args.lisp-expr b/src/code/early-defstruct-args.lisp-expr index 6bc2440..5003183 100644 --- a/src/code/early-defstruct-args.lisp-expr +++ b/src/code/early-defstruct-args.lisp-expr @@ -9,8 +9,6 @@ ;;;; provided with absolutely no warranty. See the COPYING and CREDITS ;;;; files for more information. -;;;; $Header$ - (;; Define the STRUCTURE-OBJECT class as a subclass of ;; INSTANCE. This has to be handled early because the design of the ;; DEFSTRUCT system, dating back to pre-1999 CMU CL, requires that diff --git a/src/code/early-defstructs.lisp b/src/code/early-defstructs.lisp index 8726a70..fdcc2ee 100644 --- a/src/code/early-defstructs.lisp +++ b/src/code/early-defstructs.lisp @@ -9,9 +9,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - #.`(progn ,@(mapcar (lambda (args) `(defstruct ,@args)) diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp index 9642a5f..0288453 100644 --- a/src/code/early-extensions.lisp +++ b/src/code/early-extensions.lisp @@ -18,9 +18,6 @@ (in-package "SB!EXT") -(file-comment - "$Header$") - ;;; a type used for indexing into arrays, and for related quantities ;;; like lengths of lists ;;; diff --git a/src/code/early-format.lisp b/src/code/early-format.lisp index 152eb3a..86bb31e 100644 --- a/src/code/early-format.lisp +++ b/src/code/early-format.lisp @@ -9,9 +9,6 @@ (in-package "SB!FORMAT") -(file-comment - "$Header$") - (defparameter *format-whitespace-chars* (vector #\space #\newline diff --git a/src/code/early-impl.lisp b/src/code/early-impl.lisp index 481a29a..c3bcaee 100644 --- a/src/code/early-impl.lisp +++ b/src/code/early-impl.lisp @@ -9,9 +9,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; entries in STATIC-SYMBOLS table, references to which can be compiled ;;; as though they're special variables (declaim (special *posix-argv* diff --git a/src/code/early-load.lisp b/src/code/early-load.lisp index 4af4171..b3aa472 100644 --- a/src/code/early-load.lisp +++ b/src/code/early-load.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; information about non-Lisp-level linkage ;;; ;;; Note: diff --git a/src/code/early-pprint.lisp b/src/code/early-pprint.lisp index eb6aafe..4b61727 100644 --- a/src/code/early-pprint.lisp +++ b/src/code/early-pprint.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!PRETTY") - -(file-comment - "$Header$") ;;;; utilities diff --git a/src/code/early-print.lisp b/src/code/early-print.lisp index f3e7a74..5dd2e92 100644 --- a/src/code/early-print.lisp +++ b/src/code/early-print.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; level and length abbreviations diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp index b3d1441..2219eb3 100644 --- a/src/code/early-setf.lisp +++ b/src/code/early-setf.lisp @@ -17,9 +17,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; The inverse for a generalized-variable reference function is stored in ;;; one of two ways: ;;; diff --git a/src/code/early-target-error.lisp b/src/code/early-target-error.lisp index 3b19746..ddf6def 100644 --- a/src/code/early-target-error.lisp +++ b/src/code/early-target-error.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!CONDITIONS") - -(sb!int:file-comment - "$Header$") ;;;; restarts diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp index 836ef5a..3c8c59d 100644 --- a/src/code/early-type.lisp +++ b/src/code/early-type.lisp @@ -9,9 +9,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) ;;; Has the type system been properly initialized? (I.e. is it OK to diff --git a/src/code/error-error.lisp b/src/code/error-error.lisp index 59274b5..96a7bc9 100644 --- a/src/code/error-error.lisp +++ b/src/code/error-error.lisp @@ -9,9 +9,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; These specials are used by ERROR-ERROR to track the success of recovery ;;; attempts. (defvar *error-error-depth* 0) diff --git a/src/code/error.lisp b/src/code/error.lisp index 27be4e5..1d6e5c7 100644 --- a/src/code/error.lisp +++ b/src/code/error.lisp @@ -13,9 +13,6 @@ (in-package "SB!CONDITIONS") -(sb!int:file-comment - "$Header$") - (define-condition simple-style-warning (simple-condition style-warning) ()) ;;; not sure this is the right place, but where else? diff --git a/src/code/eval.lisp b/src/code/eval.lisp index 023b876..879125c 100644 --- a/src/code/eval.lisp +++ b/src/code/eval.lisp @@ -9,9 +9,6 @@ (in-package "SB!EVAL") -(file-comment - "$Header$") - ;;; This flag is used by EVAL-WHEN to keep track of when code has already been ;;; evaluated so that it can avoid multiple evaluation of nested EVAL-WHEN ;;; (COMPILE)s. diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index 6cb0644..22c3190 100644 --- a/src/code/fd-stream.lisp +++ b/src/code/fd-stream.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (deftype file-stream () 'fd-stream) ;;;; buffer manipulation routines diff --git a/src/code/fdefinition.lisp b/src/code/fdefinition.lisp index 3403fea..0b72f21 100644 --- a/src/code/fdefinition.lisp +++ b/src/code/fdefinition.lisp @@ -14,9 +14,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (sb!int::/show0 "fdefinition.lisp 22") ;;;; fdefinition (fdefn) objects diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp index 3a71d9a..744eeaf 100644 --- a/src/code/filesys.lisp +++ b/src/code/filesys.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; Unix pathname host support diff --git a/src/code/final.lisp b/src/code/final.lisp index 1fdffda..20c2fa8 100644 --- a/src/code/final.lisp +++ b/src/code/final.lisp @@ -11,9 +11,6 @@ (in-package "SB!EXT") -(file-comment - "$Header$") - (defvar *objects-pending-finalization* nil) (defun finalize (object function) diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp index a46d157..f99ec5b 100644 --- a/src/code/float-trap.lisp +++ b/src/code/float-trap.lisp @@ -14,9 +14,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - (eval-when (:compile-toplevel :load-toplevel :execute) (defconstant float-trap-alist diff --git a/src/code/float.lisp b/src/code/float.lisp index ef111ae..f9abfd9 100644 --- a/src/code/float.lisp +++ b/src/code/float.lisp @@ -14,9 +14,6 @@ ;;;; files for more information. (in-package "SB!KERNEL") - -(file-comment - "$Header$") ;;;; utilities diff --git a/src/code/fop.lisp b/src/code/fop.lisp index 9522737..a28857f 100644 --- a/src/code/fop.lisp +++ b/src/code/fop.lisp @@ -2,9 +2,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; Define NAME as a fasl operation, with op-code FOP-CODE. PUSHP ;;; describes what the body does to the fop stack: ;;; :NOPE diff --git a/src/code/force-delayed-defbangmacros.lisp b/src/code/force-delayed-defbangmacros.lisp index 8bfb325..cdad0ef 100644 --- a/src/code/force-delayed-defbangmacros.lisp +++ b/src/code/force-delayed-defbangmacros.lisp @@ -16,7 +16,4 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - #+sb-xc-host (force-delayed-def!macros) diff --git a/src/code/force-delayed-defbangmethods.lisp b/src/code/force-delayed-defbangmethods.lisp index ab9bd87..2c64757 100644 --- a/src/code/force-delayed-defbangmethods.lisp +++ b/src/code/force-delayed-defbangmethods.lisp @@ -9,9 +9,6 @@ (in-package "SB-IMPL") -(file-comment - "$Header$") - (macrolet ((force-delayed-def!methods () `(progn ,@(mapcar (lambda (args) diff --git a/src/code/force-delayed-defbangstructs.lisp b/src/code/force-delayed-defbangstructs.lisp index ee70c7a..5b92e31 100644 --- a/src/code/force-delayed-defbangstructs.lisp +++ b/src/code/force-delayed-defbangstructs.lisp @@ -16,7 +16,4 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - #+sb-xc-host (force-delayed-def!structs) diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp index da50eac..636a4d2 100644 --- a/src/code/foreign.lisp +++ b/src/code/foreign.lisp @@ -11,9 +11,6 @@ (in-package "SB-SYS") -(file-comment - "$Header$") - ;;; not needed until we implement full-blown LOAD-FOREIGN #| (defun pick-temporary-file-name (&optional diff --git a/src/code/format-time.lisp b/src/code/format-time.lisp index 732e8b1..f9199e1 100644 --- a/src/code/format-time.lisp +++ b/src/code/format-time.lisp @@ -11,9 +11,6 @@ (in-package "SB!EXT") -(file-comment - "$Header$") - (defconstant abbrev-weekday-table '#("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun")) diff --git a/src/code/gc.lisp b/src/code/gc.lisp index b228fb8..27d08c7 100644 --- a/src/code/gc.lisp +++ b/src/code/gc.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!KERNEL") - -(file-comment - "$Header$") ;;;; DYNAMIC-USAGE and friends diff --git a/src/code/globals.lisp b/src/code/globals.lisp index 1eb72dd..70885e9 100644 --- a/src/code/globals.lisp +++ b/src/code/globals.lisp @@ -15,9 +15,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; FIXME: The COMMON-LISP specials here are already handled in ;;; cl-specials.lisp. (declaim (special *keyword-package* *cl-package* *package* *query-io* diff --git a/src/code/hash-table.lisp b/src/code/hash-table.lisp index 2a5f358..76a2978 100644 --- a/src/code/hash-table.lisp +++ b/src/code/hash-table.lisp @@ -12,9 +12,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; an internal tag for marking empty slots ;;; ;;; CMU CL 18b used :EMPTY for this purpose, which was somewhat nasty diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp index 72a65e0..ce46024 100644 --- a/src/code/host-alieneval.lisp +++ b/src/code/host-alieneval.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!ALIEN") - -(file-comment - "$Header$") ;;;; utility functions diff --git a/src/code/host-c-call.lisp b/src/code/host-c-call.lisp index f86f24c..8977f80 100644 --- a/src/code/host-c-call.lisp +++ b/src/code/host-c-call.lisp @@ -9,9 +9,6 @@ (in-package "SB!C-CALL") -(sb!int:file-comment - "$Header$") - (def-alien-type-class (c-string :include pointer :include-args (to))) (def-alien-type-translator c-string () diff --git a/src/code/inspect.lisp b/src/code/inspect.lisp index 38d844a..40830ce 100644 --- a/src/code/inspect.lisp +++ b/src/code/inspect.lisp @@ -11,9 +11,6 @@ (in-package "SB-INSPECT") -(file-comment - "$Header$") - ;;; The inspector views LISP objects as being composed of parts. A ;;; list, for example, would be divided into its members, and a ;;; instance into its slots. These parts are stored in a list. The diff --git a/src/code/interr.lisp b/src/code/interr.lisp index 9f9d67d..8271e4c 100644 --- a/src/code/interr.lisp +++ b/src/code/interr.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!KERNEL") - -(file-comment - "$Header$") ;;;; internal errors diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index 9e71d15..dcd15c1 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!KERNEL") - -(file-comment - "$Header$") ;;;; miscellaneous constants, utility functions, and macros diff --git a/src/code/kernel.lisp b/src/code/kernel.lisp index 4fd172c..42fe943 100644 --- a/src/code/kernel.lisp +++ b/src/code/kernel.lisp @@ -11,9 +11,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (defun get-header-data (x) #!+sb-doc "Return the 24 bits of data in the header of object X, which must be an diff --git a/src/code/late-defbangmethod.lisp b/src/code/late-defbangmethod.lisp index 280d788..79b559c 100644 --- a/src/code/late-defbangmethod.lisp +++ b/src/code/late-defbangmethod.lisp @@ -9,9 +9,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; DEF!METHOD = cold DEFMETHOD, a version of DEFMETHOD which, when used ;;; before real CLOS DEFMETHOD is available, saves up its definition to be ;;; executed later when CLOS is available diff --git a/src/code/late-extensions.lisp b/src/code/late-extensions.lisp index 6719abf..694ce6b 100644 --- a/src/code/late-extensions.lisp +++ b/src/code/late-extensions.lisp @@ -9,9 +9,6 @@ (in-package "SB!EXT") -(file-comment - "$Header$") - (defun featurep (x) #!+sb-doc "If X is an atom, see whether it is present in *FEATURES*. Also diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp index d359fa3..b9b3c85 100644 --- a/src/code/late-format.lisp +++ b/src/code/late-format.lisp @@ -8,9 +8,6 @@ ;;;; files for more information. (in-package "SB!FORMAT") - -(file-comment - "$Header$") (define-condition format-error (error) ((complaint :reader format-error-complaint :initarg :complaint) diff --git a/src/code/late-setf.lisp b/src/code/late-setf.lisp index 5dbc216..f5f3a97 100644 --- a/src/code/late-setf.lisp +++ b/src/code/late-setf.lisp @@ -17,9 +17,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defmacro-mundanely psetf (&rest args &environment env) #!+sb-doc "This is to SETF as PSETQ is to SETQ. Args are alternating place diff --git a/src/code/late-target-error.lisp b/src/code/late-target-error.lisp index d2a1cc1..91ecea1 100644 --- a/src/code/late-target-error.lisp +++ b/src/code/late-target-error.lisp @@ -14,9 +14,6 @@ ;;;; files for more information. (in-package "SB!CONDITIONS") - -(sb!int:file-comment - "$Header$") ;;;; the CONDITION class diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp index 0a51a0b..656bb63 100644 --- a/src/code/late-type.lisp +++ b/src/code/late-type.lisp @@ -16,9 +16,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) ;;; ### Remaining incorrectnesses: diff --git a/src/code/linux-os.lisp b/src/code/linux-os.lisp index 8d7abc0..b7a235e 100644 --- a/src/code/linux-os.lisp +++ b/src/code/linux-os.lisp @@ -11,10 +11,8 @@ (in-package "SB!SYS") -(file-comment - "$Header$") - -;;; Check that target machine features are set up consistently with this file. +;;; Check that target machine features are set up consistently with +;;; this file. #!-linux (error "missing :LINUX feature") (defun software-type () diff --git a/src/code/lisp-stream.lisp b/src/code/lisp-stream.lisp index f6dac16..f78bf06 100644 --- a/src/code/lisp-stream.lisp +++ b/src/code/lisp-stream.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (eval-when (:compile-toplevel :load-toplevel :execute) (defconstant in-buffer-length 512 "the size of a stream in-buffer")) diff --git a/src/code/list.lisp b/src/code/list.lisp index 13244d3..cc13b1a 100644 --- a/src/code/list.lisp +++ b/src/code/list.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;;; KLUDGE: comment from CMU CL, what does it mean? ;;;; NSUBLIS, things at the beginning broken. ;;;; -- WHN 20000127 diff --git a/src/code/load.lisp b/src/code/load.lisp index 24341c3..aa12429 100644 --- a/src/code/load.lisp +++ b/src/code/load.lisp @@ -15,9 +15,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; variables diff --git a/src/code/loop.lisp b/src/code/loop.lisp index 784a2f1..b1ef79a 100644 --- a/src/code/loop.lisp +++ b/src/code/loop.lisp @@ -66,9 +66,6 @@ (in-package "SB!LOOP") -(sb!int:file-comment - "$Header$") - ;;;; The design of this LOOP is intended to permit, using mostly the same ;;;; kernel of code, up to three different "loop" macros: ;;;; diff --git a/src/code/macroexpand.lisp b/src/code/macroexpand.lisp index b9274bf..4806e01 100644 --- a/src/code/macroexpand.lisp +++ b/src/code/macroexpand.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; syntactic environment access diff --git a/src/code/macros.lisp b/src/code/macros.lisp index 8f6d386..4312df9 100644 --- a/src/code/macros.lisp +++ b/src/code/macros.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; ASSERT and CHECK-TYPE diff --git a/src/code/mipsstrops.lisp b/src/code/mipsstrops.lisp index d581688..956a7a4 100644 --- a/src/code/mipsstrops.lisp +++ b/src/code/mipsstrops.lisp @@ -12,9 +12,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;(defun %sp-byte-blt (src-string src-start dst-string dst-start dst-end) ; "Moves bytes from Src-String into Dst-String between Dst-Start (inclusive) ;and Dst-End (exclusive) (Dst-Start - Dst-End bytes are moved). Overlap of the diff --git a/src/code/misc.lisp b/src/code/misc.lisp index 7f88bd2..8a32863 100644 --- a/src/code/misc.lisp +++ b/src/code/misc.lisp @@ -12,9 +12,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defun sb!xc:lisp-implementation-type () "SBCL") diff --git a/src/code/module.lisp b/src/code/module.lisp index f7f3e5d..7091233 100644 --- a/src/code/module.lisp +++ b/src/code/module.lisp @@ -18,9 +18,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; exported specials diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp index 2ac8fc1..c0f0511 100644 --- a/src/code/ntrace.lisp +++ b/src/code/ntrace.lisp @@ -11,11 +11,9 @@ (in-package "SB-DEBUG") -(file-comment - "$Header$") - -;;; FIXME: Why, oh why, doesn't the SB-DEBUG package use the SB-DI package? -;;; That would let us get rid of a whole lot of stupid prefixes.. +;;; FIXME: Why, oh why, doesn't the SB-DEBUG package use the SB-DI +;;; package? That would let us get rid of a whole lot of stupid +;;; prefixes.. (defvar *trace-values* nil #+sb-doc diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp index 55ff7b3..6e1b0ce 100644 --- a/src/code/numbers.lisp +++ b/src/code/numbers.lisp @@ -11,9 +11,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - ;;; FIXME: This probably belongs in SB-INT instead of SB-KERNEL. ;;; And couldn't it be limited to FIXNUM arguments? (defun positive-primep (x) diff --git a/src/code/package.lisp b/src/code/package.lisp index 4078b05..7a64d3a 100644 --- a/src/code/package.lisp +++ b/src/code/package.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; the PACKAGE-HASHTABLE structure diff --git a/src/code/parse-body.lisp b/src/code/parse-body.lisp index 1dfb055..c6926a9 100644 --- a/src/code/parse-body.lisp +++ b/src/code/parse-body.lisp @@ -16,9 +16,6 @@ (in-package "SB!INT") -(file-comment - "$Header$") - (/show0 "entering parse-body.lisp") ;;; Given a sequence of declarations (and possibly a documentation diff --git a/src/code/parse-defmacro-errors.lisp b/src/code/parse-defmacro-errors.lisp index 883cb0d..271b668 100644 --- a/src/code/parse-defmacro-errors.lisp +++ b/src/code/parse-defmacro-errors.lisp @@ -15,9 +15,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - ;;; We save space in macro definitions by calling this function. (defun do-arg-count-error (error-kind name arg lambda-list minimum maximum) (multiple-value-bind (fname sb!debug:*stack-top-hint*) (find-caller-name) diff --git a/src/code/parse-defmacro.lisp b/src/code/parse-defmacro.lisp index eb9efae..1f30f7c 100644 --- a/src/code/parse-defmacro.lisp +++ b/src/code/parse-defmacro.lisp @@ -11,9 +11,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - ;;; variables for accumulating the results of parsing a DEFMACRO. (Declarations ;;; in DEFMACRO are the reason this isn't as easy as it sounds.) (defvar *arg-tests* nil) ; tests that do argument counting at expansion time diff --git a/src/code/pathname.lisp b/src/code/pathname.lisp index c20a0aa..ee6c496 100644 --- a/src/code/pathname.lisp +++ b/src/code/pathname.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; data types used by pathnames diff --git a/src/code/pp-backq.lisp b/src/code/pp-backq.lisp index 1b2e2af..bbc1e85 100644 --- a/src/code/pp-backq.lisp +++ b/src/code/pp-backq.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defun backq-unparse-expr (form splicing) (ecase splicing ((nil) diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp index e564148..5a2ea1c 100644 --- a/src/code/pprint.lisp +++ b/src/code/pprint.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!PRETTY") - -(file-comment - "$Header$") ;;;; pretty streams diff --git a/src/code/pred.lisp b/src/code/pred.lisp index 208f637..559c641 100644 --- a/src/code/pred.lisp +++ b/src/code/pred.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; miscellaneous non-primitive predicates diff --git a/src/code/print.lisp b/src/code/print.lisp index 4f3c28a..0c19b98 100644 --- a/src/code/print.lisp +++ b/src/code/print.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; exported printer control variables diff --git a/src/code/purify.lisp b/src/code/purify.lisp index 32bef5b..21317bf 100644 --- a/src/code/purify.lisp +++ b/src/code/purify.lisp @@ -9,9 +9,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (sb!alien:def-alien-routine ("purify" %purify) sb!c-call:void (static-roots sb!c-call:unsigned-long) (read-only-roots sb!c-call:unsigned-long)) diff --git a/src/code/query.lisp b/src/code/query.lisp index 3bfdd22..1a27b78 100644 --- a/src/code/query.lisp +++ b/src/code/query.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defun query-readline () (force-output *query-io*) (string-trim " " (read-line *query-io*))) diff --git a/src/code/random.lisp b/src/code/random.lisp index 0ca96f1..863b5cc 100644 --- a/src/code/random.lisp +++ b/src/code/random.lisp @@ -9,9 +9,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - ;;; the size of the chunks returned by RANDOM-CHUNK (defconstant random-chunk-length 32) diff --git a/src/code/reader.lisp b/src/code/reader.lisp index fbd1e0e..4f78e13 100644 --- a/src/code/reader.lisp +++ b/src/code/reader.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;; miscellaneous global variables diff --git a/src/code/readtable.lisp b/src/code/readtable.lisp index 0de32c0..a4d412d 100644 --- a/src/code/readtable.lisp +++ b/src/code/readtable.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (sb!xc:deftype attribute-table () '(simple-array (unsigned-byte 8) (#.char-code-limit))) diff --git a/src/code/room.lisp b/src/code/room.lisp index db1f7d5..4ba273d 100644 --- a/src/code/room.lisp +++ b/src/code/room.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; type format database diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp index 13acdf9..7658e80 100644 --- a/src/code/run-program.lisp +++ b/src/code/run-program.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB-EXT") - -(file-comment - "$Header$") ;;;; Import wait3(2) from Unix. diff --git a/src/code/save.lisp b/src/code/save.lisp index ad79a4d..326b8ba 100644 --- a/src/code/save.lisp +++ b/src/code/save.lisp @@ -14,9 +14,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") (defvar *before-save-initializations* nil #!+sb-doc diff --git a/src/code/seq.lisp b/src/code/seq.lisp index 7baeb3c..a4fa138 100644 --- a/src/code/seq.lisp +++ b/src/code/seq.lisp @@ -17,9 +17,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; utilities diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp index 92cc9b2..10e1269 100644 --- a/src/code/serve-event.lisp +++ b/src/code/serve-event.lisp @@ -8,9 +8,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") #| ;;;; object set stuff diff --git a/src/code/setf-funs.lisp b/src/code/setf-funs.lisp index 9c9a3ff..4073fc8 100644 --- a/src/code/setf-funs.lisp +++ b/src/code/setf-funs.lisp @@ -12,9 +12,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (eval-when (:compile-toplevel :execute) (defun compute-one-setter (name type) diff --git a/src/code/sharpm.lisp b/src/code/sharpm.lisp index 6ca5a51..f172559 100644 --- a/src/code/sharpm.lisp +++ b/src/code/sharpm.lisp @@ -8,9 +8,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") (declaim (special *read-suppress* *standard-readtable* *bq-vector-flag*)) diff --git a/src/code/show.lisp b/src/code/show.lisp index 27f2973..56a128d 100644 --- a/src/code/show.lisp +++ b/src/code/show.lisp @@ -44,10 +44,6 @@ etc." (declare (ignore string)) '(values)) - -;;; Now that we've got it, we can use it. -(file-comment - "$Header$") ;;;; various SB-SHOW-dependent forms diff --git a/src/code/signal.lisp b/src/code/signal.lisp index 8bf189d..46679aa 100644 --- a/src/code/signal.lisp +++ b/src/code/signal.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!UNIX") - -(file-comment - "$Header$") ;;;; macros for dynamically enabling and disabling signal handling diff --git a/src/code/sort.lisp b/src/code/sort.lisp index 8fc883d..1a674ea 100644 --- a/src/code/sort.lisp +++ b/src/code/sort.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defun sort (sequence predicate &key key) #!+sb-doc "Destructively sorts sequence. Predicate should return non-Nil if diff --git a/src/code/specializable-array.lisp b/src/code/specializable-array.lisp index 886133c..aac63c4 100644 --- a/src/code/specializable-array.lisp +++ b/src/code/specializable-array.lisp @@ -12,9 +12,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - ;;; It's hard to dump specialized vectors portably, because ANSI ;;; doesn't guarantee much about what specialized vectors exist. ;;; Thus, if we do diff --git a/src/code/stream.lisp b/src/code/stream.lisp index 053f0b2..6f87f0b 100644 --- a/src/code/stream.lisp +++ b/src/code/stream.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (deftype string-stream () '(or string-input-stream string-output-stream fill-pointer-output-stream)) diff --git a/src/code/string.lisp b/src/code/string.lisp index 486e6a5..ec9c7a0 100644 --- a/src/code/string.lisp +++ b/src/code/string.lisp @@ -9,9 +9,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defun string (x) #!+sb-doc "Coerces X into a string. If X is a string, X is returned. If X is a diff --git a/src/code/symbol.lisp b/src/code/symbol.lisp index c0292ac..3ceba16 100644 --- a/src/code/symbol.lisp +++ b/src/code/symbol.lisp @@ -15,9 +15,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (declaim (maybe-inline get %put getf remprop %putf get-properties keywordp)) (defun symbol-value (variable) diff --git a/src/code/sysmacs.lisp b/src/code/sysmacs.lisp index d485246..2fb0e46 100644 --- a/src/code/sysmacs.lisp +++ b/src/code/sysmacs.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; This checks to see whether the array is simple and the start and ;;; end are in bounds. If so, it proceeds with those values. ;;; Otherwise, it calls %WITH-ARRAY-DATA. Note that there is a diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp index 20425c0..054e282 100644 --- a/src/code/target-alieneval.lisp +++ b/src/code/target-alieneval.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!ALIEN") - -(file-comment - "$Header$") ;;;; alien variables diff --git a/src/code/target-c-call.lisp b/src/code/target-c-call.lisp index 65e8478..df2459e 100644 --- a/src/code/target-c-call.lisp +++ b/src/code/target-c-call.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!C-CALL") - -(sb!int:file-comment - "$Header$") ;;;; extra types diff --git a/src/code/target-defbangmethod.lisp b/src/code/target-defbangmethod.lisp index d361fd1..ddb6e10 100644 --- a/src/code/target-defbangmethod.lisp +++ b/src/code/target-defbangmethod.lisp @@ -9,7 +9,4 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defvar *delayed-def!method-args* nil) diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp index 2fb05f8..92932cf 100644 --- a/src/code/target-defstruct.lisp +++ b/src/code/target-defstruct.lisp @@ -8,9 +8,6 @@ ;;;; files for more information. (in-package "SB!KERNEL") - -(file-comment - "$Header$") ;;;; structure frobbing primitives diff --git a/src/code/target-eval.lisp b/src/code/target-eval.lisp index 8f368fe..0baf841 100644 --- a/src/code/target-eval.lisp +++ b/src/code/target-eval.lisp @@ -9,9 +9,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; FIXME: These probably belong in some package other than SB!IMPL. ;;; Perhaps SB!KERNEL? diff --git a/src/code/target-extensions.lisp b/src/code/target-extensions.lisp index 6ef8f62..123af88 100644 --- a/src/code/target-extensions.lisp +++ b/src/code/target-extensions.lisp @@ -17,9 +17,6 @@ (in-package "SB!EXT") -(file-comment - "$Header$") - ;;; INDENTING-FURTHER is a user-level macro which may be used to locally ;;; increment the indentation of a stream. (defmacro indenting-further (stream more &rest body) diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp index 13e4a5d..1ed89b0 100644 --- a/src/code/target-format.lisp +++ b/src/code/target-format.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!FORMAT") - -(file-comment - "$Header$") ;;;; FORMAT diff --git a/src/code/target-hash-table.lisp b/src/code/target-hash-table.lisp index 5175eab..ed6d7fe 100644 --- a/src/code/target-hash-table.lisp +++ b/src/code/target-hash-table.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") ;;;; utilities diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp index 8f8a1f0..dfa628e 100644 --- a/src/code/target-load.lisp +++ b/src/code/target-load.lisp @@ -13,9 +13,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defvar *load-source-types* '("lisp" "l" "cl" "lsp") #!+sb-doc "The source file types which LOAD recognizes.") diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp index 946c682..9519b6e 100644 --- a/src/code/target-misc.lisp +++ b/src/code/target-misc.lisp @@ -14,9 +14,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; cobbled from stuff in describe.lisp. (defun function-doc (x) (let ((name diff --git a/src/code/target-numbers.lisp b/src/code/target-numbers.lisp index dd10681..047282d 100644 --- a/src/code/target-numbers.lisp +++ b/src/code/target-numbers.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!KERNEL") - -(file-comment - "$Header$") ;;;; the NUMBER-DISPATCH macro diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp index 671bda9..c4aa06e 100644 --- a/src/code/target-package.lisp +++ b/src/code/target-package.lisp @@ -20,9 +20,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) (!cold-init-forms diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp index d5122f2..1e12f0a 100644 --- a/src/code/target-pathname.lisp +++ b/src/code/target-pathname.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - #!-sb-fluid (declaim (freeze-type logical-pathname logical-host)) ;;; host methods diff --git a/src/code/target-random.lisp b/src/code/target-random.lisp index 42e1a58..1756f7c 100644 --- a/src/code/target-random.lisp +++ b/src/code/target-random.lisp @@ -15,9 +15,6 @@ ;;;; files for more information. (in-package "SB!KERNEL") - -(file-comment - "$Header$") ;;;; RANDOM-STATEs diff --git a/src/code/target-sap.lisp b/src/code/target-sap.lisp index af1e851..56f0789 100644 --- a/src/code/target-sap.lisp +++ b/src/code/target-sap.lisp @@ -12,9 +12,6 @@ (in-package "SB!SYS") ;;; FIXME: Shouldn't these be IN-PACKAGE SB!KERNEL instead? (They're ;;; not dependent on the OS, only on the CPU architecture.) - -(file-comment - "$Header$") ;;;; primitive SAP operations diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp index e81c212..7320196 100644 --- a/src/code/target-signal.lisp +++ b/src/code/target-signal.lisp @@ -11,9 +11,6 @@ (in-package "SB!UNIX") -(file-comment - "$Header$") - ;;; These should probably be somewhere, but I don't know where. (defconstant sig_dfl 0) (defconstant sig_ign 1) diff --git a/src/code/target-sxhash.lisp b/src/code/target-sxhash.lisp index 96d7b12..d6bba00 100644 --- a/src/code/target-sxhash.lisp +++ b/src/code/target-sxhash.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; the depthoid explored when calculating hash values ;;; ;;; "Depthoid" here is a sort of mixture of what Common Lisp ordinarily calls diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp index 153f77d..b3415d2 100644 --- a/src/code/target-type.lisp +++ b/src/code/target-type.lisp @@ -11,9 +11,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) ;;; Just call %TYPEP. diff --git a/src/code/time.lisp b/src/code/time.lisp index 4bb9d9c..c808845 100644 --- a/src/code/time.lisp +++ b/src/code/time.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (defconstant internal-time-units-per-second 100 #!+sb-doc "The number of internal time units that fit into a second. See diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp index 0b5dce9..9ff9a7d 100644 --- a/src/code/toplevel.lisp +++ b/src/code/toplevel.lisp @@ -12,9 +12,6 @@ ;;;; files for more information. (in-package "SB!IMPL") - -(file-comment - "$Header$") (defconstant most-positive-fixnum #.sb!vm:*target-most-positive-fixnum* #!+sb-doc diff --git a/src/code/type-class.lisp b/src/code/type-class.lisp index fb81ded..360a4e8 100644 --- a/src/code/type-class.lisp +++ b/src/code/type-class.lisp @@ -11,9 +11,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) (defvar *type-classes*) diff --git a/src/code/type-init.lisp b/src/code/type-init.lisp index ff7b4a2..8088a76 100644 --- a/src/code/type-init.lisp +++ b/src/code/type-init.lisp @@ -17,9 +17,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - ;;; built-in classes (/show0 "beginning type-init.lisp") (dolist (x *built-in-classes*) diff --git a/src/code/typedefs.lisp b/src/code/typedefs.lisp index e904423..e6bce47 100644 --- a/src/code/typedefs.lisp +++ b/src/code/typedefs.lisp @@ -22,9 +22,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) ;;; Define the translation from a type-specifier to a type structure for diff --git a/src/code/typep.lisp b/src/code/typep.lisp index 505b55c..b82f92c 100644 --- a/src/code/typep.lisp +++ b/src/code/typep.lisp @@ -9,9 +9,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - ;;; The actual TYPEP engine. The compiler only generates calls to this ;;; function when it can't figure out anything more intelligent to do. (defun %typep (object specifier) diff --git a/src/code/uncross.lisp b/src/code/uncross.lisp index 5f208c2..8043676 100644 --- a/src/code/uncross.lisp +++ b/src/code/uncross.lisp @@ -16,8 +16,6 @@ (in-package "SB!INT") -;;;; $Header$ - ;;; In the target system's compiler, uncrossing is just identity. #-sb-xc-host (progn diff --git a/src/code/unix.lisp b/src/code/unix.lisp index a6b01be..c6083a6 100644 --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -24,9 +24,6 @@ (in-package "SB!UNIX") -(file-comment - "$Header$") - (/show0 "unix.lisp 21") ;;;; common machine-independent structures diff --git a/src/code/weak.lisp b/src/code/weak.lisp index 78bd218..8ce3367 100644 --- a/src/code/weak.lisp +++ b/src/code/weak.lisp @@ -11,9 +11,6 @@ (in-package "SB!EXT") -(file-comment - "$Header$") - (defun make-weak-pointer (object) #!+sb-doc "Allocates and returns a weak pointer which points to OBJECT." diff --git a/src/code/x86-vm.lisp b/src/code/x86-vm.lisp index 38aafab..a305dd0 100644 --- a/src/code/x86-vm.lisp +++ b/src/code/x86-vm.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; OS-CONTEXT-T diff --git a/src/cold/ansify.lisp b/src/cold/ansify.lisp index 8e05fd4..7cf9c9b 100644 --- a/src/cold/ansify.lisp +++ b/src/cold/ansify.lisp @@ -10,8 +10,6 @@ ;;;; provided with absolutely no warranty. See the COPYING and CREDITS ;;;; files for more information. -;;;; $Header$ - #+clisp (locally diff --git a/src/cold/compile-cold-sbcl.lisp b/src/cold/compile-cold-sbcl.lisp index 7bd002c..7589dc1 100644 --- a/src/cold/compile-cold-sbcl.lisp +++ b/src/cold/compile-cold-sbcl.lisp @@ -14,8 +14,6 @@ (in-package "SB-COLD") -;;;; $Header$ - (defvar *target-object-file-names*) ;;; KLUDGE.. diff --git a/src/cold/defun-load-or-cload-xcompiler.lisp b/src/cold/defun-load-or-cload-xcompiler.lisp index a861cb6..1d696f7 100644 --- a/src/cold/defun-load-or-cload-xcompiler.lisp +++ b/src/cold/defun-load-or-cload-xcompiler.lisp @@ -9,8 +9,6 @@ (in-package "SB-COLD") -;;;; $Header$ - ;;; Either load or compile-then-load the cross-compiler into the ;;; cross-compilation host Common Lisp. (defun load-or-cload-xcompiler (load-or-cload-stem) diff --git a/src/cold/read-from-file.lisp b/src/cold/read-from-file.lisp index 9eba15e..a2ee083 100644 --- a/src/cold/read-from-file.lisp +++ b/src/cold/read-from-file.lisp @@ -9,8 +9,6 @@ (in-package "SB-COLD") -;;;; $Header$ - ;;; Return an expression read from the file named PATHNAME-DESIGNATOR. (export 'read-from-file) (defun read-from-file (pathname-designator) diff --git a/src/cold/rename-package-carefully.lisp b/src/cold/rename-package-carefully.lisp index e1ce954..158572a 100644 --- a/src/cold/rename-package-carefully.lisp +++ b/src/cold/rename-package-carefully.lisp @@ -9,8 +9,6 @@ (in-package "SB-COLD") -;;;; $Header$ - ;;; RENAME-PACKAGE in two steps in order to avoid the possibility of undefined ;;; behavior when one of the new names is the same as one of the old names. ;;; (ANSI on RENAME-PACKAGE: "The consequences are undefined if new-name or any diff --git a/src/cold/set-up-cold-packages.lisp b/src/cold/set-up-cold-packages.lisp index 5de7da9..0380857 100644 --- a/src/cold/set-up-cold-packages.lisp +++ b/src/cold/set-up-cold-packages.lisp @@ -9,8 +9,6 @@ (in-package "SB-COLD") -;;;; $Header$ - ;;; an entry in the table which describes the non-standard part (i.e. not ;;; CL/CL-USER/KEYWORD) of the package structure of the SBCL system ;;; diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp index 8fc7be0..8161f5b 100644 --- a/src/cold/shared.lisp +++ b/src/cold/shared.lisp @@ -15,8 +15,6 @@ ;;;; provided with absolutely no warranty. See the COPYING and CREDITS ;;;; files for more information. -;;;; $Header$ - ;;; TO DO: Might it be possible to increase the efficiency of CMU CL's garbage ;;; collection on my large (256Mb) machine by doing larger incremental GC steps ;;; than the default 2 Mb of CMU CL 2.4.9? A quick test 19990729, setting this diff --git a/src/cold/shebang.lisp b/src/cold/shebang.lisp index 4647afa..9a0c532 100644 --- a/src/cold/shebang.lisp +++ b/src/cold/shebang.lisp @@ -10,8 +10,6 @@ ;;;; files for more information. (in-package "SB-COLD") - -;;;; $Header$ ;;;; definition of #!+ and #!- as a mechanism analogous to #+/#-, ;;;; but redirectable to any list of features. (This is handy when diff --git a/src/cold/snapshot.lisp b/src/cold/snapshot.lisp index da55f23..4712f4d 100644 --- a/src/cold/snapshot.lisp +++ b/src/cold/snapshot.lisp @@ -11,8 +11,6 @@ (in-package "SB-COLD") -;;;; $Header$ - (defstruct snapshot (hash-table (make-hash-table :test 'eq) :type hash-table diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp index 8efbc69..6b0dfc6 100644 --- a/src/cold/warm.lisp +++ b/src/cold/warm.lisp @@ -10,8 +10,6 @@ ;;;; files for more information. (in-package "COMMON-LISP-USER") - -;;;; $Header$ ;;;; general warm init compilation policy diff --git a/src/cold/with-stuff.lisp b/src/cold/with-stuff.lisp index 0e39e3a..aff7a7f 100644 --- a/src/cold/with-stuff.lisp +++ b/src/cold/with-stuff.lisp @@ -12,8 +12,6 @@ (in-package "SB-COLD") -;;;; $Header$ - ;;; a helper macro for WITH-ADDITIONAL-NICKNAME and WITHOUT-SOME-NICKNAME (defmacro with-given-nicknames ((package-designator nicknames) &body body) (let ((p (gensym "P")) diff --git a/src/compiler/aliencomp.lisp b/src/compiler/aliencomp.lisp index ce65019..a10adbb 100644 --- a/src/compiler/aliencomp.lisp +++ b/src/compiler/aliencomp.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; DEFKNOWNs diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp index 4cb72ca..a21399b 100644 --- a/src/compiler/array-tran.lisp +++ b/src/compiler/array-tran.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; Derive-Type Optimizers diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp index e3cb3c7..83c957c 100644 --- a/src/compiler/assem.lisp +++ b/src/compiler/assem.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!ASSEM") - -(sb!int:file-comment - "$Header$") ;;;; assembly control parameters diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp index 06e7d53..9a58ec8 100644 --- a/src/compiler/backend.lisp +++ b/src/compiler/backend.lisp @@ -20,9 +20,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; miscellaneous backend properties diff --git a/src/compiler/bit-util.lisp b/src/compiler/bit-util.lisp index f927c5e..13cfb7e 100644 --- a/src/compiler/bit-util.lisp +++ b/src/compiler/bit-util.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - #!-sb-fluid (declaim (inline clear-bit-vector set-bit-vector bit-vector-replace bit-vector-copy)) diff --git a/src/compiler/byte-comp.lisp b/src/compiler/byte-comp.lisp index b428064..eb718e5 100644 --- a/src/compiler/byte-comp.lisp +++ b/src/compiler/byte-comp.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;;; the fasl file format that we use (defconstant byte-fasl-file-version 1) diff --git a/src/compiler/checkgen.lisp b/src/compiler/checkgen.lisp index b3b9457..e727624 100644 --- a/src/compiler/checkgen.lisp +++ b/src/compiler/checkgen.lisp @@ -13,9 +13,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; cost estimation diff --git a/src/compiler/codegen.lisp b/src/compiler/codegen.lisp index 861bced..12c3ab4 100644 --- a/src/compiler/codegen.lisp +++ b/src/compiler/codegen.lisp @@ -13,9 +13,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; utilities used during code generation diff --git a/src/compiler/compiler-deftype.lisp b/src/compiler/compiler-deftype.lisp index 298bc91..ac9f364 100644 --- a/src/compiler/compiler-deftype.lisp +++ b/src/compiler/compiler-deftype.lisp @@ -11,8 +11,6 @@ (in-package "SB!IMPL") -(file-comment "$Header$") - (defun %compiler-deftype (name expander &optional doc) (ecase (info :type :kind name) (:primitive diff --git a/src/compiler/compiler-error.lisp b/src/compiler/compiler-error.lisp index 23eef45..2e770ec 100644 --- a/src/compiler/compiler-error.lisp +++ b/src/compiler/compiler-error.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; a function that is called to unwind out of COMPILER-ERROR (declaim (type (function () nil) *compiler-error-bailout*)) (defvar *compiler-error-bailout* diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp index 47a96c1..e8369ee 100644 --- a/src/compiler/constraint.lisp +++ b/src/compiler/constraint.lisp @@ -13,9 +13,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - (defstruct (constraint (:include sset-element) (:constructor make-constraint (number kind x y not-p))) diff --git a/src/compiler/control.lisp b/src/compiler/control.lisp index e2949d2..91ff7db 100644 --- a/src/compiler/control.lisp +++ b/src/compiler/control.lisp @@ -18,9 +18,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Insert Block in the emission order after the block After. (defun add-to-emit-order (block after) (declare (type block-annotation block after)) diff --git a/src/compiler/copyprop.lisp b/src/compiler/copyprop.lisp index a04f306..d5df77f 100644 --- a/src/compiler/copyprop.lisp +++ b/src/compiler/copyprop.lisp @@ -13,9 +13,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; In copy propagation, we manipulate sets of TNs. We only consider TNs whose ;;; sole write is by a MOVE VOP. This allows us to use a degenerate version of ;;; reaching definitions: since each such TN has only one definition, the TN diff --git a/src/compiler/ctype.lisp b/src/compiler/ctype.lisp index 1ab25ed..b9bd2c4 100644 --- a/src/compiler/ctype.lisp +++ b/src/compiler/ctype.lisp @@ -13,9 +13,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; These are the functions that are to be called when a problem is ;;; detected. They are passed format arguments. If null, we don't do ;;; anything. The error function is called when something is diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp index 07075b5..07cf51d 100644 --- a/src/compiler/debug-dump.lisp +++ b/src/compiler/debug-dump.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - (deftype byte-buffer () '(vector (unsigned-byte 8))) (defvar *byte-buffer*) (declaim (type byte-buffer *byte-buffer*)) diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp index 6e20896..ae00cdb 100644 --- a/src/compiler/debug.lisp +++ b/src/compiler/debug.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - (defvar *args* () #!+sb-doc "This variable is bound to the format arguments when an error is signalled diff --git a/src/compiler/deftype.lisp b/src/compiler/deftype.lisp index fe56d65..3057faa 100644 --- a/src/compiler/deftype.lisp +++ b/src/compiler/deftype.lisp @@ -9,9 +9,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (def!macro sb!xc:deftype (name arglist &body body) #!+sb-doc "Define a new type, with syntax like DEFMACRO." diff --git a/src/compiler/dfo.lisp b/src/compiler/dfo.lisp index 23a9ca1..85507eb 100644 --- a/src/compiler/dfo.lisp +++ b/src/compiler/dfo.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Find the DFO for a component, deleting any unreached blocks and ;;; merging any other components we reach. We repeatedly iterate over ;;; the entry points, since new ones may show up during the walk. diff --git a/src/compiler/disassem.lisp b/src/compiler/disassem.lisp index 8cfaea5..3ff06aa 100644 --- a/src/compiler/disassem.lisp +++ b/src/compiler/disassem.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!DISASSEM") - -(file-comment - "$Header$") ;;; types and defaults diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp index 909412b..12381ca 100644 --- a/src/compiler/dump.lisp +++ b/src/compiler/dump.lisp @@ -11,9 +11,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; FIXME: Double colons are bad, and there are lots of them in this ;;; file, because both dump logic in SB!C and load logic in SB!IMPL ;;; need to know about fops. Perhaps all the load/dump logic should be diff --git a/src/compiler/dyncount.lisp b/src/compiler/dyncount.lisp index 4b6baf6..59f532e 100644 --- a/src/compiler/dyncount.lisp +++ b/src/compiler/dyncount.lisp @@ -11,9 +11,6 @@ (in-package "SB!DYNCOUNT") -(file-comment - "$Header$") - (defvar *collect-dynamic-statistics* nil #!+sb-doc "When T, emit extra code to collect dynamic statistics about vop usages.") diff --git a/src/compiler/early-assem.lisp b/src/compiler/early-assem.lisp index 62f3561..0162a0c 100644 --- a/src/compiler/early-assem.lisp +++ b/src/compiler/early-assem.lisp @@ -11,9 +11,6 @@ (in-package "SB!ASSEM") -(sb!int:file-comment - "$Header$") - ;;; FIXME: It might make sense to use SB!VM:BYTE-FOO values here ;;; instead of the various ASSEMBLY-UNIT-FOO things, and then define a ;;; BYTE type. One problem: BYTE is exported from the CL package, so diff --git a/src/compiler/early-c.lisp b/src/compiler/early-c.lisp index 6e46173..b8732f8 100644 --- a/src/compiler/early-c.lisp +++ b/src/compiler/early-c.lisp @@ -15,9 +15,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; FIXME: shouldn't SB-C::&MORE be in this list? (defconstant sb!xc:lambda-list-keywords '(&optional &rest &key &aux &body &whole &allow-other-keys &environment) diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp index 8df8b32..fdbd985 100644 --- a/src/compiler/entry.lisp +++ b/src/compiler/entry.lisp @@ -13,9 +13,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; This phase runs before IR2 conversion, initializing each XEP's ;;; Entry-Info structure. We call the VM-supplied ;;; Select-Component-Format function to make VM-dependent diff --git a/src/compiler/envanal.lisp b/src/compiler/envanal.lisp index efd4192..80cc63c 100644 --- a/src/compiler/envanal.lisp +++ b/src/compiler/envanal.lisp @@ -15,9 +15,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Do environment analysis on the code in Component. This involves ;;; various things: ;;; 1. Make an Environment structure for each non-let lambda, assigning diff --git a/src/compiler/eval-comp.lisp b/src/compiler/eval-comp.lisp index e686677..7e11182 100644 --- a/src/compiler/eval-comp.lisp +++ b/src/compiler/eval-comp.lisp @@ -13,9 +13,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; FIXME: Doesn't this belong somewhere else, like early-c.lisp? (declaim (special *constants* *free-variables* *component-being-compiled* *code-vector* *next-location* *result-fixups* diff --git a/src/compiler/eval.lisp b/src/compiler/eval.lisp index 9bab679..52cd591 100644 --- a/src/compiler/eval.lisp +++ b/src/compiler/eval.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!EVAL") - -(file-comment - "$Header$") ;;;; interpreter stack diff --git a/src/compiler/fixup.lisp b/src/compiler/fixup.lisp index d789bbf..a92188e 100644 --- a/src/compiler/fixup.lisp +++ b/src/compiler/fixup.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; FIXUP -- A fixup of some kind. (defstruct (fixup (:constructor make-fixup (name flavor &optional offset))) diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp index 69faaae..282923c 100644 --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -12,9 +12,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; coercions diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp index 9cb9f3b..c3251fd 100644 --- a/src/compiler/fndb.lisp +++ b/src/compiler/fndb.lisp @@ -12,9 +12,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; information for known functions: diff --git a/src/compiler/generic/core.lisp b/src/compiler/generic/core.lisp index 602dfc7..db0196b 100644 --- a/src/compiler/generic/core.lisp +++ b/src/compiler/generic/core.lisp @@ -11,9 +11,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; A CORE-OBJECT structure holds the state needed to resolve cross-component ;;; references during in-core compilation. (defstruct (core-object diff --git a/src/compiler/generic/early-objdef.lisp b/src/compiler/generic/early-objdef.lisp index 04eeb53..bc31436 100644 --- a/src/compiler/generic/early-objdef.lisp +++ b/src/compiler/generic/early-objdef.lisp @@ -11,9 +11,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - ;;; FIXME: It's clever using :SUFFIX -TYPE for these things, but it's ;;; a pain for people just learning to find their way around the code ;;; who want to figure out where things like EVEN-FIXNUM type are diff --git a/src/compiler/generic/early-vm-macs.lisp b/src/compiler/generic/early-vm-macs.lisp index 021d741..bf667b0 100644 --- a/src/compiler/generic/early-vm-macs.lisp +++ b/src/compiler/generic/early-vm-macs.lisp @@ -9,9 +9,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - (defmacro defenum ((&key (prefix "") (suffix "") (start 0) (step 1)) &rest identifiers) (let ((results nil) diff --git a/src/compiler/generic/early-vm.lisp b/src/compiler/generic/early-vm.lisp index 9654ac4..10636b6 100644 --- a/src/compiler/generic/early-vm.lisp +++ b/src/compiler/generic/early-vm.lisp @@ -9,9 +9,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - (eval-when (:compile-toplevel :execute :load-toplevel) (defconstant lowtag-bits 3 diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp index 4ad3aed..89c51d8 100644 --- a/src/compiler/generic/genesis.lisp +++ b/src/compiler/generic/genesis.lisp @@ -25,9 +25,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - ;;; a magic number used to identify our core files (defconstant core-magic (logior (ash (char-code #\S) 24) diff --git a/src/compiler/generic/interr.lisp b/src/compiler/generic/interr.lisp index 6b36a7b..0ce2339 100644 --- a/src/compiler/generic/interr.lisp +++ b/src/compiler/generic/interr.lisp @@ -13,9 +13,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (defun error-number-or-lose (name) (or (position name sb!c:*backend-internal-errors* :key #'car) (error "unknown internal error: ~S" name))) diff --git a/src/compiler/generic/objdef.lisp b/src/compiler/generic/objdef.lisp index a8064ad..2bd2a49 100644 --- a/src/compiler/generic/objdef.lisp +++ b/src/compiler/generic/objdef.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; the primitive objects themselves diff --git a/src/compiler/generic/primtype.lisp b/src/compiler/generic/primtype.lisp index 4c2a7d5..5ec9ad5 100644 --- a/src/compiler/generic/primtype.lisp +++ b/src/compiler/generic/primtype.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; primitive type definitions diff --git a/src/compiler/generic/target-core.lisp b/src/compiler/generic/target-core.lisp index 8e60139..6a22302 100644 --- a/src/compiler/generic/target-core.lisp +++ b/src/compiler/generic/target-core.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Make a function entry, filling in slots from the ENTRY-INFO. (defun make-function-entry (entry code-obj object) (declare (type entry-info entry) (type core-object object)) diff --git a/src/compiler/generic/utils.lisp b/src/compiler/generic/utils.lisp index 065b672..5df590b 100644 --- a/src/compiler/generic/utils.lisp +++ b/src/compiler/generic/utils.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") (defun fixnumize (num) #!+sb-doc diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp index 2179a90..8ed1ba1 100644 --- a/src/compiler/generic/vm-fndb.lisp +++ b/src/compiler/generic/vm-fndb.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; internal type predicates diff --git a/src/compiler/generic/vm-ir2tran.lisp b/src/compiler/generic/vm-ir2tran.lisp index 34827bc..247e09b 100644 --- a/src/compiler/generic/vm-ir2tran.lisp +++ b/src/compiler/generic/vm-ir2tran.lisp @@ -9,9 +9,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - (defoptimizer ir2-convert-reffer ((object) node block name offset lowtag) (let* ((cont (node-cont node)) (locs (continuation-result-tns cont diff --git a/src/compiler/generic/vm-macs.lisp b/src/compiler/generic/vm-macs.lisp index 86d3bcb..0d50cf4 100644 --- a/src/compiler/generic/vm-macs.lisp +++ b/src/compiler/generic/vm-macs.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; other miscellaneous stuff diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp index a191047..6d90e85 100644 --- a/src/compiler/generic/vm-tran.lisp +++ b/src/compiler/generic/vm-tran.lisp @@ -11,9 +11,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; FIXME: It would be good to implement SB!XC:DEFCONSTANT, and use ;;; use that here, so that the compiler is born knowing this value. ;;; FIXME: Add a comment telling whether this holds for all vectors diff --git a/src/compiler/generic/vm-type.lisp b/src/compiler/generic/vm-type.lisp index 2fac91b..2db6b49 100644 --- a/src/compiler/generic/vm-type.lisp +++ b/src/compiler/generic/vm-type.lisp @@ -14,9 +14,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) ;;;; FIXME: I'm not sure where to put this. -- WHN 19990817 diff --git a/src/compiler/generic/vm-typetran.lisp b/src/compiler/generic/vm-typetran.lisp index ce98e1c..1f75a0e 100644 --- a/src/compiler/generic/vm-typetran.lisp +++ b/src/compiler/generic/vm-typetran.lisp @@ -12,9 +12,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; internal predicates diff --git a/src/compiler/globaldb.lisp b/src/compiler/globaldb.lisp index 9245d14..b27deb3 100644 --- a/src/compiler/globaldb.lisp +++ b/src/compiler/globaldb.lisp @@ -24,9 +24,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) #!+sb-show (!cold-init-forms (/show0 "early in globaldb.lisp cold init")) diff --git a/src/compiler/gtn.lisp b/src/compiler/gtn.lisp index 9fd87e67..ac9fc62 100644 --- a/src/compiler/gtn.lisp +++ b/src/compiler/gtn.lisp @@ -14,9 +14,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; We make a pass over the component's environments, assigning argument ;;; passing locations and return conventions and TNs for local variables. (defun gtn-analyze (component) diff --git a/src/compiler/info-functions.lisp b/src/compiler/info-functions.lisp index df45fa3..2a64481 100644 --- a/src/compiler/info-functions.lisp +++ b/src/compiler/info-functions.lisp @@ -16,9 +16,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;; Check the legality of a function name that is being introduced. ;;; -- If it names a macro, then give a warning and blast the macro diff --git a/src/compiler/ir1final.lisp b/src/compiler/ir1final.lisp index b621fc0..3d20068 100644 --- a/src/compiler/ir1final.lisp +++ b/src/compiler/ir1final.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Give the user grief about optimizations that we weren't able to do. It ;;; is assumed that they want to hear, or there wouldn't be any entries in the ;;; table. If the node has been deleted or is no longer a known call, then do diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp index d588f17..9fea38c 100644 --- a/src/compiler/ir1opt.lisp +++ b/src/compiler/ir1opt.lisp @@ -15,9 +15,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; interface for obtaining results of constant folding diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp index 89c17f6..b285870 100644 --- a/src/compiler/ir1tran.lisp +++ b/src/compiler/ir1tran.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - (declaim (special *compiler-error-bailout*)) ;;; *SOURCE-PATHS* is a hashtable from source code forms to the path diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp index 68deb1b..5c292b2 100644 --- a/src/compiler/ir1util.lisp +++ b/src/compiler/ir1util.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; cleanup hackery diff --git a/src/compiler/ir2tran.lisp b/src/compiler/ir2tran.lisp index 07948b7..2250191 100644 --- a/src/compiler/ir2tran.lisp +++ b/src/compiler/ir2tran.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; moves and type checks diff --git a/src/compiler/knownfun.lisp b/src/compiler/knownfun.lisp index 3d2ee4f..d4929cc 100644 --- a/src/compiler/knownfun.lisp +++ b/src/compiler/knownfun.lisp @@ -14,9 +14,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; IR1 boolean function attributes ;;; ;;; There are a number of boolean attributes of known functions which we like diff --git a/src/compiler/late-macros.lisp b/src/compiler/late-macros.lisp index 8a13520..9d617f2 100644 --- a/src/compiler/late-macros.lisp +++ b/src/compiler/late-macros.lisp @@ -17,9 +17,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - #+sb-xc-host (sb!xc:defmacro def-boolean-attribute (name &rest attribute-names) #!+sb-doc diff --git a/src/compiler/late-vmdef.lisp b/src/compiler/late-vmdef.lisp index 145ef05..6cf9fd2 100644 --- a/src/compiler/late-vmdef.lisp +++ b/src/compiler/late-vmdef.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - (defun note-this-location (vop kind) #!+sb-doc "NOTE-THIS-LOCATION VOP Kind diff --git a/src/compiler/lexenv.lisp b/src/compiler/lexenv.lisp index 580a646..3c7dfe0 100644 --- a/src/compiler/lexenv.lisp +++ b/src/compiler/lexenv.lisp @@ -11,9 +11,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - #!-sb-fluid (declaim (inline internal-make-lexenv)) ; only called in one place ;;; The LEXENV represents the lexical environment used for IR1 conversion. diff --git a/src/compiler/life.lisp b/src/compiler/life.lisp index 578894c..1034aca 100644 --- a/src/compiler/life.lisp +++ b/src/compiler/life.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; utilities diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp index f474bc1..f98eb7b 100644 --- a/src/compiler/locall.lisp +++ b/src/compiler/locall.lisp @@ -21,9 +21,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; This function propagates information from the variables in the function ;;; Fun to the actual arguments in Call. This is also called by the VALUES IR1 ;;; optimizer when it sleazily converts MV-BINDs to LETs. diff --git a/src/compiler/ltn.lisp b/src/compiler/ltn.lisp index cbdbc6d..7a33cc8 100644 --- a/src/compiler/ltn.lisp +++ b/src/compiler/ltn.lisp @@ -12,9 +12,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; utilities diff --git a/src/compiler/ltv.lisp b/src/compiler/ltv.lisp index af6922d..6d8e83a 100644 --- a/src/compiler/ltv.lisp +++ b/src/compiler/ltv.lisp @@ -11,9 +11,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - (defknown %load-time-value (t) t (flushable movable)) (def-ir1-translator load-time-value ((form &optional read-only-p) start cont) diff --git a/src/compiler/macros.lisp b/src/compiler/macros.lisp index 061658d..72f9278 100644 --- a/src/compiler/macros.lisp +++ b/src/compiler/macros.lisp @@ -11,9 +11,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - (declaim (special *wild-type* *universal-type* *compiler-error-context*)) ;;; An INLINEP value describes how a function is called. The values have these diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp index 25b1962..a3bfd5c 100644 --- a/src/compiler/main.lisp +++ b/src/compiler/main.lisp @@ -11,9 +11,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; FIXME: Doesn't this belong somewhere else, like early-c.lisp? (declaim (special *constants* *free-variables* *component-being-compiled* *code-vector* *next-location* *result-fixups* diff --git a/src/compiler/meta-vmdef.lisp b/src/compiler/meta-vmdef.lisp index 70c0742..bea61a6 100644 --- a/src/compiler/meta-vmdef.lisp +++ b/src/compiler/meta-vmdef.lisp @@ -17,9 +17,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; storage class and storage base definition diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp index f4a0f68..a96deb2 100644 --- a/src/compiler/node.lisp +++ b/src/compiler/node.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; The front-end data structure (IR1) is composed of nodes and ;;; continuations. The general idea is that continuations contain ;;; top-down information and nodes contain bottom-up, derived diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp index 5b90f5a..ef8b22f 100644 --- a/src/compiler/pack.lisp +++ b/src/compiler/pack.lisp @@ -13,14 +13,12 @@ (in-package "SB!C") -(file-comment - "$Header$") - -;;; for debugging: Some parameters controlling which optimizations we attempt. +;;; for debugging: some parameters controlling which optimizations we +;;; attempt (defvar *pack-assign-costs* t) (defvar *pack-optimize-saves* t) -;;; FIXME: Perhaps SB-FLUID should be renamed to SB-TWEAK and these should be -;;; made conditional on SB-TWEAK. +;;; FIXME: Perhaps SB-FLUID should be renamed to SB-TWEAK and these +;;; should be made conditional on SB-TWEAK. (declaim (ftype (function (component) index) ir2-block-count)) diff --git a/src/compiler/parse-lambda-list.lisp b/src/compiler/parse-lambda-list.lisp index 644296a..3a3a1f3 100644 --- a/src/compiler/parse-lambda-list.lisp +++ b/src/compiler/parse-lambda-list.lisp @@ -9,9 +9,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Break a lambda-list into its component parts. We return eleven ;;; values: ;;; 1. A list of the required args. diff --git a/src/compiler/proclaim.lisp b/src/compiler/proclaim.lisp index c1dbf10..0669cab 100644 --- a/src/compiler/proclaim.lisp +++ b/src/compiler/proclaim.lisp @@ -14,9 +14,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; !COLD-INIT calls this twice to initialize the cookies, once before ;;; any toplevel forms are executed, then again to undo any lingering ;;; effects of toplevel DECLAIMs. diff --git a/src/compiler/pseudo-vops.lisp b/src/compiler/pseudo-vops.lisp index 4b553e3..b3ccace 100644 --- a/src/compiler/pseudo-vops.lisp +++ b/src/compiler/pseudo-vops.lisp @@ -13,9 +13,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; This notes the place at which the environment is properly ;;; initialized, for debug-info purposes. (define-vop (note-environment-start) diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp index 2304477..823d7c2 100644 --- a/src/compiler/represent.lisp +++ b/src/compiler/represent.lisp @@ -14,9 +14,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; error routines ;;;; diff --git a/src/compiler/saptran.lisp b/src/compiler/saptran.lisp index 4719183..fcc376b 100644 --- a/src/compiler/saptran.lisp +++ b/src/compiler/saptran.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; DEFKNOWNs diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp index f00d8c3..83c5e4e 100644 --- a/src/compiler/seqtran.lisp +++ b/src/compiler/seqtran.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; mapping onto lists: the MAPFOO functions diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp index 1b3eee6..6a18bcf 100644 --- a/src/compiler/srctran.lisp +++ b/src/compiler/srctran.lisp @@ -13,9 +13,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Convert into an IF so that IF optimizations will eliminate redundant ;;; negations. (def-source-transform not (x) `(if ,x nil t)) diff --git a/src/compiler/sset.lisp b/src/compiler/sset.lisp index d3a2739..6beb85f 100644 --- a/src/compiler/sset.lisp +++ b/src/compiler/sset.lisp @@ -15,9 +15,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Each structure that may be placed in a SSet must include the ;;; SSet-Element structure. We allow an initial value of NIL to mean ;;; that no ordering has been assigned yet (although an ordering must diff --git a/src/compiler/stack.lisp b/src/compiler/stack.lisp index a93e433..b8246a0 100644 --- a/src/compiler/stack.lisp +++ b/src/compiler/stack.lisp @@ -13,9 +13,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;; Scan through Block looking for uses of :Unknown continuations that have ;;; their Dest outside of the block. We do some checking to verify the diff --git a/src/compiler/target-byte-comp.lisp b/src/compiler/target-byte-comp.lisp index 7ef94e8..93a31db 100644 --- a/src/compiler/target-byte-comp.lisp +++ b/src/compiler/target-byte-comp.lisp @@ -13,9 +13,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Generate trace-file output for the byte compiler back-end. ;;; ;;; (Note: As of sbcl-0.6.7, this is target-only code not because it's diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp index 8321b37..c0a9e2b 100644 --- a/src/compiler/target-disassem.lisp +++ b/src/compiler/target-disassem.lisp @@ -11,9 +11,6 @@ (in-package "SB!DISASSEM") -(file-comment - "$Header$") - ;;;; FIXME: A lot of stupid package prefixes would go away if DISASSEM ;;;; would use the SB!DI package. And some more would go away if it would ;;;; use SB!SYS (in order to get to the SAP-FOO operators). diff --git a/src/compiler/target-dump.lisp b/src/compiler/target-dump.lisp index 913822e..5f61b34 100644 --- a/src/compiler/target-dump.lisp +++ b/src/compiler/target-dump.lisp @@ -13,9 +13,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Dump the first N bytes of VEC out to FILE. VEC is some sort of unboxed ;;; vector-like thing that we can BLT from. (defun dump-raw-bytes (vec n fasl-file) diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp index 950ccf6..8159755 100644 --- a/src/compiler/target-main.lisp +++ b/src/compiler/target-main.lisp @@ -12,9 +12,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; COMPILE and UNCOMPILE diff --git a/src/compiler/tn.lisp b/src/compiler/tn.lisp index ee80ba8..c344725 100644 --- a/src/compiler/tn.lisp +++ b/src/compiler/tn.lisp @@ -12,9 +12,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; The component that is currently being compiled. TNs are allocated ;;; in this component. (defvar *component-being-compiled*) diff --git a/src/compiler/trace-table.lisp b/src/compiler/trace-table.lisp index 80c217c..1f93fb4 100644 --- a/src/compiler/trace-table.lisp +++ b/src/compiler/trace-table.lisp @@ -11,9 +11,6 @@ (in-package "SB!C") -(file-comment - "$Header$") - (defun trace-table-entry (state) (let ((label (gen-label))) (emit-label label) diff --git a/src/compiler/typetran.lisp b/src/compiler/typetran.lisp index cb45cf7..b0160e4 100644 --- a/src/compiler/typetran.lisp +++ b/src/compiler/typetran.lisp @@ -13,9 +13,6 @@ ;;;; files for more information. (in-package "SB!C") - -(file-comment - "$Header$") ;;;; type predicate translation ;;;; diff --git a/src/compiler/vmdef.lisp b/src/compiler/vmdef.lisp index 3e50b39..1747e09 100644 --- a/src/compiler/vmdef.lisp +++ b/src/compiler/vmdef.lisp @@ -12,17 +12,14 @@ (in-package "SB!C") -(file-comment - "$Header$") - ;;; Return the template having the specified name, or die trying. (defun template-or-lose (x) (the template (or (gethash x *backend-template-names*) (error "~S is not a defined template." x)))) -;;; Return the SC structure, SB structure or SC number corresponding to a -;;; name, or die trying. +;;; Return the SC structure, SB structure or SC number corresponding +;;; to a name, or die trying. (defun sc-or-lose (x) (the sc (or (gethash x *backend-sc-names*) diff --git a/src/compiler/vop.lisp b/src/compiler/vop.lisp index ce1c390..71f8948 100644 --- a/src/compiler/vop.lisp +++ b/src/compiler/vop.lisp @@ -12,12 +12,9 @@ (in-package "SB!C") -(file-comment - "$Header$") - (eval-when (:compile-toplevel :load-toplevel :execute) - ;; the largest number of TNs whose liveness changes that we can have in any - ;; block + ;; the largest number of TNs whose liveness changes that we can have + ;; in any block (defconstant local-tn-limit 64)) (deftype local-tn-number () `(integer 0 (,local-tn-limit))) diff --git a/src/compiler/x86/alloc.lisp b/src/compiler/x86/alloc.lisp index c233755..9e74f3b 100644 --- a/src/compiler/x86/alloc.lisp +++ b/src/compiler/x86/alloc.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; LIST and LIST* diff --git a/src/compiler/x86/arith.lisp b/src/compiler/x86/arith.lisp index 6281b39..9540892 100644 --- a/src/compiler/x86/arith.lisp +++ b/src/compiler/x86/arith.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; unary operations diff --git a/src/compiler/x86/array.lisp b/src/compiler/x86/array.lisp index 3afdbc1..a9b7b79 100644 --- a/src/compiler/x86/array.lisp +++ b/src/compiler/x86/array.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; allocator for the array header diff --git a/src/compiler/x86/backend-parms.lisp b/src/compiler/x86/backend-parms.lisp index 62c17ec..788370a 100644 --- a/src/compiler/x86/backend-parms.lisp +++ b/src/compiler/x86/backend-parms.lisp @@ -14,9 +14,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; compiler constants diff --git a/src/compiler/x86/c-call.lisp b/src/compiler/x86/c-call.lisp index b9c2240..a30c30c 100644 --- a/src/compiler/x86/c-call.lisp +++ b/src/compiler/x86/c-call.lisp @@ -12,9 +12,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - ;; The move-argument vop is going to store args on the stack for ;; call-out. These tn's will be used for that. move-arg is normally ;; used for things going down the stack but C wants to have args diff --git a/src/compiler/x86/call.lisp b/src/compiler/x86/call.lisp index a0fb814..53ca4cb 100644 --- a/src/compiler/x86/call.lisp +++ b/src/compiler/x86/call.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; interfaces to IR2 conversion diff --git a/src/compiler/x86/cell.lisp b/src/compiler/x86/cell.lisp index 8c97721..96bd5b4 100644 --- a/src/compiler/x86/cell.lisp +++ b/src/compiler/x86/cell.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; data object ref/set stuff diff --git a/src/compiler/x86/char.lisp b/src/compiler/x86/char.lisp index 7d9f8aa..c6e58b5 100644 --- a/src/compiler/x86/char.lisp +++ b/src/compiler/x86/char.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; moves and coercions diff --git a/src/compiler/x86/debug.lisp b/src/compiler/x86/debug.lisp index 091a61c..998b06e 100644 --- a/src/compiler/x86/debug.lisp +++ b/src/compiler/x86/debug.lisp @@ -11,9 +11,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - (define-vop (debug-cur-sp) (:translate current-sp) (:policy :fast-safe) diff --git a/src/compiler/x86/float.lisp b/src/compiler/x86/float.lisp index 89e5d71..c0d2055 100644 --- a/src/compiler/x86/float.lisp +++ b/src/compiler/x86/float.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") (macrolet ((ea-for-xf-desc (tn slot) `(make-ea diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp index 243b56d..8981bc4 100644 --- a/src/compiler/x86/insts.lisp +++ b/src/compiler/x86/insts.lisp @@ -15,9 +15,6 @@ ;;; I wonder whether the separation of the disassembler from the ;;; virtual machine is valid or adds value. -(file-comment - "$Header$") - ;;; FIXME: In CMU CL, the code in this file seems to be fully ;;; compiled, not byte compiled. I'm not sure that's reasonable: ;;; there's a lot of code in this file, and considering the overall diff --git a/src/compiler/x86/macros.lisp b/src/compiler/x86/macros.lisp index ca830c3..633c4b3 100644 --- a/src/compiler/x86/macros.lisp +++ b/src/compiler/x86/macros.lisp @@ -11,9 +11,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - ;;; We can load/store into fp registers through the top of ;;; stack %st(0) (fr0 here). Loads imply a push to an empty register ;;; which then changes all the reg numbers. These macros help manage that. diff --git a/src/compiler/x86/memory.lisp b/src/compiler/x86/memory.lisp index 8c34a65..1faedde 100644 --- a/src/compiler/x86/memory.lisp +++ b/src/compiler/x86/memory.lisp @@ -12,14 +12,11 @@ (in-package "SB!VM") -(file-comment - "$Header$") - -;;; Cell-Ref and Cell-Set are used to define VOPs like CAR, where the +;;; CELL-REF and CELL-SET are used to define VOPs like CAR, where the ;;; offset to be read or written is a property of the VOP used. -;;; Cell-Setf is similar to Cell-Set, but delivers the new value as -;;; the result. Cell-Setf-Function takes its arguments as if it were a -;;; setf function (new value first, as apposed to a setf macro, which +;;; CELL-SETF is similar to CELL-SET, but delivers the new value as +;;; the result. CELL-SETF-FUNCTION takes its arguments as if it were a +;;; SETF function (new value first, as apposed to a SETF macro, which ;;; takes the new value last). (define-vop (cell-ref) (:args (object :scs (descriptor-reg))) @@ -54,9 +51,9 @@ (storew value object offset lowtag) (move result value))) -;;; Define accessor VOPs for some cells in an object. If the operation name -;;; is NIL, then that operation isn't defined. If the translate function is -;;; null, then we don't define a translation. +;;; Define accessor VOPs for some cells in an object. If the operation +;;; name is NIL, then that operation isn't defined. If the translate +;;; function is null, then we don't define a translation. (defmacro define-cell-accessors (offset lowtag ref-op ref-trans set-op set-trans) `(progn @@ -85,8 +82,9 @@ :disp (- (* offset word-bytes) lowtag)) value))) -;;; Slot-Ref and Slot-Set are used to define VOPs like Closure-Ref, where the -;;; offset is constant at compile time, but varies for different uses. +;;; SLOT-REF and SLOT-SET are used to define VOPs like CLOSURE-REF, +;;; where the offset is constant at compile time, but varies for +;;; different uses. (define-vop (slot-ref) (:args (object :scs (descriptor-reg))) (:results (value :scs (descriptor-reg any-reg))) diff --git a/src/compiler/x86/move.lisp b/src/compiler/x86/move.lisp index 505314f..a8f47e1 100644 --- a/src/compiler/x86/move.lisp +++ b/src/compiler/x86/move.lisp @@ -11,9 +11,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - (define-move-function (load-immediate 1) (vop x y) ((immediate) (any-reg descriptor-reg)) diff --git a/src/compiler/x86/nlx.lisp b/src/compiler/x86/nlx.lisp index 3ce63fe..e7eea3a 100644 --- a/src/compiler/x86/nlx.lisp +++ b/src/compiler/x86/nlx.lisp @@ -11,9 +11,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - ;;; Make an environment-live stack TN for saving the SP for NLX entry. (def-vm-support-routine make-nlx-sp-tn (env) (environment-live-tn diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp index d4cda72..8ad1f04 100644 --- a/src/compiler/x86/parms.lisp +++ b/src/compiler/x86/parms.lisp @@ -13,9 +13,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - ;;; ### Note: we simultaneously use ``word'' to mean a 32 bit quantity ;;; and a 16 bit quantity depending on context. This is because Intel ;;; insists on calling 16 bit things words and 32 bit things diff --git a/src/compiler/x86/pred.lisp b/src/compiler/x86/pred.lisp index 8a43d15..fcfe65f 100644 --- a/src/compiler/x86/pred.lisp +++ b/src/compiler/x86/pred.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; the branch VOP diff --git a/src/compiler/x86/sap.lisp b/src/compiler/x86/sap.lisp index daf9be8..052b427 100644 --- a/src/compiler/x86/sap.lisp +++ b/src/compiler/x86/sap.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; moves and coercions diff --git a/src/compiler/x86/show.lisp b/src/compiler/x86/show.lisp index 2cd27b1..c2076b2 100644 --- a/src/compiler/x86/show.lisp +++ b/src/compiler/x86/show.lisp @@ -12,9 +12,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - ;;; FIXME: should probably become conditional on #!+SB-SHOW ;;; FIXME: should be called DEBUG-PRINT or COLD-PRINT (define-vop (print) diff --git a/src/compiler/x86/static-fn.lisp b/src/compiler/x86/static-fn.lisp index 5874224..ac76ea7 100644 --- a/src/compiler/x86/static-fn.lisp +++ b/src/compiler/x86/static-fn.lisp @@ -11,9 +11,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - (define-vop (static-function-template) (:save-p t) (:policy :safe) diff --git a/src/compiler/x86/subprim.lisp b/src/compiler/x86/subprim.lisp index 41c4887..da3d809 100644 --- a/src/compiler/x86/subprim.lisp +++ b/src/compiler/x86/subprim.lisp @@ -11,9 +11,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; LENGTH diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp index 1865764..edb3f8c 100644 --- a/src/compiler/x86/system.lisp +++ b/src/compiler/x86/system.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; type frobbing VOPs diff --git a/src/compiler/x86/target-insts.lisp b/src/compiler/x86/target-insts.lisp index 1b25231..01ffe7c 100644 --- a/src/compiler/x86/target-insts.lisp +++ b/src/compiler/x86/target-insts.lisp @@ -11,9 +11,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - (defun print-mem-access (value stream print-size-p dstate) (declare (type list value) (type stream stream) diff --git a/src/compiler/x86/type-vops.lisp b/src/compiler/x86/type-vops.lisp index 273ef27..77eb831 100644 --- a/src/compiler/x86/type-vops.lisp +++ b/src/compiler/x86/type-vops.lisp @@ -10,9 +10,6 @@ ;;;; files for more information. (in-package "SB!VM") - -(file-comment - "$Header$") ;;;; test generation utilities diff --git a/src/compiler/x86/values.lisp b/src/compiler/x86/values.lisp index c73f597..6c68c32 100644 --- a/src/compiler/x86/values.lisp +++ b/src/compiler/x86/values.lisp @@ -11,9 +11,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - (define-vop (reset-stack-pointer) (:args (ptr :scs (any-reg))) (:generator 1 diff --git a/src/compiler/x86/vm.lisp b/src/compiler/x86/vm.lisp index 8d23eed..001f5e5 100644 --- a/src/compiler/x86/vm.lisp +++ b/src/compiler/x86/vm.lisp @@ -11,9 +11,6 @@ (in-package "SB!VM") -(file-comment - "$Header$") - ;;; the size of an INTEGER representation of a SYSTEM-AREA-POINTER, i.e. ;;; size of a native memory address (deftype sap-int-type () '(unsigned-byte 32)) diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp index 62c1f65..90da787 100644 --- a/src/pcl/boot.lisp +++ b/src/pcl/boot.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") #| diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp index cd3447d..bc7efc0 100644 --- a/src/pcl/braid.lisp +++ b/src/pcl/braid.lisp @@ -30,9 +30,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (defun allocate-standard-instance (wrapper &optional (slots-init nil slots-init-p)) diff --git a/src/pcl/cache.lisp b/src/pcl/cache.lisp index 80cd991..d37796a 100644 --- a/src/pcl/cache.lisp +++ b/src/pcl/cache.lisp @@ -24,9 +24,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;; FIXME: SB-PCL should probably USE-PACKAGE SB-KERNEL, since SB-PCL is built ;;; on SB-KERNEL, and in the absence of USE-PACKAGE, it ends up using a diff --git a/src/pcl/combin.lisp b/src/pcl/combin.lisp index e61f22f..d04a904 100644 --- a/src/pcl/combin.lisp +++ b/src/pcl/combin.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (defun get-method-function (method &optional method-alist wrappers) (let ((fn (cadr (assoc method method-alist)))) diff --git a/src/pcl/construct.lisp b/src/pcl/construct.lisp index ab66487..2675145 100644 --- a/src/pcl/construct.lisp +++ b/src/pcl/construct.lisp @@ -25,9 +25,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;; defconstructor is used to define special purpose functions which just ;;; call make-instance with a symbol as the first argument. The semantics diff --git a/src/pcl/cpl.lisp b/src/pcl/cpl.lisp index 75bec0d..162ba55 100644 --- a/src/pcl/cpl.lisp +++ b/src/pcl/cpl.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;; compute-class-precedence-list ;;; diff --git a/src/pcl/ctypes.lisp b/src/pcl/ctypes.lisp index b90b49e..0cc4e82 100644 --- a/src/pcl/ctypes.lisp +++ b/src/pcl/ctypes.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;; The built-in method combination types as taken from page 1-31 of 88-002R. ;;; Note that the STANDARD method combination type is defined by hand in the diff --git a/src/pcl/defclass.lisp b/src/pcl/defclass.lisp index edaa3e6..96aa2fa 100644 --- a/src/pcl/defclass.lisp +++ b/src/pcl/defclass.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;; MAKE-TOP-LEVEL-FORM is used by all PCL macros that appear `at top-level'. ;;; diff --git a/src/pcl/defcombin.lisp b/src/pcl/defcombin.lisp index 5dc9a33..342f98f 100644 --- a/src/pcl/defcombin.lisp +++ b/src/pcl/defcombin.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (defmacro define-method-combination (&whole form &rest args) (declare (ignore args)) diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp index 4434964..3789c6b 100644 --- a/src/pcl/defs.lisp +++ b/src/pcl/defs.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (eval-when (:compile-toplevel :load-toplevel :execute) diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp index df5f5b9..ee403fa 100644 --- a/src/pcl/describe.lisp +++ b/src/pcl/describe.lisp @@ -26,9 +26,6 @@ (in-package "SB-PCL") -(sb-int:file-comment - "$Header$") - (defmethod slots-to-inspect ((class slot-class) (object slot-object)) (class-slots class)) diff --git a/src/pcl/dfun.lisp b/src/pcl/dfun.lisp index f2142c8..0df70c6 100644 --- a/src/pcl/dfun.lisp +++ b/src/pcl/dfun.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") #| diff --git a/src/pcl/dlisp.lisp b/src/pcl/dlisp.lisp index 8e769f3..9281f59 100644 --- a/src/pcl/dlisp.lisp +++ b/src/pcl/dlisp.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;; This file is (almost) functionally equivalent to dlap.lisp, but easier to ;;; read. diff --git a/src/pcl/dlisp2.lisp b/src/pcl/dlisp2.lisp index 8c5e787..43f33ba 100644 --- a/src/pcl/dlisp2.lisp +++ b/src/pcl/dlisp2.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (defun emit-reader/writer-function (reader/writer 1-or-2-class class-slot-p) (values diff --git a/src/pcl/dlisp3.lisp b/src/pcl/dlisp3.lisp index 4ff4567..d5fa046 100644 --- a/src/pcl/dlisp3.lisp +++ b/src/pcl/dlisp3.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (eval-when (:compile-toplevel :load-toplevel :execute) (defparameter *checking-or-caching-list* diff --git a/src/pcl/documentation.lisp b/src/pcl/documentation.lisp index ca355aa..6d2c385 100644 --- a/src/pcl/documentation.lisp +++ b/src/pcl/documentation.lisp @@ -6,9 +6,6 @@ ;;;; This software is in the public domain and is provided with absolutely no ;;;; warranty. See the COPYING and CREDITS files for more information. -(sb-int:file-comment - "$Header$") - (in-package "SB-PCL") ;;; Note some cases are handled by the documentation methods in diff --git a/src/pcl/early-low.lisp b/src/pcl/early-low.lisp index 39d21d1..4c470cc 100644 --- a/src/pcl/early-low.lisp +++ b/src/pcl/early-low.lisp @@ -24,9 +24,6 @@ ;;;; warranty about the software, its performance or its conformity to any ;;;; specification. -(sb-int:file-comment - "$Header$") - (in-package "SB-PCL") ;;; FIXME: The PCL package is internal and is used by code in potential diff --git a/src/pcl/env.lisp b/src/pcl/env.lisp index b63eaaa..e8a0e06 100644 --- a/src/pcl/env.lisp +++ b/src/pcl/env.lisp @@ -24,9 +24,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;; FIXME: This stuff isn't part of the ANSI spec, and isn't even ;;; exported from PCL, but it looks as though it might be useful, diff --git a/src/pcl/fast-init.lisp b/src/pcl/fast-init.lisp index 37200f3..ac2f9d4 100644 --- a/src/pcl/fast-init.lisp +++ b/src/pcl/fast-init.lisp @@ -24,9 +24,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (defvar *compile-make-instance-functions-p* nil) diff --git a/src/pcl/fin.lisp b/src/pcl/fin.lisp index c3167cd..20a24e0 100644 --- a/src/pcl/fin.lisp +++ b/src/pcl/fin.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;; Each implementation must provide the following functions and macros: ;;; diff --git a/src/pcl/fixup.lisp b/src/pcl/fixup.lisp index b6f1897..26ec86f 100644 --- a/src/pcl/fixup.lisp +++ b/src/pcl/fixup.lisp @@ -23,9 +23,6 @@ (in-package "SB-PCL") -(sb-int:file-comment - "$Header$") - (fix-early-generic-functions) (setq *boot-state* 'complete) diff --git a/src/pcl/fngen.lisp b/src/pcl/fngen.lisp index 4bd35ca..cda7f43 100644 --- a/src/pcl/fngen.lisp +++ b/src/pcl/fngen.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;; GET-FUNCTION is the main user interface to this code. It is like ;;; COMPILE-LAMBDA, only more efficient. It achieves this efficiency by diff --git a/src/pcl/fsc.lisp b/src/pcl/fsc.lisp index bb4cd60..3fb228f 100644 --- a/src/pcl/fsc.lisp +++ b/src/pcl/fsc.lisp @@ -32,9 +32,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (defmethod wrapper-fetcher ((class funcallable-standard-class)) 'fsc-instance-wrapper) diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp index 44cae16..6033072 100644 --- a/src/pcl/generic-functions.lisp +++ b/src/pcl/generic-functions.lisp @@ -7,9 +7,6 @@ ;;;; warranty. See the COPYING and CREDITS files for more information. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;;; class predicates diff --git a/src/pcl/gray-streams-class.lisp b/src/pcl/gray-streams-class.lisp index 58301b5..5f9ebc7 100644 --- a/src/pcl/gray-streams-class.lisp +++ b/src/pcl/gray-streams-class.lisp @@ -9,9 +9,6 @@ ;;;; warranty. See the COPYING and CREDITS files for more information. (in-package "SB-GRAY") - -(sb-int:file-comment - "$Header$") ;;; Bootstrap the FUNDAMENTAL-STREAM class. (let ((sb-pcl::*pcl-class-boot* 'fundamental-stream)) diff --git a/src/pcl/gray-streams.lisp b/src/pcl/gray-streams.lisp index f279a72..e764068 100644 --- a/src/pcl/gray-streams.lisp +++ b/src/pcl/gray-streams.lisp @@ -9,9 +9,6 @@ ;;;; warranty. See the COPYING and CREDITS files for more information. (in-package "SB-GRAY") - -(sb-int:file-comment - "$Header$") (fmakunbound 'stream-element-type) diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp index 5c381fd..3144965 100644 --- a/src/pcl/init.lisp +++ b/src/pcl/init.lisp @@ -24,9 +24,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (defmethod make-instance ((class symbol) &rest initargs) (apply #'make-instance (find-class class) initargs)) diff --git a/src/pcl/iterate.lisp b/src/pcl/iterate.lisp index 59dbbc8..dc833b9 100644 --- a/src/pcl/iterate.lisp +++ b/src/pcl/iterate.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-ITERATE") - -(sb-int:file-comment - "$Header$") ;;; Are warnings to be issued for iterate/gather forms that aren't optimized? ;;; NIL => never diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp index eb04e62..36fcbbb 100644 --- a/src/pcl/low.lisp +++ b/src/pcl/low.lisp @@ -36,9 +36,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (eval-when (:compile-toplevel :load-toplevel :execute) (defvar *optimize-speed* '(optimize (speed 3) (safety 0))) diff --git a/src/pcl/macros.lisp b/src/pcl/macros.lisp index d77e02c..ceb778c 100644 --- a/src/pcl/macros.lisp +++ b/src/pcl/macros.lisp @@ -26,9 +26,6 @@ (in-package "SB-PCL") -(sb-int:file-comment - "$Header$") - (declaim (declaration ;; FIXME: Since none of these are supported in SBCL, the ;; declarations using them are just noise now that this is diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp index 19f377b..4fe14b3 100644 --- a/src/pcl/methods.lisp +++ b/src/pcl/methods.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (defmethod shared-initialize :after ((slotd standard-slot-definition) slot-names &key) diff --git a/src/pcl/precom1.lisp b/src/pcl/precom1.lisp index cdcca09..635cad1 100644 --- a/src/pcl/precom1.lisp +++ b/src/pcl/precom1.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;; Pre-allocate generic function caches. The hope is that this will put ;;; them nicely together in memory, and that that may be a win. Of course diff --git a/src/pcl/precom2.lisp b/src/pcl/precom2.lisp index 402a245..e2b28cb 100644 --- a/src/pcl/precom2.lisp +++ b/src/pcl/precom2.lisp @@ -23,7 +23,4 @@ (in-package "SB-PCL") -(sb-int:file-comment - "$Header$") - (precompile-random-code-segments pcl) diff --git a/src/pcl/print-object.lisp b/src/pcl/print-object.lisp index 941bd5e..5dd7162 100644 --- a/src/pcl/print-object.lisp +++ b/src/pcl/print-object.lisp @@ -25,9 +25,6 @@ ;;;; warranty about the software, its performance or its conformity to any ;;;; specification. -(sb-int:file-comment - "$Header$") - (in-package "SB-PCL") ;;;; the PRINT-OBJECT generic function diff --git a/src/pcl/slots-boot.lisp b/src/pcl/slots-boot.lisp index 3def80a..59463f7 100644 --- a/src/pcl/slots-boot.lisp +++ b/src/pcl/slots-boot.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (defmacro slot-symbol (slot-name type) `(if (and (symbolp ,slot-name) (symbol-package ,slot-name)) diff --git a/src/pcl/slots.lisp b/src/pcl/slots.lisp index 7dac386..40360b7 100644 --- a/src/pcl/slots.lisp +++ b/src/pcl/slots.lisp @@ -22,9 +22,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") ;;;; ANSI CL condition for unbound slots diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp index c11788f..d49be79 100644 --- a/src/pcl/std-class.lisp +++ b/src/pcl/std-class.lisp @@ -21,9 +21,6 @@ ;;;; warranty about the software, its performance or its conformity to any ;;;; specification. -(sb-int:file-comment - "$Header$") - (in-package "SB-PCL") (defmethod slot-accessor-function ((slotd effective-slot-definition) type) diff --git a/src/pcl/structure-class.lisp b/src/pcl/structure-class.lisp index 6f02db0..ea9fd06 100644 --- a/src/pcl/structure-class.lisp +++ b/src/pcl/structure-class.lisp @@ -21,9 +21,6 @@ ;;;; warranty about the software, its performance or its conformity to any ;;;; specification. -(sb-int:file-comment - "$Header$") - (in-package "SB-PCL") (defmethod initialize-internal-slot-functions :after diff --git a/src/pcl/time.lisp b/src/pcl/time.lisp index c0d676e..717fd33 100644 --- a/src/pcl/time.lisp +++ b/src/pcl/time.lisp @@ -3,9 +3,6 @@ (in-package "SB-PCL") -(sb-int:file-comment - "$Header$") - (declaim (optimize (speed 3) (safety 0) (compilation-speed 0))) (defvar *tests*) diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp index 7b3b4cf..b4180e2 100644 --- a/src/pcl/vector.lisp +++ b/src/pcl/vector.lisp @@ -24,9 +24,6 @@ ;;;; specification. (in-package "SB-PCL") - -(sb-int:file-comment - "$Header$") (defmacro instance-slot-index (wrapper slot-name) `(let ((pos 0)) diff --git a/src/pcl/walk.lisp b/src/pcl/walk.lisp index 5b4dc5a..13d4b69 100644 --- a/src/pcl/walk.lisp +++ b/src/pcl/walk.lisp @@ -27,9 +27,6 @@ ;;;; specification. (in-package "SB-WALKER") - -(sb-int:file-comment - "$Header$") ;;;; environment frobbing stuff diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c index d11c820..0a88829 100644 --- a/src/runtime/alloc.c +++ b/src/runtime/alloc.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include "runtime.h" #include "sbcl.h" #include "alloc.h" diff --git a/src/runtime/alloc.h b/src/runtime/alloc.h index 5cfd2d8..178ad6f 100644 --- a/src/runtime/alloc.h +++ b/src/runtime/alloc.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef _ALLOC_H_ #define _ALLOC_H_ diff --git a/src/runtime/arch.h b/src/runtime/arch.h index 14ba2f4..088a266 100644 --- a/src/runtime/arch.h +++ b/src/runtime/arch.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef __ARCH_H__ #define __ARCH_H__ diff --git a/src/runtime/backtrace.c b/src/runtime/backtrace.c index 7e58e80..722f4ed 100644 --- a/src/runtime/backtrace.c +++ b/src/runtime/backtrace.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include "runtime.h" diff --git a/src/runtime/breakpoint.c b/src/runtime/breakpoint.c index d4f3516..903591a 100644 --- a/src/runtime/breakpoint.c +++ b/src/runtime/breakpoint.c @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include diff --git a/src/runtime/breakpoint.h b/src/runtime/breakpoint.h index fabd1a5..798ae21 100644 --- a/src/runtime/breakpoint.h +++ b/src/runtime/breakpoint.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef _BREAKPOINT_H_ #define _BREAKPOINT_H_ diff --git a/src/runtime/bsd-os.c b/src/runtime/bsd-os.c index 613be8b..0ab4fd2 100644 --- a/src/runtime/bsd-os.c +++ b/src/runtime/bsd-os.c @@ -18,10 +18,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/bsd-os.h b/src/runtime/bsd-os.h index 9862141..de568f8 100644 --- a/src/runtime/bsd-os.h +++ b/src/runtime/bsd-os.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifdef __FreeBSD__ #include #endif diff --git a/src/runtime/core.h b/src/runtime/core.h index e467f9e..f5b223e 100644 --- a/src/runtime/core.h +++ b/src/runtime/core.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef _CORE_H_ #define _CORE_H_ diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c index b655601..5476fa5 100644 --- a/src/runtime/coreparse.c +++ b/src/runtime/coreparse.c @@ -14,10 +14,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/dynbind.c b/src/runtime/dynbind.c index 450c63c..175930b 100644 --- a/src/runtime/dynbind.c +++ b/src/runtime/dynbind.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include "runtime.h" #include "sbcl.h" #include "globals.h" diff --git a/src/runtime/dynbind.h b/src/runtime/dynbind.h index af26340..010dbc1 100644 --- a/src/runtime/dynbind.h +++ b/src/runtime/dynbind.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef _DYNBIND_H_ #define _DYNBIND_H_ diff --git a/src/runtime/gc.h b/src/runtime/gc.h index 3ebed77..b3f5e04 100644 --- a/src/runtime/gc.h +++ b/src/runtime/gc.h @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef _GC_H_ #define _GC_H_ diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c index a217142..948ac48 100644 --- a/src/runtime/gencgc.c +++ b/src/runtime/gencgc.c @@ -14,10 +14,6 @@ */ /* - * $Header$ - */ - -/* * For a review of garbage collection techniques (e.g. generational * GC) and terminology (e.g. "scavenging") see Paul R. Wilson, * "Uniprocessor Garbage Collection Techniques". As of 20000618, this diff --git a/src/runtime/gencgc.h b/src/runtime/gencgc.h index 83282f1..9b5b0dd 100644 --- a/src/runtime/gencgc.h +++ b/src/runtime/gencgc.h @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef _GENCGC_H_ #define _GENCGC_H_ diff --git a/src/runtime/globals.c b/src/runtime/globals.c index 577d7c6..70beb56 100644 --- a/src/runtime/globals.c +++ b/src/runtime/globals.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include "runtime.h" diff --git a/src/runtime/globals.h b/src/runtime/globals.h index 4d956c8..da9392f 100644 --- a/src/runtime/globals.h +++ b/src/runtime/globals.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #if !defined(_INCLUDE_GLOBALS_H_) #define _INCLUDED_GLOBALS_H_ diff --git a/src/runtime/interr.c b/src/runtime/interr.c index 26d2611..1333881 100644 --- a/src/runtime/interr.c +++ b/src/runtime/interr.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include diff --git a/src/runtime/interr.h b/src/runtime/interr.h index f9d80e6..989ddab 100644 --- a/src/runtime/interr.h +++ b/src/runtime/interr.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef _INTERR_H_ #define _INTERR_H_ diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c index 0bd56d0..bbb00a6 100644 --- a/src/runtime/interrupt.c +++ b/src/runtime/interrupt.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include diff --git a/src/runtime/interrupt.h b/src/runtime/interrupt.h index f71a177..c4145f2 100644 --- a/src/runtime/interrupt.h +++ b/src/runtime/interrupt.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #if !defined(_INCLUDE_INTERRUPT_H_) #define _INCLUDE_INTERRUPT_H_ diff --git a/src/runtime/linux-os.c b/src/runtime/linux-os.c index 9d8ee0a..c10db75 100644 --- a/src/runtime/linux-os.c +++ b/src/runtime/linux-os.c @@ -19,10 +19,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/linux-os.h b/src/runtime/linux-os.h index d010704..a2f1c34 100644 --- a/src/runtime/linux-os.h +++ b/src/runtime/linux-os.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/linux-stubs.S b/src/runtime/linux-stubs.S index baa4db9..9563d79 100644 --- a/src/runtime/linux-stubs.S +++ b/src/runtime/linux-stubs.S @@ -3,8 +3,6 @@ * * These are needed because the locations of the * libraries are filled in by ld.so at runtime. - * - * $Header$ */ /* diff --git a/src/runtime/lispregs.h b/src/runtime/lispregs.h index 45b98ce..2e94459 100644 --- a/src/runtime/lispregs.h +++ b/src/runtime/lispregs.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #if defined(mips) || defined(irix) #include "mips-lispregs.h" #endif diff --git a/src/runtime/monitor.c b/src/runtime/monitor.c index e31af04..09ec960 100644 --- a/src/runtime/monitor.c +++ b/src/runtime/monitor.c @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/monitor.h b/src/runtime/monitor.h index 9d8583d..3eec762 100644 --- a/src/runtime/monitor.h +++ b/src/runtime/monitor.h @@ -9,9 +9,5 @@ * files for more information. */ -/* - * $Header$ - */ - extern void ldb_monitor(void); extern void throw_to_monitor(void); diff --git a/src/runtime/os-common.c b/src/runtime/os-common.c index ef31ac9..2f8a56c 100644 --- a/src/runtime/os-common.c +++ b/src/runtime/os-common.c @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include diff --git a/src/runtime/os.h b/src/runtime/os.h index 45cd2bc..1d8e436 100644 --- a/src/runtime/os.h +++ b/src/runtime/os.h @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #if !defined(_OS_H_INCLUDED_) #define _OS_H_INCLUDED_ diff --git a/src/runtime/parse.c b/src/runtime/parse.c index 9dd8082..17b61b1 100644 --- a/src/runtime/parse.c +++ b/src/runtime/parse.c @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/parse.h b/src/runtime/parse.h index 1258544..510f91f 100644 --- a/src/runtime/parse.h +++ b/src/runtime/parse.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - /* All parse routines take a char ** as their only argument */ extern boolean more_p(char **ptr); extern char *parse_token(char **ptr); diff --git a/src/runtime/print.c b/src/runtime/print.c index 3eb97e1..142e7e1 100644 --- a/src/runtime/print.c +++ b/src/runtime/print.c @@ -12,10 +12,6 @@ */ /* - * $Header$ - */ - -/* * FIXME: * 1. Ordinary users won't get much out of this code, so it shouldn't * be compiled into the ordinary build of the system. Probably it diff --git a/src/runtime/print.h b/src/runtime/print.h index 3699614..7e6b119 100644 --- a/src/runtime/print.h +++ b/src/runtime/print.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef _PRINT_H_ #define _PRINT_H_ diff --git a/src/runtime/purify.c b/src/runtime/purify.c index 677db6d..18a310c 100644 --- a/src/runtime/purify.c +++ b/src/runtime/purify.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/purify.h b/src/runtime/purify.h index 381ac00..402d11d 100644 --- a/src/runtime/purify.h +++ b/src/runtime/purify.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #if !defined(_PURIFY_H_) #define _PURIFY_H_ diff --git a/src/runtime/regnames.c b/src/runtime/regnames.c index d7af4f9..53a482f 100644 --- a/src/runtime/regnames.c +++ b/src/runtime/regnames.c @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include "lispregs.h" char *lisp_register_names[] = { REGNAMES, 0 }; diff --git a/src/runtime/run-program.c b/src/runtime/run-program.c index a4bfbf1..6a88000 100644 --- a/src/runtime/run-program.c +++ b/src/runtime/run-program.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c index 43d98aa..3b36bf8 100644 --- a/src/runtime/runtime.c +++ b/src/runtime/runtime.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/runtime.h b/src/runtime/runtime.h index f054a3d..a2b1fae 100644 --- a/src/runtime/runtime.h +++ b/src/runtime/runtime.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - /* FIXME: Aren't symbols with underscore prefixes supposed to be * reserved for system libraries? Perhaps rename stuff like this * to names like INCLUDED_SBCL_RUNTIME_H. */ diff --git a/src/runtime/save.c b/src/runtime/save.c index d297eb9..9412f46 100644 --- a/src/runtime/save.c +++ b/src/runtime/save.c @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/save.h b/src/runtime/save.h index 42a1f9b..75c78d0 100644 --- a/src/runtime/save.h +++ b/src/runtime/save.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef _SAVE_H_ #define _SAVE_H_ diff --git a/src/runtime/search.c b/src/runtime/search.c index 19e656e..01de0d1 100644 --- a/src/runtime/search.c +++ b/src/runtime/search.c @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include "runtime.h" #include "sbcl.h" #include "os.h" diff --git a/src/runtime/search.h b/src/runtime/search.h index 7e918c5..39ff03b 100644 --- a/src/runtime/search.h +++ b/src/runtime/search.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifndef _SEARCH_H_ #define _SEARCH_H_ diff --git a/src/runtime/time.c b/src/runtime/time.c index 1fe3551..c640399 100644 --- a/src/runtime/time.c +++ b/src/runtime/time.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include "runtime.h" diff --git a/src/runtime/undefineds.c b/src/runtime/undefineds.c index fd4d61c..954312e 100644 --- a/src/runtime/undefineds.c +++ b/src/runtime/undefineds.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #ifdef sun #ifndef MACH #if !defined(SUNOS) && !defined(SOLARIS) diff --git a/src/runtime/undefineds.h b/src/runtime/undefineds.h index acbf329..2d73046 100644 --- a/src/runtime/undefineds.h +++ b/src/runtime/undefineds.h @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - /* Pick up all the syscalls. */ F(accept) F(access) diff --git a/src/runtime/validate.c b/src/runtime/validate.c index 5f31b20..20fad4a 100644 --- a/src/runtime/validate.c +++ b/src/runtime/validate.c @@ -13,10 +13,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include "runtime.h" #include "os.h" diff --git a/src/runtime/validate.h b/src/runtime/validate.h index c49186b..876d39b 100644 --- a/src/runtime/validate.h +++ b/src/runtime/validate.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #if !defined(_INCLUDE_VALIDATE_H_) #define _INCLUDE_VALIDATE_H_ diff --git a/src/runtime/vars.c b/src/runtime/vars.c index 3ee6f55..39f065b 100644 --- a/src/runtime/vars.c +++ b/src/runtime/vars.c @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include diff --git a/src/runtime/vars.h b/src/runtime/vars.h index ae1a100..3127f77 100644 --- a/src/runtime/vars.h +++ b/src/runtime/vars.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - /* FIXME: I wonder what this stuff is for. A comment or two would be * nice.. */ diff --git a/src/runtime/x86-arch.c b/src/runtime/x86-arch.c index 5e307e3..d72c219 100644 --- a/src/runtime/x86-arch.c +++ b/src/runtime/x86-arch.c @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include "runtime.h" diff --git a/src/runtime/x86-assem.S b/src/runtime/x86-assem.S index 0250479..b50fe16 100644 --- a/src/runtime/x86-assem.S +++ b/src/runtime/x86-assem.S @@ -1,7 +1,5 @@ /* * very-low-level utilities for runtime support - * - * $Header$ */ /* diff --git a/src/runtime/x86-lispregs.h b/src/runtime/x86-lispregs.h index 6fa58c4..57cf416 100644 --- a/src/runtime/x86-lispregs.h +++ b/src/runtime/x86-lispregs.h @@ -16,10 +16,6 @@ * files for more information. */ -/* - * $Header$ - */ - /* the number of registers visible as registers in the virtual machine * (excludes stuff like segment registers) */ #define NREGS (8) diff --git a/src/runtime/x86-validate.h b/src/runtime/x86-validate.h index 47b00aa..6c4f268 100644 --- a/src/runtime/x86-validate.h +++ b/src/runtime/x86-validate.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #define BINDING_STACK_SIZE ( BINDING_STACK_END - BINDING_STACK_START) #define CONTROL_STACK_SIZE ( CONTROL_STACK_END - CONTROL_STACK_START) #define DYNAMIC_SPACE_SIZE ( DYNAMIC_SPACE_END - DYNAMIC_SPACE_START) diff --git a/version.lisp-expr b/version.lisp-expr index 52ef288..e28e8a2 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -15,4 +15,4 @@ ;;; versions, and a string a la "0.6.5.12" is used for versions which ;;; aren't released but correspond only to CVS tags or snapshots. -"0.6.7.21" +"0.6.7.22" -- 1.7.10.4