projects
/
sbcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c3f281f
)
0.6.7.22: removed CVS dollar-Header-dollar tags from sources
author
William Harold Newman
<william.newman@airmail.net>
Fri, 20 Oct 2000 23:30:33 +0000
(23:30 +0000)
committer
William Harold Newman
<william.newman@airmail.net>
Fri, 20 Oct 2000 23:30:33 +0000
(23:30 +0000)
379 files changed:
doc/sbcl.1
patch
|
blob
|
history
src/assembly/assemfile.lisp
patch
|
blob
|
history
src/assembly/x86/alloc.lisp
patch
|
blob
|
history
src/assembly/x86/arith.lisp
patch
|
blob
|
history
src/assembly/x86/array.lisp
patch
|
blob
|
history
src/assembly/x86/assem-rtns.lisp
patch
|
blob
|
history
src/assembly/x86/bit-bash.lisp
patch
|
blob
|
history
src/assembly/x86/support.lisp
patch
|
blob
|
history
src/code/alien-type.lisp
patch
|
blob
|
history
src/code/array.lisp
patch
|
blob
|
history
src/code/backq.lisp
patch
|
blob
|
history
src/code/bignum.lisp
patch
|
blob
|
history
src/code/bit-bash.lisp
patch
|
blob
|
history
src/code/boot-extensions.lisp
patch
|
blob
|
history
src/code/bsd-os.lisp
patch
|
blob
|
history
src/code/byte-interp.lisp
patch
|
blob
|
history
src/code/byte-types.lisp
patch
|
blob
|
history
src/code/char.lisp
patch
|
blob
|
history
src/code/cl-specials.lisp
patch
|
blob
|
history
src/code/class.lisp
patch
|
blob
|
history
src/code/coerce.lisp
patch
|
blob
|
history
src/code/cold-error.lisp
patch
|
blob
|
history
src/code/cold-init-helper-macros.lisp
patch
|
blob
|
history
src/code/cold-init.lisp
patch
|
blob
|
history
src/code/cross-float.lisp
patch
|
blob
|
history
src/code/cross-io.lisp
patch
|
blob
|
history
src/code/cross-misc.lisp
patch
|
blob
|
history
src/code/cross-sap.lisp
patch
|
blob
|
history
src/code/cross-type.lisp
patch
|
blob
|
history
src/code/debug-info.lisp
patch
|
blob
|
history
src/code/debug-int.lisp
patch
|
blob
|
history
src/code/debug-var-io.lisp
patch
|
blob
|
history
src/code/debug-vm.lisp
patch
|
blob
|
history
src/code/debug.lisp
patch
|
blob
|
history
src/code/defbangmacro.lisp
patch
|
blob
|
history
src/code/defbangstruct.lisp
patch
|
blob
|
history
src/code/defbangtype.lisp
patch
|
blob
|
history
src/code/defboot.lisp
patch
|
blob
|
history
src/code/defmacro.lisp
patch
|
blob
|
history
src/code/defpackage.lisp
patch
|
blob
|
history
src/code/defsetfs.lisp
patch
|
blob
|
history
src/code/defstruct.lisp
patch
|
blob
|
history
src/code/deftypes-for-target.lisp
patch
|
blob
|
history
src/code/describe.lisp
patch
|
blob
|
history
src/code/destructuring-bind.lisp
patch
|
blob
|
history
src/code/dyncount.lisp
patch
|
blob
|
history
src/code/early-alieneval.lisp
patch
|
blob
|
history
src/code/early-array.lisp
patch
|
blob
|
history
src/code/early-cl.lisp
patch
|
blob
|
history
src/code/early-defbangmethod.lisp
patch
|
blob
|
history
src/code/early-defboot.lisp
patch
|
blob
|
history
src/code/early-defstruct-args.lisp-expr
patch
|
blob
|
history
src/code/early-defstructs.lisp
patch
|
blob
|
history
src/code/early-extensions.lisp
patch
|
blob
|
history
src/code/early-format.lisp
patch
|
blob
|
history
src/code/early-impl.lisp
patch
|
blob
|
history
src/code/early-load.lisp
patch
|
blob
|
history
src/code/early-pprint.lisp
patch
|
blob
|
history
src/code/early-print.lisp
patch
|
blob
|
history
src/code/early-setf.lisp
patch
|
blob
|
history
src/code/early-target-error.lisp
patch
|
blob
|
history
src/code/early-type.lisp
patch
|
blob
|
history
src/code/error-error.lisp
patch
|
blob
|
history
src/code/error.lisp
patch
|
blob
|
history
src/code/eval.lisp
patch
|
blob
|
history
src/code/fd-stream.lisp
patch
|
blob
|
history
src/code/fdefinition.lisp
patch
|
blob
|
history
src/code/filesys.lisp
patch
|
blob
|
history
src/code/final.lisp
patch
|
blob
|
history
src/code/float-trap.lisp
patch
|
blob
|
history
src/code/float.lisp
patch
|
blob
|
history
src/code/fop.lisp
patch
|
blob
|
history
src/code/force-delayed-defbangmacros.lisp
patch
|
blob
|
history
src/code/force-delayed-defbangmethods.lisp
patch
|
blob
|
history
src/code/force-delayed-defbangstructs.lisp
patch
|
blob
|
history
src/code/foreign.lisp
patch
|
blob
|
history
src/code/format-time.lisp
patch
|
blob
|
history
src/code/gc.lisp
patch
|
blob
|
history
src/code/globals.lisp
patch
|
blob
|
history
src/code/hash-table.lisp
patch
|
blob
|
history
src/code/host-alieneval.lisp
patch
|
blob
|
history
src/code/host-c-call.lisp
patch
|
blob
|
history
src/code/inspect.lisp
patch
|
blob
|
history
src/code/interr.lisp
patch
|
blob
|
history
src/code/irrat.lisp
patch
|
blob
|
history
src/code/kernel.lisp
patch
|
blob
|
history
src/code/late-defbangmethod.lisp
patch
|
blob
|
history
src/code/late-extensions.lisp
patch
|
blob
|
history
src/code/late-format.lisp
patch
|
blob
|
history
src/code/late-setf.lisp
patch
|
blob
|
history
src/code/late-target-error.lisp
patch
|
blob
|
history
src/code/late-type.lisp
patch
|
blob
|
history
src/code/linux-os.lisp
patch
|
blob
|
history
src/code/lisp-stream.lisp
patch
|
blob
|
history
src/code/list.lisp
patch
|
blob
|
history
src/code/load.lisp
patch
|
blob
|
history
src/code/loop.lisp
patch
|
blob
|
history
src/code/macroexpand.lisp
patch
|
blob
|
history
src/code/macros.lisp
patch
|
blob
|
history
src/code/mipsstrops.lisp
patch
|
blob
|
history
src/code/misc.lisp
patch
|
blob
|
history
src/code/module.lisp
patch
|
blob
|
history
src/code/ntrace.lisp
patch
|
blob
|
history
src/code/numbers.lisp
patch
|
blob
|
history
src/code/package.lisp
patch
|
blob
|
history
src/code/parse-body.lisp
patch
|
blob
|
history
src/code/parse-defmacro-errors.lisp
patch
|
blob
|
history
src/code/parse-defmacro.lisp
patch
|
blob
|
history
src/code/pathname.lisp
patch
|
blob
|
history
src/code/pp-backq.lisp
patch
|
blob
|
history
src/code/pprint.lisp
patch
|
blob
|
history
src/code/pred.lisp
patch
|
blob
|
history
src/code/print.lisp
patch
|
blob
|
history
src/code/purify.lisp
patch
|
blob
|
history
src/code/query.lisp
patch
|
blob
|
history
src/code/random.lisp
patch
|
blob
|
history
src/code/reader.lisp
patch
|
blob
|
history
src/code/readtable.lisp
patch
|
blob
|
history
src/code/room.lisp
patch
|
blob
|
history
src/code/run-program.lisp
patch
|
blob
|
history
src/code/save.lisp
patch
|
blob
|
history
src/code/seq.lisp
patch
|
blob
|
history
src/code/serve-event.lisp
patch
|
blob
|
history
src/code/setf-funs.lisp
patch
|
blob
|
history
src/code/sharpm.lisp
patch
|
blob
|
history
src/code/show.lisp
patch
|
blob
|
history
src/code/signal.lisp
patch
|
blob
|
history
src/code/sort.lisp
patch
|
blob
|
history
src/code/specializable-array.lisp
patch
|
blob
|
history
src/code/stream.lisp
patch
|
blob
|
history
src/code/string.lisp
patch
|
blob
|
history
src/code/symbol.lisp
patch
|
blob
|
history
src/code/sysmacs.lisp
patch
|
blob
|
history
src/code/target-alieneval.lisp
patch
|
blob
|
history
src/code/target-c-call.lisp
patch
|
blob
|
history
src/code/target-defbangmethod.lisp
patch
|
blob
|
history
src/code/target-defstruct.lisp
patch
|
blob
|
history
src/code/target-eval.lisp
patch
|
blob
|
history
src/code/target-extensions.lisp
patch
|
blob
|
history
src/code/target-format.lisp
patch
|
blob
|
history
src/code/target-hash-table.lisp
patch
|
blob
|
history
src/code/target-load.lisp
patch
|
blob
|
history
src/code/target-misc.lisp
patch
|
blob
|
history
src/code/target-numbers.lisp
patch
|
blob
|
history
src/code/target-package.lisp
patch
|
blob
|
history
src/code/target-pathname.lisp
patch
|
blob
|
history
src/code/target-random.lisp
patch
|
blob
|
history
src/code/target-sap.lisp
patch
|
blob
|
history
src/code/target-signal.lisp
patch
|
blob
|
history
src/code/target-sxhash.lisp
patch
|
blob
|
history
src/code/target-type.lisp
patch
|
blob
|
history
src/code/time.lisp
patch
|
blob
|
history
src/code/toplevel.lisp
patch
|
blob
|
history
src/code/type-class.lisp
patch
|
blob
|
history
src/code/type-init.lisp
patch
|
blob
|
history
src/code/typedefs.lisp
patch
|
blob
|
history
src/code/typep.lisp
patch
|
blob
|
history
src/code/uncross.lisp
patch
|
blob
|
history
src/code/unix.lisp
patch
|
blob
|
history
src/code/weak.lisp
patch
|
blob
|
history
src/code/x86-vm.lisp
patch
|
blob
|
history
src/cold/ansify.lisp
patch
|
blob
|
history
src/cold/compile-cold-sbcl.lisp
patch
|
blob
|
history
src/cold/defun-load-or-cload-xcompiler.lisp
patch
|
blob
|
history
src/cold/read-from-file.lisp
patch
|
blob
|
history
src/cold/rename-package-carefully.lisp
patch
|
blob
|
history
src/cold/set-up-cold-packages.lisp
patch
|
blob
|
history
src/cold/shared.lisp
patch
|
blob
|
history
src/cold/shebang.lisp
patch
|
blob
|
history
src/cold/snapshot.lisp
patch
|
blob
|
history
src/cold/warm.lisp
patch
|
blob
|
history
src/cold/with-stuff.lisp
patch
|
blob
|
history
src/compiler/aliencomp.lisp
patch
|
blob
|
history
src/compiler/array-tran.lisp
patch
|
blob
|
history
src/compiler/assem.lisp
patch
|
blob
|
history
src/compiler/backend.lisp
patch
|
blob
|
history
src/compiler/bit-util.lisp
patch
|
blob
|
history
src/compiler/byte-comp.lisp
patch
|
blob
|
history
src/compiler/checkgen.lisp
patch
|
blob
|
history
src/compiler/codegen.lisp
patch
|
blob
|
history
src/compiler/compiler-deftype.lisp
patch
|
blob
|
history
src/compiler/compiler-error.lisp
patch
|
blob
|
history
src/compiler/constraint.lisp
patch
|
blob
|
history
src/compiler/control.lisp
patch
|
blob
|
history
src/compiler/copyprop.lisp
patch
|
blob
|
history
src/compiler/ctype.lisp
patch
|
blob
|
history
src/compiler/debug-dump.lisp
patch
|
blob
|
history
src/compiler/debug.lisp
patch
|
blob
|
history
src/compiler/deftype.lisp
patch
|
blob
|
history
src/compiler/dfo.lisp
patch
|
blob
|
history
src/compiler/disassem.lisp
patch
|
blob
|
history
src/compiler/dump.lisp
patch
|
blob
|
history
src/compiler/dyncount.lisp
patch
|
blob
|
history
src/compiler/early-assem.lisp
patch
|
blob
|
history
src/compiler/early-c.lisp
patch
|
blob
|
history
src/compiler/entry.lisp
patch
|
blob
|
history
src/compiler/envanal.lisp
patch
|
blob
|
history
src/compiler/eval-comp.lisp
patch
|
blob
|
history
src/compiler/eval.lisp
patch
|
blob
|
history
src/compiler/fixup.lisp
patch
|
blob
|
history
src/compiler/float-tran.lisp
patch
|
blob
|
history
src/compiler/fndb.lisp
patch
|
blob
|
history
src/compiler/generic/core.lisp
patch
|
blob
|
history
src/compiler/generic/early-objdef.lisp
patch
|
blob
|
history
src/compiler/generic/early-vm-macs.lisp
patch
|
blob
|
history
src/compiler/generic/early-vm.lisp
patch
|
blob
|
history
src/compiler/generic/genesis.lisp
patch
|
blob
|
history
src/compiler/generic/interr.lisp
patch
|
blob
|
history
src/compiler/generic/objdef.lisp
patch
|
blob
|
history
src/compiler/generic/primtype.lisp
patch
|
blob
|
history
src/compiler/generic/target-core.lisp
patch
|
blob
|
history
src/compiler/generic/utils.lisp
patch
|
blob
|
history
src/compiler/generic/vm-fndb.lisp
patch
|
blob
|
history
src/compiler/generic/vm-ir2tran.lisp
patch
|
blob
|
history
src/compiler/generic/vm-macs.lisp
patch
|
blob
|
history
src/compiler/generic/vm-tran.lisp
patch
|
blob
|
history
src/compiler/generic/vm-type.lisp
patch
|
blob
|
history
src/compiler/generic/vm-typetran.lisp
patch
|
blob
|
history
src/compiler/globaldb.lisp
patch
|
blob
|
history
src/compiler/gtn.lisp
patch
|
blob
|
history
src/compiler/info-functions.lisp
patch
|
blob
|
history
src/compiler/ir1final.lisp
patch
|
blob
|
history
src/compiler/ir1opt.lisp
patch
|
blob
|
history
src/compiler/ir1tran.lisp
patch
|
blob
|
history
src/compiler/ir1util.lisp
patch
|
blob
|
history
src/compiler/ir2tran.lisp
patch
|
blob
|
history
src/compiler/knownfun.lisp
patch
|
blob
|
history
src/compiler/late-macros.lisp
patch
|
blob
|
history
src/compiler/late-vmdef.lisp
patch
|
blob
|
history
src/compiler/lexenv.lisp
patch
|
blob
|
history
src/compiler/life.lisp
patch
|
blob
|
history
src/compiler/locall.lisp
patch
|
blob
|
history
src/compiler/ltn.lisp
patch
|
blob
|
history
src/compiler/ltv.lisp
patch
|
blob
|
history
src/compiler/macros.lisp
patch
|
blob
|
history
src/compiler/main.lisp
patch
|
blob
|
history
src/compiler/meta-vmdef.lisp
patch
|
blob
|
history
src/compiler/node.lisp
patch
|
blob
|
history
src/compiler/pack.lisp
patch
|
blob
|
history
src/compiler/parse-lambda-list.lisp
patch
|
blob
|
history
src/compiler/proclaim.lisp
patch
|
blob
|
history
src/compiler/pseudo-vops.lisp
patch
|
blob
|
history
src/compiler/represent.lisp
patch
|
blob
|
history
src/compiler/saptran.lisp
patch
|
blob
|
history
src/compiler/seqtran.lisp
patch
|
blob
|
history
src/compiler/srctran.lisp
patch
|
blob
|
history
src/compiler/sset.lisp
patch
|
blob
|
history
src/compiler/stack.lisp
patch
|
blob
|
history
src/compiler/target-byte-comp.lisp
patch
|
blob
|
history
src/compiler/target-disassem.lisp
patch
|
blob
|
history
src/compiler/target-dump.lisp
patch
|
blob
|
history
src/compiler/target-main.lisp
patch
|
blob
|
history
src/compiler/tn.lisp
patch
|
blob
|
history
src/compiler/trace-table.lisp
patch
|
blob
|
history
src/compiler/typetran.lisp
patch
|
blob
|
history
src/compiler/vmdef.lisp
patch
|
blob
|
history
src/compiler/vop.lisp
patch
|
blob
|
history
src/compiler/x86/alloc.lisp
patch
|
blob
|
history
src/compiler/x86/arith.lisp
patch
|
blob
|
history
src/compiler/x86/array.lisp
patch
|
blob
|
history
src/compiler/x86/backend-parms.lisp
patch
|
blob
|
history
src/compiler/x86/c-call.lisp
patch
|
blob
|
history
src/compiler/x86/call.lisp
patch
|
blob
|
history
src/compiler/x86/cell.lisp
patch
|
blob
|
history
src/compiler/x86/char.lisp
patch
|
blob
|
history
src/compiler/x86/debug.lisp
patch
|
blob
|
history
src/compiler/x86/float.lisp
patch
|
blob
|
history
src/compiler/x86/insts.lisp
patch
|
blob
|
history
src/compiler/x86/macros.lisp
patch
|
blob
|
history
src/compiler/x86/memory.lisp
patch
|
blob
|
history
src/compiler/x86/move.lisp
patch
|
blob
|
history
src/compiler/x86/nlx.lisp
patch
|
blob
|
history
src/compiler/x86/parms.lisp
patch
|
blob
|
history
src/compiler/x86/pred.lisp
patch
|
blob
|
history
src/compiler/x86/sap.lisp
patch
|
blob
|
history
src/compiler/x86/show.lisp
patch
|
blob
|
history
src/compiler/x86/static-fn.lisp
patch
|
blob
|
history
src/compiler/x86/subprim.lisp
patch
|
blob
|
history
src/compiler/x86/system.lisp
patch
|
blob
|
history
src/compiler/x86/target-insts.lisp
patch
|
blob
|
history
src/compiler/x86/type-vops.lisp
patch
|
blob
|
history
src/compiler/x86/values.lisp
patch
|
blob
|
history
src/compiler/x86/vm.lisp
patch
|
blob
|
history
src/pcl/boot.lisp
patch
|
blob
|
history
src/pcl/braid.lisp
patch
|
blob
|
history
src/pcl/cache.lisp
patch
|
blob
|
history
src/pcl/combin.lisp
patch
|
blob
|
history
src/pcl/construct.lisp
patch
|
blob
|
history
src/pcl/cpl.lisp
patch
|
blob
|
history
src/pcl/ctypes.lisp
patch
|
blob
|
history
src/pcl/defclass.lisp
patch
|
blob
|
history
src/pcl/defcombin.lisp
patch
|
blob
|
history
src/pcl/defs.lisp
patch
|
blob
|
history
src/pcl/describe.lisp
patch
|
blob
|
history
src/pcl/dfun.lisp
patch
|
blob
|
history
src/pcl/dlisp.lisp
patch
|
blob
|
history
src/pcl/dlisp2.lisp
patch
|
blob
|
history
src/pcl/dlisp3.lisp
patch
|
blob
|
history
src/pcl/documentation.lisp
patch
|
blob
|
history
src/pcl/early-low.lisp
patch
|
blob
|
history
src/pcl/env.lisp
patch
|
blob
|
history
src/pcl/fast-init.lisp
patch
|
blob
|
history
src/pcl/fin.lisp
patch
|
blob
|
history
src/pcl/fixup.lisp
patch
|
blob
|
history
src/pcl/fngen.lisp
patch
|
blob
|
history
src/pcl/fsc.lisp
patch
|
blob
|
history
src/pcl/generic-functions.lisp
patch
|
blob
|
history
src/pcl/gray-streams-class.lisp
patch
|
blob
|
history
src/pcl/gray-streams.lisp
patch
|
blob
|
history
src/pcl/init.lisp
patch
|
blob
|
history
src/pcl/iterate.lisp
patch
|
blob
|
history
src/pcl/low.lisp
patch
|
blob
|
history
src/pcl/macros.lisp
patch
|
blob
|
history
src/pcl/methods.lisp
patch
|
blob
|
history
src/pcl/precom1.lisp
patch
|
blob
|
history
src/pcl/precom2.lisp
patch
|
blob
|
history
src/pcl/print-object.lisp
patch
|
blob
|
history
src/pcl/slots-boot.lisp
patch
|
blob
|
history
src/pcl/slots.lisp
patch
|
blob
|
history
src/pcl/std-class.lisp
patch
|
blob
|
history
src/pcl/structure-class.lisp
patch
|
blob
|
history
src/pcl/time.lisp
patch
|
blob
|
history
src/pcl/vector.lisp
patch
|
blob
|
history
src/pcl/walk.lisp
patch
|
blob
|
history
src/runtime/alloc.c
patch
|
blob
|
history
src/runtime/alloc.h
patch
|
blob
|
history
src/runtime/arch.h
patch
|
blob
|
history
src/runtime/backtrace.c
patch
|
blob
|
history
src/runtime/breakpoint.c
patch
|
blob
|
history
src/runtime/breakpoint.h
patch
|
blob
|
history
src/runtime/bsd-os.c
patch
|
blob
|
history
src/runtime/bsd-os.h
patch
|
blob
|
history
src/runtime/core.h
patch
|
blob
|
history
src/runtime/coreparse.c
patch
|
blob
|
history
src/runtime/dynbind.c
patch
|
blob
|
history
src/runtime/dynbind.h
patch
|
blob
|
history
src/runtime/gc.h
patch
|
blob
|
history
src/runtime/gencgc.c
patch
|
blob
|
history
src/runtime/gencgc.h
patch
|
blob
|
history
src/runtime/globals.c
patch
|
blob
|
history
src/runtime/globals.h
patch
|
blob
|
history
src/runtime/interr.c
patch
|
blob
|
history
src/runtime/interr.h
patch
|
blob
|
history
src/runtime/interrupt.c
patch
|
blob
|
history
src/runtime/interrupt.h
patch
|
blob
|
history
src/runtime/linux-os.c
patch
|
blob
|
history
src/runtime/linux-os.h
patch
|
blob
|
history
src/runtime/linux-stubs.S
patch
|
blob
|
history
src/runtime/lispregs.h
patch
|
blob
|
history
src/runtime/monitor.c
patch
|
blob
|
history
src/runtime/monitor.h
patch
|
blob
|
history
src/runtime/os-common.c
patch
|
blob
|
history
src/runtime/os.h
patch
|
blob
|
history
src/runtime/parse.c
patch
|
blob
|
history
src/runtime/parse.h
patch
|
blob
|
history
src/runtime/print.c
patch
|
blob
|
history
src/runtime/print.h
patch
|
blob
|
history
src/runtime/purify.c
patch
|
blob
|
history
src/runtime/purify.h
patch
|
blob
|
history
src/runtime/regnames.c
patch
|
blob
|
history
src/runtime/run-program.c
patch
|
blob
|
history
src/runtime/runtime.c
patch
|
blob
|
history
src/runtime/runtime.h
patch
|
blob
|
history
src/runtime/save.c
patch
|
blob
|
history
src/runtime/save.h
patch
|
blob
|
history
src/runtime/search.c
patch
|
blob
|
history
src/runtime/search.h
patch
|
blob
|
history
src/runtime/time.c
patch
|
blob
|
history
src/runtime/undefineds.c
patch
|
blob
|
history
src/runtime/undefineds.h
patch
|
blob
|
history
src/runtime/validate.c
patch
|
blob
|
history
src/runtime/validate.h
patch
|
blob
|
history
src/runtime/vars.c
patch
|
blob
|
history
src/runtime/vars.h
patch
|
blob
|
history
src/runtime/x86-arch.c
patch
|
blob
|
history
src/runtime/x86-assem.S
patch
|
blob
|
history
src/runtime/x86-lispregs.h
patch
|
blob
|
history
src/runtime/x86-validate.h
patch
|
blob
|
history
version.lisp-expr
patch
|
blob
|
history
diff --git
a/doc/sbcl.1
b/doc/sbcl.1
index
7af037b
..
4bf0893
100644
(file)
--- a/
doc/sbcl.1
+++ b/
doc/sbcl.1
@@
-11,8
+11,6
@@
.\" contact Scott Fahlman or slisp-group@cs.cmu.edu.
.\" **********************************************************************
.\"
.\" 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
.TH SBCL 1 "$Date$"
.AT 3
.SH NAME
diff --git
a/src/assembly/assemfile.lisp
b/src/assembly/assemfile.lisp
index
d17a5a3
..
6578aa2
100644
(file)
--- a/
src/assembly/assemfile.lisp
+++ b/
src/assembly/assemfile.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
(defvar *do-assembly* nil
#!+sb-doc "If non-NIL, emit assembly code. If NIL, emit VOP templates.")
\f
(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
(file)
--- a/
src/assembly/x86/alloc.lisp
+++ b/
src/assembly/x86/alloc.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; from signed/unsigned
\f
;;;; from signed/unsigned
diff --git
a/src/assembly/x86/arith.lisp
b/src/assembly/x86/arith.lisp
index
59d1edf
..
68cdc1b
100644
(file)
--- a/
src/assembly/x86/arith.lisp
+++ b/
src/assembly/x86/arith.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; addition, subtraction, and multiplication
\f
;;;; addition, subtraction, and multiplication
diff --git
a/src/assembly/x86/array.lisp
b/src/assembly/x86/array.lisp
index
8ae3e8d
..
677bffa
100644
(file)
--- a/
src/assembly/x86/array.lisp
+++ b/
src/assembly/x86/array.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; allocation
\f
;;;; allocation
diff --git
a/src/assembly/x86/assem-rtns.lisp
b/src/assembly/x86/assem-rtns.lisp
index
65e50b1
..
3784517
100644
(file)
--- 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")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; RETURN-MULTIPLE
\f
;;;; RETURN-MULTIPLE
diff --git
a/src/assembly/x86/bit-bash.lisp
b/src/assembly/x86/bit-bash.lisp
index
26cc2a1
..
15f45ab
100644
(file)
--- 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")
;;;; 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
(file)
--- a/
src/assembly/x86/support.lisp
+++ b/
src/assembly/x86/support.lisp
@@
-9,9
+9,6
@@
(in-package "SB!VM")
(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(def-vm-support-routine generate-call-sequence (name style vop)
(ecase style
(:raw
(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
(file)
--- a/
src/code/alien-type.lisp
+++ b/
src/code/alien-type.lisp
@@
-13,9
+13,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
(!begin-collecting-cold-init-forms)
(defstruct (alien-type-type
(!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
(file)
--- a/
src/code/array.lisp
+++ b/
src/code/array.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
#!-sb-fluid
(declaim (inline fill-pointer array-has-fill-pointer-p adjustable-array-p
array-displacement))
#!-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
(file)
--- a/
src/code/backq.lisp
+++ b/
src/code/backq.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
;;; The flags passed back by BACKQUOTIFY can be interpreted as follows:
;;;
;;; |`,|: [a] => a
;;; 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
(file)
--- a/
src/code/bignum.lisp
+++ b/
src/code/bignum.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!BIGNUM")
;;;; files for more information.
(in-package "SB!BIGNUM")
-
-(file-comment
- "$Header$")
\f
;;;; notes
\f
;;;; notes
diff --git
a/src/code/bit-bash.lisp
b/src/code/bit-bash.lisp
index
64cd344
..
1a9752d
100644
(file)
--- a/
src/code/bit-bash.lisp
+++ b/
src/code/bit-bash.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; constants and types
\f
;;;; constants and types
diff --git
a/src/code/boot-extensions.lisp
b/src/code/boot-extensions.lisp
index
aa1fc8c
..
4dfc372
100644
(file)
--- a/
src/code/boot-extensions.lisp
+++ b/
src/code/boot-extensions.lisp
@@
-11,9
+11,6
@@
(in-package "SB!EXT")
(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
;;; 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
(file)
--- 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.
;;;; 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
(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
(file)
--- a/
src/code/byte-interp.lisp
+++ b/
src/code/byte-interp.lisp
@@
-2,9
+2,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
;;;;
;;;; 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
(file)
--- a/
src/code/byte-types.lisp
+++ b/
src/code/byte-types.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; types
\f
;;;; types
diff --git
a/src/code/char.lisp
b/src/code/char.lisp
index
7c8248f
..
f855306
100644
(file)
--- a/
src/code/char.lisp
+++ b/
src/code/char.lisp
@@
-20,9
+20,6
@@
(in-package "SB!IMPL")
(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
;;; 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
(file)
--- a/
src/code/cl-specials.lisp
+++ b/
src/code/cl-specials.lisp
@@
-12,9
+12,6
@@
(in-package "COMMON-LISP")
(in-package "COMMON-LISP")
-(sb!int:file-comment
- "$Header$")
-
(sb!xc:proclaim '(special cl:*
cl:**
cl:***
(sb!xc:proclaim '(special cl:*
cl:**
cl:***
diff --git
a/src/code/class.lisp
b/src/code/class.lisp
index
b119f59
..
403860f
100644
(file)
--- a/
src/code/class.lisp
+++ b/
src/code/class.lisp
@@
-14,9
+14,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
(!begin-collecting-cold-init-forms)
\f
;;;; the CLASS structure
(!begin-collecting-cold-init-forms)
\f
;;;; the CLASS structure
diff --git
a/src/code/coerce.lisp
b/src/code/coerce.lisp
index
6d0a3cf
..
e257fd7
100644
(file)
--- a/
src/code/coerce.lisp
+++ b/
src/code/coerce.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(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))
(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
(file)
--- a/
src/code/cold-error.lisp
+++ b/
src/code/cold-error.lisp
@@
-12,9
+12,6
@@
(in-package "SB!CONDITIONS")
(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
(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
(file)
--- 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.
;;; 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*))
(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
(file)
--- a/
src/code/cold-init.lisp
+++ b/
src/code/cold-init.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; burning our ships behind us
\f
;;;; burning our ships behind us
diff --git
a/src/code/cross-float.lisp
b/src/code/cross-float.lisp
index
7023302
..
a820745
100644
(file)
--- a/
src/code/cross-float.lisp
+++ b/
src/code/cross-float.lisp
@@
-13,9
+13,6
@@
(in-package "SB!IMPL")
(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.
;;; 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
(file)
--- a/
src/code/cross-io.lisp
+++ b/
src/code/cross-io.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
;;;; fast-read operations
;;;;
;;;; (Portable versions of these are needed at cross-compile time because
;;;; 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
(file)
--- a/
src/code/cross-misc.lisp
+++ b/
src/code/cross-misc.lisp
@@
-12,11
+12,8
@@
(in-package "SB!IMPL")
(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))
(defmacro truly-the (type expr)
`(the ,type ,expr))
@@
-24,44
+21,45
@@
;;; (possibly at some cost in efficiency).
(declaim (declaration freeze-type maybe-inline))
;;; (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))
(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))
(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))
(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)
(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)
(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))
(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)
;;; 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))
(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))))
(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)
(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))
(multiple-value-bind (symbol status)
(find-symbol (symbol-name i) package)
(declare (ignore symbol))
@@
-110,20
+110,20
@@
(incf result))
result))
(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))
(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))
(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
(file)
--- a/
src/code/cross-sap.lisp
+++ b/
src/code/cross-sap.lisp
@@
-12,12
+12,9
@@
(in-package "SB!SYS")
(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))
(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
(file)
--- a/
src/code/cross-type.lisp
+++ b/
src/code/cross-type.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(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.)
;;; (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
(file)
--- a/
src/code/debug-info.lisp
+++ b/
src/code/debug-info.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; SC-OFFSETs
;;;;
\f
;;;; SC-OFFSETs
;;;;
diff --git
a/src/code/debug-int.lisp
b/src/code/debug-int.lisp
index
42ab7e8
..
307ecd3
100644
(file)
--- a/
src/code/debug-int.lisp
+++ b/
src/code/debug-int.lisp
@@
-12,9
+12,6
@@
(in-package "SB!DI")
(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?
\f
;;; 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?
\f
diff --git
a/src/code/debug-var-io.lisp
b/src/code/debug-var-io.lisp
index
0d0ba29
..
36cbb44
100644
(file)
--- 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")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; reading variable length integers
;;;;
\f
;;;; reading variable length integers
;;;;
diff --git
a/src/code/debug-vm.lisp
b/src/code/debug-vm.lisp
index
6ad8ddc
..
61df7c8
100644
(file)
--- a/
src/code/debug-vm.lisp
+++ b/
src/code/debug-vm.lisp
@@
-12,9
+12,6
@@
(in-package "SB!VM")
(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))
(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
(file)
--- a/
src/code/debug.lisp
+++ b/
src/code/debug.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!DEBUG")
;;;; files for more information.
(in-package "SB!DEBUG")
-
-(file-comment
- "$Header$")
\f
;;;; variables and constants
\f
;;;; variables and constants
diff --git
a/src/code/defbangmacro.lisp
b/src/code/defbangmacro.lisp
index
f0e40e8
..
7e7dba3
100644
(file)
--- a/
src/code/defbangmacro.lisp
+++ b/
src/code/defbangmacro.lisp
@@
-17,9
+17,6
@@
(in-package "SB!IMPL")
(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
#+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
(file)
--- a/
src/code/defbangstruct.lisp
+++ b/
src/code/defbangstruct.lisp
@@
-17,9
+17,6
@@
(in-package "SB!KERNEL")
(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))
;;; 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
(file)
--- a/
src/code/defbangtype.lisp
+++ b/
src/code/defbangtype.lisp
@@
-8,9
+8,6
@@
;;;; files for more information.
(in-package "SB!KERNEL")
;;;; files for more information.
(in-package "SB!KERNEL")
-
-(file-comment
- "$Header$")
\f
;;;; the DEF!TYPE macro
\f
;;;; the DEF!TYPE macro
diff --git
a/src/code/defboot.lisp
b/src/code/defboot.lisp
index
e280779
..
f095935
100644
(file)
--- a/
src/code/defboot.lisp
+++ b/
src/code/defboot.lisp
@@
-19,9
+19,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; IN-PACKAGE
\f
;;;; IN-PACKAGE
diff --git
a/src/code/defmacro.lisp
b/src/code/defmacro.lisp
index
8a0f43e
..
9ec1d2b
100644
(file)
--- a/
src/code/defmacro.lisp
+++ b/
src/code/defmacro.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(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
;;; 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
(file)
--- a/
src/code/defpackage.lisp
+++ b/
src/code/defpackage.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(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
(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
(file)
--- 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.
;;;; 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
(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
(file)
--- a/
src/code/defstruct.lisp
+++ b/
src/code/defstruct.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!KERNEL")
;;;; files for more information.
(in-package "SB!KERNEL")
-
-(file-comment
- "$Header$")
\f
;;;; getting LAYOUTs
\f
;;;; getting LAYOUTs
diff --git
a/src/code/deftypes-for-target.lisp
b/src/code/deftypes-for-target.lisp
index
59149cc
..
f42b20b
100644
(file)
--- 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")
;;;; files for more information.
(in-package "SB!KERNEL")
-
-(file-comment
- "$Header$")
\f
;;;; Now that DEFTYPE is set up, any pending requests for it can
;;;; be honored.
\f
;;;; 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
(file)
--- a/
src/code/describe.lisp
+++ b/
src/code/describe.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB-IMPL")
;;;; files for more information.
(in-package "SB-IMPL")
-
-(file-comment
- "$Header$")
\f
(defvar *describe-indentation-step* 3
#+sb-doc
\f
(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
(file)
--- a/
src/code/destructuring-bind.lisp
+++ b/
src/code/destructuring-bind.lisp
@@
-9,9
+9,6
@@
(in-package "SB!IMPL")
(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."
(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
(file)
--- a/
src/code/dyncount.lisp
+++ b/
src/code/dyncount.lisp
@@
-11,14
+11,12
@@
(in-package "SB!DYNCOUNT")
(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)
|#
(eval-when (:compile-toplevel)
diff --git
a/src/code/early-alieneval.lisp
b/src/code/early-alieneval.lisp
index
6e38fdb
..
67478a5
100644
(file)
--- a/
src/code/early-alieneval.lisp
+++ b/
src/code/early-alieneval.lisp
@@
-9,9
+9,6
@@
(in-package "SB!ALIEN")
(in-package "SB!ALIEN")
-(file-comment
- "$Header$")
-
(defvar *alien-type-classes* (make-hash-table :test 'eq))
(defvar *new-auxiliary-types* nil)
(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
(file)
--- a/
src/code/early-array.lisp
+++ b/
src/code/early-array.lisp
@@
-9,9
+9,6
@@
(in-package "SB!IMPL")
(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")
(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
(file)
--- a/
src/code/early-cl.lisp
+++ b/
src/code/early-cl.lisp
@@
-11,9
+11,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
;;; Common Lisp special variables which have SB-XC versions
(proclaim '(special sb!xc:*macroexpand-hook*))
;;; 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
(file)
--- a/
src/code/early-defbangmethod.lisp
+++ b/
src/code/early-defbangmethod.lisp
@@
-9,9
+9,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
#+sb-xc-host
(defmacro def!method (&rest args)
`(defmethod ,@args))
#+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
(file)
--- a/
src/code/early-defboot.lisp
+++ b/
src/code/early-defboot.lisp
@@
-12,9
+12,6
@@
(in-package "SB!EXT")
(in-package "SB!EXT")
-(file-comment
- "$Header$")
-
;;; helper function for various macros which expect clauses of a given
;;; length, etc.
;;;
;;; 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
(file)
--- 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.
;;;; 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
(;; 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
(file)
--- a/
src/code/early-defstructs.lisp
+++ b/
src/code/early-defstructs.lisp
@@
-9,9
+9,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
#.`(progn
,@(mapcar (lambda (args)
`(defstruct ,@args))
#.`(progn
,@(mapcar (lambda (args)
`(defstruct ,@args))
diff --git
a/src/code/early-extensions.lisp
b/src/code/early-extensions.lisp
index
9642a5f
..
0288453
100644
(file)
--- a/
src/code/early-extensions.lisp
+++ b/
src/code/early-extensions.lisp
@@
-18,9
+18,6
@@
(in-package "SB!EXT")
(in-package "SB!EXT")
-(file-comment
- "$Header$")
-
;;; a type used for indexing into arrays, and for related quantities
;;; like lengths of lists
;;;
;;; 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
(file)
--- a/
src/code/early-format.lisp
+++ b/
src/code/early-format.lisp
@@
-9,9
+9,6
@@
(in-package "SB!FORMAT")
(in-package "SB!FORMAT")
-(file-comment
- "$Header$")
-
(defparameter *format-whitespace-chars*
(vector #\space
#\newline
(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
(file)
--- a/
src/code/early-impl.lisp
+++ b/
src/code/early-impl.lisp
@@
-9,9
+9,6
@@
(in-package "SB!IMPL")
(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*
;;; 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
(file)
--- a/
src/code/early-load.lisp
+++ b/
src/code/early-load.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
;;; information about non-Lisp-level linkage
;;;
;;; Note:
;;; 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
(file)
--- a/
src/code/early-pprint.lisp
+++ b/
src/code/early-pprint.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!PRETTY")
;;;; files for more information.
(in-package "SB!PRETTY")
-
-(file-comment
- "$Header$")
\f
;;;; utilities
\f
;;;; utilities
diff --git
a/src/code/early-print.lisp
b/src/code/early-print.lisp
index
f3e7a74
..
5dd2e92
100644
(file)
--- a/
src/code/early-print.lisp
+++ b/
src/code/early-print.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; level and length abbreviations
\f
;;;; level and length abbreviations
diff --git
a/src/code/early-setf.lisp
b/src/code/early-setf.lisp
index
b3d1441
..
2219eb3
100644
(file)
--- a/
src/code/early-setf.lisp
+++ b/
src/code/early-setf.lisp
@@
-17,9
+17,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
;;; The inverse for a generalized-variable reference function is stored in
;;; one of two ways:
;;;
;;; 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
(file)
--- 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")
;;;; files for more information.
(in-package "SB!CONDITIONS")
-
-(sb!int:file-comment
- "$Header$")
\f
;;;; restarts
\f
;;;; restarts
diff --git
a/src/code/early-type.lisp
b/src/code/early-type.lisp
index
836ef5a
..
3c8c59d
100644
(file)
--- a/
src/code/early-type.lisp
+++ b/
src/code/early-type.lisp
@@
-9,9
+9,6
@@
(in-package "SB!KERNEL")
(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
(!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
(file)
--- a/
src/code/error-error.lisp
+++ b/
src/code/error-error.lisp
@@
-9,9
+9,6
@@
(in-package "SB!IMPL")
(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)
;;; 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
(file)
--- a/
src/code/error.lisp
+++ b/
src/code/error.lisp
@@
-13,9
+13,6
@@
(in-package "SB!CONDITIONS")
(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?
(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
(file)
--- a/
src/code/eval.lisp
+++ b/
src/code/eval.lisp
@@
-9,9
+9,6
@@
(in-package "SB!EVAL")
(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.
;;; 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
(file)
--- a/
src/code/fd-stream.lisp
+++ b/
src/code/fd-stream.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(deftype file-stream () 'fd-stream)
\f
;;;; buffer manipulation routines
(deftype file-stream () 'fd-stream)
\f
;;;; buffer manipulation routines
diff --git
a/src/code/fdefinition.lisp
b/src/code/fdefinition.lisp
index
3403fea
..
0b72f21
100644
(file)
--- a/
src/code/fdefinition.lisp
+++ b/
src/code/fdefinition.lisp
@@
-14,9
+14,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(sb!int::/show0 "fdefinition.lisp 22")
\f
;;;; fdefinition (fdefn) objects
(sb!int::/show0 "fdefinition.lisp 22")
\f
;;;; fdefinition (fdefn) objects
diff --git
a/src/code/filesys.lisp
b/src/code/filesys.lisp
index
3a71d9a
..
744eeaf
100644
(file)
--- a/
src/code/filesys.lisp
+++ b/
src/code/filesys.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; Unix pathname host support
\f
;;;; Unix pathname host support
diff --git
a/src/code/final.lisp
b/src/code/final.lisp
index
1fdffda
..
20c2fa8
100644
(file)
--- a/
src/code/final.lisp
+++ b/
src/code/final.lisp
@@
-11,9
+11,6
@@
(in-package "SB!EXT")
(in-package "SB!EXT")
-(file-comment
- "$Header$")
-
(defvar *objects-pending-finalization* nil)
(defun finalize (object function)
(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
(file)
--- a/
src/code/float-trap.lisp
+++ b/
src/code/float-trap.lisp
@@
-14,9
+14,6
@@
(in-package "SB!VM")
(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant float-trap-alist
(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
(file)
--- a/
src/code/float.lisp
+++ b/
src/code/float.lisp
@@
-14,9
+14,6
@@
;;;; files for more information.
(in-package "SB!KERNEL")
;;;; files for more information.
(in-package "SB!KERNEL")
-
-(file-comment
- "$Header$")
\f
;;;; utilities
\f
;;;; utilities
diff --git
a/src/code/fop.lisp
b/src/code/fop.lisp
index
9522737
..
a28857f
100644
(file)
--- a/
src/code/fop.lisp
+++ b/
src/code/fop.lisp
@@
-2,9
+2,6
@@
(in-package "SB!IMPL")
(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
;;; 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
(file)
--- a/
src/code/force-delayed-defbangmacros.lisp
+++ b/
src/code/force-delayed-defbangmacros.lisp
@@
-16,7
+16,4
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
#+sb-xc-host (force-delayed-def!macros)
#+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
(file)
--- a/
src/code/force-delayed-defbangmethods.lisp
+++ b/
src/code/force-delayed-defbangmethods.lisp
@@
-9,9
+9,6
@@
(in-package "SB-IMPL")
(in-package "SB-IMPL")
-(file-comment
- "$Header$")
-
(macrolet ((force-delayed-def!methods ()
`(progn
,@(mapcar (lambda (args)
(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
(file)
--- a/
src/code/force-delayed-defbangstructs.lisp
+++ b/
src/code/force-delayed-defbangstructs.lisp
@@
-16,7
+16,4
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
#+sb-xc-host (force-delayed-def!structs)
#+sb-xc-host (force-delayed-def!structs)
diff --git
a/src/code/foreign.lisp
b/src/code/foreign.lisp
index
da50eac
..
636a4d2
100644
(file)
--- a/
src/code/foreign.lisp
+++ b/
src/code/foreign.lisp
@@
-11,9
+11,6
@@
(in-package "SB-SYS")
(in-package "SB-SYS")
-(file-comment
- "$Header$")
-
;;; not needed until we implement full-blown LOAD-FOREIGN
#|
(defun pick-temporary-file-name (&optional
;;; 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
(file)
--- a/
src/code/format-time.lisp
+++ b/
src/code/format-time.lisp
@@
-11,9
+11,6
@@
(in-package "SB!EXT")
(in-package "SB!EXT")
-(file-comment
- "$Header$")
-
(defconstant abbrev-weekday-table
'#("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun"))
(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
(file)
--- a/
src/code/gc.lisp
+++ b/
src/code/gc.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!KERNEL")
;;;; files for more information.
(in-package "SB!KERNEL")
-
-(file-comment
- "$Header$")
\f
;;;; DYNAMIC-USAGE and friends
\f
;;;; DYNAMIC-USAGE and friends
diff --git
a/src/code/globals.lisp
b/src/code/globals.lisp
index
1eb72dd
..
70885e9
100644
(file)
--- a/
src/code/globals.lisp
+++ b/
src/code/globals.lisp
@@
-15,9
+15,6
@@
(in-package "SB!IMPL")
(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*
;;; 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
(file)
--- a/
src/code/hash-table.lisp
+++ b/
src/code/hash-table.lisp
@@
-12,9
+12,6
@@
(in-package "SB!IMPL")
(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
;;; 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
(file)
--- a/
src/code/host-alieneval.lisp
+++ b/
src/code/host-alieneval.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!ALIEN")
;;;; files for more information.
(in-package "SB!ALIEN")
-
-(file-comment
- "$Header$")
\f
;;;; utility functions
\f
;;;; utility functions
diff --git
a/src/code/host-c-call.lisp
b/src/code/host-c-call.lisp
index
f86f24c
..
8977f80
100644
(file)
--- a/
src/code/host-c-call.lisp
+++ b/
src/code/host-c-call.lisp
@@
-9,9
+9,6
@@
(in-package "SB!C-CALL")
(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 ()
(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
(file)
--- a/
src/code/inspect.lisp
+++ b/
src/code/inspect.lisp
@@
-11,9
+11,6
@@
(in-package "SB-INSPECT")
(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
;;; 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
(file)
--- a/
src/code/interr.lisp
+++ b/
src/code/interr.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!KERNEL")
;;;; files for more information.
(in-package "SB!KERNEL")
-
-(file-comment
- "$Header$")
\f
;;;; internal errors
\f
;;;; internal errors
diff --git
a/src/code/irrat.lisp
b/src/code/irrat.lisp
index
9e71d15
..
dcd15c1
100644
(file)
--- a/
src/code/irrat.lisp
+++ b/
src/code/irrat.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!KERNEL")
;;;; files for more information.
(in-package "SB!KERNEL")
-
-(file-comment
- "$Header$")
\f
;;;; miscellaneous constants, utility functions, and macros
\f
;;;; miscellaneous constants, utility functions, and macros
diff --git
a/src/code/kernel.lisp
b/src/code/kernel.lisp
index
4fd172c
..
42fe943
100644
(file)
--- a/
src/code/kernel.lisp
+++ b/
src/code/kernel.lisp
@@
-11,9
+11,6
@@
(in-package "SB!KERNEL")
(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
(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
(file)
--- a/
src/code/late-defbangmethod.lisp
+++ b/
src/code/late-defbangmethod.lisp
@@
-9,9
+9,6
@@
(in-package "SB!IMPL")
(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
;;; 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
(file)
--- a/
src/code/late-extensions.lisp
+++ b/
src/code/late-extensions.lisp
@@
-9,9
+9,6
@@
(in-package "SB!EXT")
(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
(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
(file)
--- a/
src/code/late-format.lisp
+++ b/
src/code/late-format.lisp
@@
-8,9
+8,6
@@
;;;; files for more information.
(in-package "SB!FORMAT")
;;;; files for more information.
(in-package "SB!FORMAT")
-
-(file-comment
- "$Header$")
\f
(define-condition format-error (error)
((complaint :reader format-error-complaint :initarg :complaint)
\f
(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
(file)
--- a/
src/code/late-setf.lisp
+++ b/
src/code/late-setf.lisp
@@
-17,9
+17,6
@@
(in-package "SB!IMPL")
(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
(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
(file)
--- 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")
;;;; files for more information.
(in-package "SB!CONDITIONS")
-
-(sb!int:file-comment
- "$Header$")
\f
;;;; the CONDITION class
\f
;;;; the CONDITION class
diff --git
a/src/code/late-type.lisp
b/src/code/late-type.lisp
index
0a51a0b
..
656bb63
100644
(file)
--- a/
src/code/late-type.lisp
+++ b/
src/code/late-type.lisp
@@
-16,9
+16,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
(!begin-collecting-cold-init-forms)
;;; ### Remaining incorrectnesses:
(!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
(file)
--- a/
src/code/linux-os.lisp
+++ b/
src/code/linux-os.lisp
@@
-11,10
+11,8
@@
(in-package "SB!SYS")
(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 ()
#!-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
(file)
--- a/
src/code/lisp-stream.lisp
+++ b/
src/code/lisp-stream.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(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"))
(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
(file)
--- a/
src/code/list.lisp
+++ b/
src/code/list.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
;;;; KLUDGE: comment from CMU CL, what does it mean?
;;;; NSUBLIS, things at the beginning broken.
;;;; -- WHN 20000127
;;;; 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
(file)
--- a/
src/code/load.lisp
+++ b/
src/code/load.lisp
@@
-15,9
+15,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; variables
\f
;;;; variables
diff --git
a/src/code/loop.lisp
b/src/code/loop.lisp
index
784a2f1
..
b1ef79a
100644
(file)
--- a/
src/code/loop.lisp
+++ b/
src/code/loop.lisp
@@
-66,9
+66,6
@@
(in-package "SB!LOOP")
(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:
;;;;
;;;; 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
(file)
--- a/
src/code/macroexpand.lisp
+++ b/
src/code/macroexpand.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; syntactic environment access
\f
;;;; syntactic environment access
diff --git
a/src/code/macros.lisp
b/src/code/macros.lisp
index
8f6d386
..
4312df9
100644
(file)
--- a/
src/code/macros.lisp
+++ b/
src/code/macros.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; ASSERT and CHECK-TYPE
\f
;;;; ASSERT and CHECK-TYPE
diff --git
a/src/code/mipsstrops.lisp
b/src/code/mipsstrops.lisp
index
d581688
..
956a7a4
100644
(file)
--- a/
src/code/mipsstrops.lisp
+++ b/
src/code/mipsstrops.lisp
@@
-12,9
+12,6
@@
(in-package "SB!IMPL")
(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
;(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
(file)
--- a/
src/code/misc.lisp
+++ b/
src/code/misc.lisp
@@
-12,9
+12,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(defun sb!xc:lisp-implementation-type ()
"SBCL")
(defun sb!xc:lisp-implementation-type ()
"SBCL")
diff --git
a/src/code/module.lisp
b/src/code/module.lisp
index
f7f3e5d
..
7091233
100644
(file)
--- a/
src/code/module.lisp
+++ b/
src/code/module.lisp
@@
-18,9
+18,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; exported specials
\f
;;;; exported specials
diff --git
a/src/code/ntrace.lisp
b/src/code/ntrace.lisp
index
2ac8fc1
..
c0f0511
100644
(file)
--- a/
src/code/ntrace.lisp
+++ b/
src/code/ntrace.lisp
@@
-11,11
+11,9
@@
(in-package "SB-DEBUG")
(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
(defvar *trace-values* nil
#+sb-doc
diff --git
a/src/code/numbers.lisp
b/src/code/numbers.lisp
index
55ff7b3
..
6e1b0ce
100644
(file)
--- a/
src/code/numbers.lisp
+++ b/
src/code/numbers.lisp
@@
-11,9
+11,6
@@
(in-package "SB!KERNEL")
(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)
;;; 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
(file)
--- a/
src/code/package.lisp
+++ b/
src/code/package.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; the PACKAGE-HASHTABLE structure
\f
;;;; the PACKAGE-HASHTABLE structure
diff --git
a/src/code/parse-body.lisp
b/src/code/parse-body.lisp
index
1dfb055
..
c6926a9
100644
(file)
--- a/
src/code/parse-body.lisp
+++ b/
src/code/parse-body.lisp
@@
-16,9
+16,6
@@
(in-package "SB!INT")
(in-package "SB!INT")
-(file-comment
- "$Header$")
-
(/show0 "entering parse-body.lisp")
;;; Given a sequence of declarations (and possibly a documentation
(/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
(file)
--- a/
src/code/parse-defmacro-errors.lisp
+++ b/
src/code/parse-defmacro-errors.lisp
@@
-15,9
+15,6
@@
(in-package "SB!KERNEL")
(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)
;;; 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
(file)
--- a/
src/code/parse-defmacro.lisp
+++ b/
src/code/parse-defmacro.lisp
@@
-11,9
+11,6
@@
(in-package "SB!KERNEL")
(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
;;; 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
(file)
--- a/
src/code/pathname.lisp
+++ b/
src/code/pathname.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; data types used by pathnames
\f
;;;; data types used by pathnames
diff --git
a/src/code/pp-backq.lisp
b/src/code/pp-backq.lisp
index
1b2e2af
..
bbc1e85
100644
(file)
--- a/
src/code/pp-backq.lisp
+++ b/
src/code/pp-backq.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(defun backq-unparse-expr (form splicing)
(ecase splicing
((nil)
(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
(file)
--- a/
src/code/pprint.lisp
+++ b/
src/code/pprint.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!PRETTY")
;;;; files for more information.
(in-package "SB!PRETTY")
-
-(file-comment
- "$Header$")
\f
;;;; pretty streams
\f
;;;; pretty streams
diff --git
a/src/code/pred.lisp
b/src/code/pred.lisp
index
208f637
..
559c641
100644
(file)
--- a/
src/code/pred.lisp
+++ b/
src/code/pred.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; miscellaneous non-primitive predicates
\f
;;;; miscellaneous non-primitive predicates
diff --git
a/src/code/print.lisp
b/src/code/print.lisp
index
4f3c28a
..
0c19b98
100644
(file)
--- a/
src/code/print.lisp
+++ b/
src/code/print.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; exported printer control variables
\f
;;;; exported printer control variables
diff --git
a/src/code/purify.lisp
b/src/code/purify.lisp
index
32bef5b
..
21317bf
100644
(file)
--- a/
src/code/purify.lisp
+++ b/
src/code/purify.lisp
@@
-9,9
+9,6
@@
(in-package "SB!KERNEL")
(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))
(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
(file)
--- a/
src/code/query.lisp
+++ b/
src/code/query.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(defun query-readline ()
(force-output *query-io*)
(string-trim " " (read-line *query-io*)))
(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
(file)
--- a/
src/code/random.lisp
+++ b/
src/code/random.lisp
@@
-9,9
+9,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
;;; the size of the chunks returned by RANDOM-CHUNK
(defconstant random-chunk-length 32)
;;; 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
(file)
--- a/
src/code/reader.lisp
+++ b/
src/code/reader.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;; miscellaneous global variables
\f
;;; miscellaneous global variables
diff --git
a/src/code/readtable.lisp
b/src/code/readtable.lisp
index
0de32c0
..
a4d412d
100644
(file)
--- a/
src/code/readtable.lisp
+++ b/
src/code/readtable.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(sb!xc:deftype attribute-table ()
'(simple-array (unsigned-byte 8) (#.char-code-limit)))
(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
(file)
--- a/
src/code/room.lisp
+++ b/
src/code/room.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; type format database
\f
;;;; type format database
diff --git
a/src/code/run-program.lisp
b/src/code/run-program.lisp
index
13acdf9
..
7658e80
100644
(file)
--- a/
src/code/run-program.lisp
+++ b/
src/code/run-program.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB-EXT")
;;;; files for more information.
(in-package "SB-EXT")
-
-(file-comment
- "$Header$")
\f
;;;; Import wait3(2) from Unix.
\f
;;;; Import wait3(2) from Unix.
diff --git
a/src/code/save.lisp
b/src/code/save.lisp
index
ad79a4d
..
326b8ba
100644
(file)
--- a/
src/code/save.lisp
+++ b/
src/code/save.lisp
@@
-14,9
+14,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
(defvar *before-save-initializations* nil
#!+sb-doc
\f
(defvar *before-save-initializations* nil
#!+sb-doc
diff --git
a/src/code/seq.lisp
b/src/code/seq.lisp
index
7baeb3c
..
a4fa138
100644
(file)
--- a/
src/code/seq.lisp
+++ b/
src/code/seq.lisp
@@
-17,9
+17,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; utilities
\f
;;;; utilities
diff --git
a/src/code/serve-event.lisp
b/src/code/serve-event.lisp
index
92cc9b2
..
10e1269
100644
(file)
--- a/
src/code/serve-event.lisp
+++ b/
src/code/serve-event.lisp
@@
-8,9
+8,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
#|
;;;; object set stuff
\f
#|
;;;; object set stuff
diff --git
a/src/code/setf-funs.lisp
b/src/code/setf-funs.lisp
index
9c9a3ff
..
4073fc8
100644
(file)
--- a/
src/code/setf-funs.lisp
+++ b/
src/code/setf-funs.lisp
@@
-12,9
+12,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
(eval-when (:compile-toplevel :execute)
(defun compute-one-setter (name type)
(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
(file)
--- a/
src/code/sharpm.lisp
+++ b/
src/code/sharpm.lisp
@@
-8,9
+8,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
(declaim (special *read-suppress* *standard-readtable* *bq-vector-flag*))
\f
(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
(file)
--- a/
src/code/show.lisp
+++ b/
src/code/show.lisp
@@
-44,10
+44,6
@@
etc."
(declare (ignore string))
'(values))
etc."
(declare (ignore string))
'(values))
-
-;;; Now that we've got it, we can use it.
-(file-comment
- "$Header$")
\f
;;;; various SB-SHOW-dependent forms
\f
;;;; various SB-SHOW-dependent forms
diff --git
a/src/code/signal.lisp
b/src/code/signal.lisp
index
8bf189d
..
46679aa
100644
(file)
--- a/
src/code/signal.lisp
+++ b/
src/code/signal.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!UNIX")
;;;; files for more information.
(in-package "SB!UNIX")
-
-(file-comment
- "$Header$")
\f
;;;; macros for dynamically enabling and disabling signal handling
\f
;;;; macros for dynamically enabling and disabling signal handling
diff --git
a/src/code/sort.lisp
b/src/code/sort.lisp
index
8fc883d
..
1a674ea
100644
(file)
--- a/
src/code/sort.lisp
+++ b/
src/code/sort.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(defun sort (sequence predicate &key key)
#!+sb-doc
"Destructively sorts sequence. Predicate should return non-Nil if
(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
(file)
--- a/
src/code/specializable-array.lisp
+++ b/
src/code/specializable-array.lisp
@@
-12,9
+12,6
@@
(in-package "SB!KERNEL")
(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
;;; 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
(file)
--- a/
src/code/stream.lisp
+++ b/
src/code/stream.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(deftype string-stream ()
'(or string-input-stream string-output-stream
fill-pointer-output-stream))
(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
(file)
--- a/
src/code/string.lisp
+++ b/
src/code/string.lisp
@@
-9,9
+9,6
@@
(in-package "SB!IMPL")
(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
(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
(file)
--- a/
src/code/symbol.lisp
+++ b/
src/code/symbol.lisp
@@
-15,9
+15,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(declaim (maybe-inline get %put getf remprop %putf get-properties keywordp))
(defun symbol-value (variable)
(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
(file)
--- a/
src/code/sysmacs.lisp
+++ b/
src/code/sysmacs.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(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
;;; 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
(file)
--- a/
src/code/target-alieneval.lisp
+++ b/
src/code/target-alieneval.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!ALIEN")
;;;; files for more information.
(in-package "SB!ALIEN")
-
-(file-comment
- "$Header$")
\f
;;;; alien variables
\f
;;;; alien variables
diff --git
a/src/code/target-c-call.lisp
b/src/code/target-c-call.lisp
index
65e8478
..
df2459e
100644
(file)
--- 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")
;;;; files for more information.
(in-package "SB!C-CALL")
-
-(sb!int:file-comment
- "$Header$")
\f
;;;; extra types
\f
;;;; extra types
diff --git
a/src/code/target-defbangmethod.lisp
b/src/code/target-defbangmethod.lisp
index
d361fd1
..
ddb6e10
100644
(file)
--- a/
src/code/target-defbangmethod.lisp
+++ b/
src/code/target-defbangmethod.lisp
@@
-9,7
+9,4
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(defvar *delayed-def!method-args* nil)
(defvar *delayed-def!method-args* nil)
diff --git
a/src/code/target-defstruct.lisp
b/src/code/target-defstruct.lisp
index
2fb05f8
..
92932cf
100644
(file)
--- a/
src/code/target-defstruct.lisp
+++ b/
src/code/target-defstruct.lisp
@@
-8,9
+8,6
@@
;;;; files for more information.
(in-package "SB!KERNEL")
;;;; files for more information.
(in-package "SB!KERNEL")
-
-(file-comment
- "$Header$")
\f
;;;; structure frobbing primitives
\f
;;;; structure frobbing primitives
diff --git
a/src/code/target-eval.lisp
b/src/code/target-eval.lisp
index
8f368fe
..
0baf841
100644
(file)
--- a/
src/code/target-eval.lisp
+++ b/
src/code/target-eval.lisp
@@
-9,9
+9,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
;;; FIXME: These probably belong in some package other than SB!IMPL.
;;; Perhaps SB!KERNEL?
;;; 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
(file)
--- a/
src/code/target-extensions.lisp
+++ b/
src/code/target-extensions.lisp
@@
-17,9
+17,6
@@
(in-package "SB!EXT")
(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)
;;; 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
(file)
--- a/
src/code/target-format.lisp
+++ b/
src/code/target-format.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!FORMAT")
;;;; files for more information.
(in-package "SB!FORMAT")
-
-(file-comment
- "$Header$")
\f
;;;; FORMAT
\f
;;;; FORMAT
diff --git
a/src/code/target-hash-table.lisp
b/src/code/target-hash-table.lisp
index
5175eab
..
ed6d7fe
100644
(file)
--- 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")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; utilities
\f
;;;; utilities
diff --git
a/src/code/target-load.lisp
b/src/code/target-load.lisp
index
8f8a1f0
..
dfa628e
100644
(file)
--- a/
src/code/target-load.lisp
+++ b/
src/code/target-load.lisp
@@
-13,9
+13,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(defvar *load-source-types* '("lisp" "l" "cl" "lsp")
#!+sb-doc
"The source file types which LOAD recognizes.")
(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
(file)
--- a/
src/code/target-misc.lisp
+++ b/
src/code/target-misc.lisp
@@
-14,9
+14,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
;;; cobbled from stuff in describe.lisp.
(defun function-doc (x)
(let ((name
;;; 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
(file)
--- a/
src/code/target-numbers.lisp
+++ b/
src/code/target-numbers.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!KERNEL")
;;;; files for more information.
(in-package "SB!KERNEL")
-
-(file-comment
- "$Header$")
\f
;;;; the NUMBER-DISPATCH macro
\f
;;;; the NUMBER-DISPATCH macro
diff --git
a/src/code/target-package.lisp
b/src/code/target-package.lisp
index
671bda9
..
c4aa06e
100644
(file)
--- a/
src/code/target-package.lisp
+++ b/
src/code/target-package.lisp
@@
-20,9
+20,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
(!begin-collecting-cold-init-forms)
(!cold-init-forms
(!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
(file)
--- a/
src/code/target-pathname.lisp
+++ b/
src/code/target-pathname.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment
- "$Header$")
-
#!-sb-fluid (declaim (freeze-type logical-pathname logical-host))
\f
;;; host methods
#!-sb-fluid (declaim (freeze-type logical-pathname logical-host))
\f
;;; host methods
diff --git
a/src/code/target-random.lisp
b/src/code/target-random.lisp
index
42e1a58
..
1756f7c
100644
(file)
--- a/
src/code/target-random.lisp
+++ b/
src/code/target-random.lisp
@@
-15,9
+15,6
@@
;;;; files for more information.
(in-package "SB!KERNEL")
;;;; files for more information.
(in-package "SB!KERNEL")
-
-(file-comment
- "$Header$")
\f
;;;; RANDOM-STATEs
\f
;;;; RANDOM-STATEs
diff --git
a/src/code/target-sap.lisp
b/src/code/target-sap.lisp
index
af1e851
..
56f0789
100644
(file)
--- 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.)
(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$")
\f
;;;; primitive SAP operations
\f
;;;; primitive SAP operations
diff --git
a/src/code/target-signal.lisp
b/src/code/target-signal.lisp
index
e81c212
..
7320196
100644
(file)
--- a/
src/code/target-signal.lisp
+++ b/
src/code/target-signal.lisp
@@
-11,9
+11,6
@@
(in-package "SB!UNIX")
(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)
;;; 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
(file)
--- a/
src/code/target-sxhash.lisp
+++ b/
src/code/target-sxhash.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(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
;;; 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
(file)
--- a/
src/code/target-type.lisp
+++ b/
src/code/target-type.lisp
@@
-11,9
+11,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
(!begin-collecting-cold-init-forms)
\f
;;; Just call %TYPEP.
(!begin-collecting-cold-init-forms)
\f
;;; Just call %TYPEP.
diff --git
a/src/code/time.lisp
b/src/code/time.lisp
index
4bb9d9c
..
c808845
100644
(file)
--- a/
src/code/time.lisp
+++ b/
src/code/time.lisp
@@
-11,9
+11,6
@@
(in-package "SB!IMPL")
(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
(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
(file)
--- a/
src/code/toplevel.lisp
+++ b/
src/code/toplevel.lisp
@@
-12,9
+12,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
(defconstant most-positive-fixnum #.sb!vm:*target-most-positive-fixnum*
#!+sb-doc
\f
(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
(file)
--- a/
src/code/type-class.lisp
+++ b/
src/code/type-class.lisp
@@
-11,9
+11,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
(!begin-collecting-cold-init-forms)
(defvar *type-classes*)
(!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
(file)
--- a/
src/code/type-init.lisp
+++ b/
src/code/type-init.lisp
@@
-17,9
+17,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
;;; built-in classes
(/show0 "beginning type-init.lisp")
(dolist (x *built-in-classes*)
;;; 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
(file)
--- a/
src/code/typedefs.lisp
+++ b/
src/code/typedefs.lisp
@@
-22,9
+22,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
(!begin-collecting-cold-init-forms)
;;; Define the translation from a type-specifier to a type structure for
(!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
(file)
--- a/
src/code/typep.lisp
+++ b/
src/code/typep.lisp
@@
-9,9
+9,6
@@
(in-package "SB!KERNEL")
(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)
;;; 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
(file)
--- a/
src/code/uncross.lisp
+++ b/
src/code/uncross.lisp
@@
-16,8
+16,6
@@
(in-package "SB!INT")
(in-package "SB!INT")
-;;;; $Header$
-
;;; In the target system's compiler, uncrossing is just identity.
#-sb-xc-host
(progn
;;; 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
(file)
--- a/
src/code/unix.lisp
+++ b/
src/code/unix.lisp
@@
-24,9
+24,6
@@
(in-package "SB!UNIX")
(in-package "SB!UNIX")
-(file-comment
- "$Header$")
-
(/show0 "unix.lisp 21")
;;;; common machine-independent structures
(/show0 "unix.lisp 21")
;;;; common machine-independent structures
diff --git
a/src/code/weak.lisp
b/src/code/weak.lisp
index
78bd218
..
8ce3367
100644
(file)
--- a/
src/code/weak.lisp
+++ b/
src/code/weak.lisp
@@
-11,9
+11,6
@@
(in-package "SB!EXT")
(in-package "SB!EXT")
-(file-comment
- "$Header$")
-
(defun make-weak-pointer (object)
#!+sb-doc
"Allocates and returns a weak pointer which points to OBJECT."
(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
(file)
--- a/
src/code/x86-vm.lisp
+++ b/
src/code/x86-vm.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; OS-CONTEXT-T
\f
;;;; OS-CONTEXT-T
diff --git
a/src/cold/ansify.lisp
b/src/cold/ansify.lisp
index
8e05fd4
..
7cf9c9b
100644
(file)
--- 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.
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
-;;;; $Header$
-
#+clisp
(locally
#+clisp
(locally
diff --git
a/src/cold/compile-cold-sbcl.lisp
b/src/cold/compile-cold-sbcl.lisp
index
7bd002c
..
7589dc1
100644
(file)
--- a/
src/cold/compile-cold-sbcl.lisp
+++ b/
src/cold/compile-cold-sbcl.lisp
@@
-14,8
+14,6
@@
(in-package "SB-COLD")
(in-package "SB-COLD")
-;;;; $Header$
-
(defvar *target-object-file-names*)
;;; KLUDGE..
(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
(file)
--- 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")
(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)
;;; 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
(file)
--- a/
src/cold/read-from-file.lisp
+++ b/
src/cold/read-from-file.lisp
@@
-9,8
+9,6
@@
(in-package "SB-COLD")
(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)
;;; 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
(file)
--- a/
src/cold/rename-package-carefully.lisp
+++ b/
src/cold/rename-package-carefully.lisp
@@
-9,8
+9,6
@@
(in-package "SB-COLD")
(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
;;; 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
(file)
--- a/
src/cold/set-up-cold-packages.lisp
+++ b/
src/cold/set-up-cold-packages.lisp
@@
-9,8
+9,6
@@
(in-package "SB-COLD")
(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
;;;
;;; 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
(file)
--- 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.
;;;; 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
;;; 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
(file)
--- a/
src/cold/shebang.lisp
+++ b/
src/cold/shebang.lisp
@@
-10,8
+10,6
@@
;;;; files for more information.
(in-package "SB-COLD")
;;;; files for more information.
(in-package "SB-COLD")
-
-;;;; $Header$
\f
;;;; definition of #!+ and #!- as a mechanism analogous to #+/#-,
;;;; but redirectable to any list of features. (This is handy when
\f
;;;; 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
(file)
--- a/
src/cold/snapshot.lisp
+++ b/
src/cold/snapshot.lisp
@@
-11,8
+11,6
@@
(in-package "SB-COLD")
(in-package "SB-COLD")
-;;;; $Header$
-
(defstruct snapshot
(hash-table (make-hash-table :test 'eq)
:type hash-table
(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
(file)
--- a/
src/cold/warm.lisp
+++ b/
src/cold/warm.lisp
@@
-10,8
+10,6
@@
;;;; files for more information.
(in-package "COMMON-LISP-USER")
;;;; files for more information.
(in-package "COMMON-LISP-USER")
-
-;;;; $Header$
\f
;;;; general warm init compilation policy
\f
;;;; general warm init compilation policy
diff --git
a/src/cold/with-stuff.lisp
b/src/cold/with-stuff.lisp
index
0e39e3a
..
aff7a7f
100644
(file)
--- a/
src/cold/with-stuff.lisp
+++ b/
src/cold/with-stuff.lisp
@@
-12,8
+12,6
@@
(in-package "SB-COLD")
(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"))
;;; 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
(file)
--- a/
src/compiler/aliencomp.lisp
+++ b/
src/compiler/aliencomp.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; DEFKNOWNs
\f
;;;; DEFKNOWNs
diff --git
a/src/compiler/array-tran.lisp
b/src/compiler/array-tran.lisp
index
4cb72ca
..
a21399b
100644
(file)
--- a/
src/compiler/array-tran.lisp
+++ b/
src/compiler/array-tran.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; Derive-Type Optimizers
\f
;;;; Derive-Type Optimizers
diff --git
a/src/compiler/assem.lisp
b/src/compiler/assem.lisp
index
e3cb3c7
..
83c957c
100644
(file)
--- a/
src/compiler/assem.lisp
+++ b/
src/compiler/assem.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!ASSEM")
;;;; files for more information.
(in-package "SB!ASSEM")
-
-(sb!int:file-comment
- "$Header$")
\f
;;;; assembly control parameters
\f
;;;; assembly control parameters
diff --git
a/src/compiler/backend.lisp
b/src/compiler/backend.lisp
index
06e7d53
..
9a58ec8
100644
(file)
--- a/
src/compiler/backend.lisp
+++ b/
src/compiler/backend.lisp
@@
-20,9
+20,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; miscellaneous backend properties
\f
;;;; miscellaneous backend properties
diff --git
a/src/compiler/bit-util.lisp
b/src/compiler/bit-util.lisp
index
f927c5e
..
13cfb7e
100644
(file)
--- a/
src/compiler/bit-util.lisp
+++ b/
src/compiler/bit-util.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
#!-sb-fluid
(declaim (inline clear-bit-vector set-bit-vector bit-vector-replace
bit-vector-copy))
#!-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
(file)
--- a/
src/compiler/byte-comp.lisp
+++ b/
src/compiler/byte-comp.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
;;;; the fasl file format that we use
(defconstant byte-fasl-file-version 1)
;;;; 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
(file)
--- a/
src/compiler/checkgen.lisp
+++ b/
src/compiler/checkgen.lisp
@@
-13,9
+13,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; cost estimation
\f
;;;; cost estimation
diff --git
a/src/compiler/codegen.lisp
b/src/compiler/codegen.lisp
index
861bced
..
12c3ab4
100644
(file)
--- a/
src/compiler/codegen.lisp
+++ b/
src/compiler/codegen.lisp
@@
-13,9
+13,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; utilities used during code generation
\f
;;;; utilities used during code generation
diff --git
a/src/compiler/compiler-deftype.lisp
b/src/compiler/compiler-deftype.lisp
index
298bc91
..
ac9f364
100644
(file)
--- a/
src/compiler/compiler-deftype.lisp
+++ b/
src/compiler/compiler-deftype.lisp
@@
-11,8
+11,6
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(file-comment "$Header$")
-
(defun %compiler-deftype (name expander &optional doc)
(ecase (info :type :kind name)
(:primitive
(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
(file)
--- a/
src/compiler/compiler-error.lisp
+++ b/
src/compiler/compiler-error.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(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*
;;; 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
(file)
--- a/
src/compiler/constraint.lisp
+++ b/
src/compiler/constraint.lisp
@@
-13,9
+13,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
(defstruct (constraint
(:include sset-element)
(:constructor make-constraint (number kind x y not-p)))
(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
(file)
--- a/
src/compiler/control.lisp
+++ b/
src/compiler/control.lisp
@@
-18,9
+18,6
@@
(in-package "SB!C")
(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))
;;; 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
(file)
--- a/
src/compiler/copyprop.lisp
+++ b/
src/compiler/copyprop.lisp
@@
-13,9
+13,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/ctype.lisp
+++ b/
src/compiler/ctype.lisp
@@
-13,9
+13,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/debug-dump.lisp
+++ b/
src/compiler/debug-dump.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
(deftype byte-buffer () '(vector (unsigned-byte 8)))
(defvar *byte-buffer*)
(declaim (type byte-buffer *byte-buffer*))
(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
(file)
--- a/
src/compiler/debug.lisp
+++ b/
src/compiler/debug.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
(defvar *args* ()
#!+sb-doc
"This variable is bound to the format arguments when an error is signalled
(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
(file)
--- a/
src/compiler/deftype.lisp
+++ b/
src/compiler/deftype.lisp
@@
-9,9
+9,6
@@
(in-package "SB!IMPL")
(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."
(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
(file)
--- a/
src/compiler/dfo.lisp
+++ b/
src/compiler/dfo.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(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.
;;; 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
(file)
--- a/
src/compiler/disassem.lisp
+++ b/
src/compiler/disassem.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!DISASSEM")
;;;; files for more information.
(in-package "SB!DISASSEM")
-
-(file-comment
- "$Header$")
\f
;;; types and defaults
\f
;;; types and defaults
diff --git
a/src/compiler/dump.lisp
b/src/compiler/dump.lisp
index
909412b
..
12381ca
100644
(file)
--- a/
src/compiler/dump.lisp
+++ b/
src/compiler/dump.lisp
@@
-11,9
+11,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/dyncount.lisp
+++ b/
src/compiler/dyncount.lisp
@@
-11,9
+11,6
@@
(in-package "SB!DYNCOUNT")
(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.")
(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
(file)
--- a/
src/compiler/early-assem.lisp
+++ b/
src/compiler/early-assem.lisp
@@
-11,9
+11,6
@@
(in-package "SB!ASSEM")
(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
;;; 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
(file)
--- a/
src/compiler/early-c.lisp
+++ b/
src/compiler/early-c.lisp
@@
-15,9
+15,6
@@
(in-package "SB!C")
(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)
;;; 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
(file)
--- a/
src/compiler/entry.lisp
+++ b/
src/compiler/entry.lisp
@@
-13,9
+13,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/envanal.lisp
+++ b/
src/compiler/envanal.lisp
@@
-15,9
+15,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/eval-comp.lisp
+++ b/
src/compiler/eval-comp.lisp
@@
-13,9
+13,6
@@
(in-package "SB!C")
(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*
;;; 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
(file)
--- a/
src/compiler/eval.lisp
+++ b/
src/compiler/eval.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!EVAL")
;;;; files for more information.
(in-package "SB!EVAL")
-
-(file-comment
- "$Header$")
\f
;;;; interpreter stack
\f
;;;; interpreter stack
diff --git
a/src/compiler/fixup.lisp
b/src/compiler/fixup.lisp
index
d789bbf
..
a92188e
100644
(file)
--- a/
src/compiler/fixup.lisp
+++ b/
src/compiler/fixup.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
;;; FIXUP -- A fixup of some kind.
(defstruct (fixup
(:constructor make-fixup (name flavor &optional offset)))
;;; 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
(file)
--- a/
src/compiler/float-tran.lisp
+++ b/
src/compiler/float-tran.lisp
@@
-12,9
+12,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; coercions
\f
;;;; coercions
diff --git
a/src/compiler/fndb.lisp
b/src/compiler/fndb.lisp
index
9cb9f3b
..
c3251fd
100644
(file)
--- a/
src/compiler/fndb.lisp
+++ b/
src/compiler/fndb.lisp
@@
-12,9
+12,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; information for known functions:
\f
;;;; information for known functions:
diff --git
a/src/compiler/generic/core.lisp
b/src/compiler/generic/core.lisp
index
602dfc7
..
db0196b
100644
(file)
--- a/
src/compiler/generic/core.lisp
+++ b/
src/compiler/generic/core.lisp
@@
-11,9
+11,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/generic/early-objdef.lisp
+++ b/
src/compiler/generic/early-objdef.lisp
@@
-11,9
+11,6
@@
(in-package "SB!VM")
(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
;;; 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
(file)
--- a/
src/compiler/generic/early-vm-macs.lisp
+++ b/
src/compiler/generic/early-vm-macs.lisp
@@
-9,9
+9,6
@@
(in-package "SB!VM")
(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(defmacro defenum ((&key (prefix "") (suffix "") (start 0) (step 1))
&rest identifiers)
(let ((results nil)
(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
(file)
--- a/
src/compiler/generic/early-vm.lisp
+++ b/
src/compiler/generic/early-vm.lisp
@@
-9,9
+9,6
@@
(in-package "SB!VM")
(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(eval-when (:compile-toplevel :execute :load-toplevel)
(defconstant lowtag-bits 3
(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
(file)
--- a/
src/compiler/generic/genesis.lisp
+++ b/
src/compiler/generic/genesis.lisp
@@
-25,9
+25,6
@@
(in-package "SB!IMPL")
(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)
;;; 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
(file)
--- a/
src/compiler/generic/interr.lisp
+++ b/
src/compiler/generic/interr.lisp
@@
-13,9
+13,6
@@
(in-package "SB!KERNEL")
(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)))
(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
(file)
--- a/
src/compiler/generic/objdef.lisp
+++ b/
src/compiler/generic/objdef.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; the primitive objects themselves
\f
;;;; the primitive objects themselves
diff --git
a/src/compiler/generic/primtype.lisp
b/src/compiler/generic/primtype.lisp
index
4c2a7d5
..
5ec9ad5
100644
(file)
--- a/
src/compiler/generic/primtype.lisp
+++ b/
src/compiler/generic/primtype.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; primitive type definitions
\f
;;;; primitive type definitions
diff --git
a/src/compiler/generic/target-core.lisp
b/src/compiler/generic/target-core.lisp
index
8e60139
..
6a22302
100644
(file)
--- a/
src/compiler/generic/target-core.lisp
+++ b/
src/compiler/generic/target-core.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(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))
;;; 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
(file)
--- a/
src/compiler/generic/utils.lisp
+++ b/
src/compiler/generic/utils.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
(defun fixnumize (num)
#!+sb-doc
\f
(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
(file)
--- 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")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; internal type predicates
\f
;;;; internal type predicates
diff --git
a/src/compiler/generic/vm-ir2tran.lisp
b/src/compiler/generic/vm-ir2tran.lisp
index
34827bc
..
247e09b
100644
(file)
--- a/
src/compiler/generic/vm-ir2tran.lisp
+++ b/
src/compiler/generic/vm-ir2tran.lisp
@@
-9,9
+9,6
@@
(in-package "SB!C")
(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
(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
(file)
--- 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")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; other miscellaneous stuff
\f
;;;; other miscellaneous stuff
diff --git
a/src/compiler/generic/vm-tran.lisp
b/src/compiler/generic/vm-tran.lisp
index
a191047
..
6d90e85
100644
(file)
--- a/
src/compiler/generic/vm-tran.lisp
+++ b/
src/compiler/generic/vm-tran.lisp
@@
-11,9
+11,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/generic/vm-type.lisp
+++ b/
src/compiler/generic/vm-type.lisp
@@
-14,9
+14,6
@@
(in-package "SB!KERNEL")
(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
(!begin-collecting-cold-init-forms)
\f
;;;; FIXME: I'm not sure where to put this. -- WHN 19990817
(!begin-collecting-cold-init-forms)
\f
;;;; 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
(file)
--- 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")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; internal predicates
\f
;;;; internal predicates
diff --git
a/src/compiler/globaldb.lisp
b/src/compiler/globaldb.lisp
index
9245d14
..
b27deb3
100644
(file)
--- a/
src/compiler/globaldb.lisp
+++ b/
src/compiler/globaldb.lisp
@@
-24,9
+24,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
(!begin-collecting-cold-init-forms)
#!+sb-show (!cold-init-forms (/show0 "early in globaldb.lisp cold init"))
(!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
9fd87e6
..
ac9fc62
100644
(file)
--- a/
src/compiler/gtn.lisp
+++ b/
src/compiler/gtn.lisp
@@
-14,9
+14,6
@@
(in-package "SB!C")
(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)
;;; 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
(file)
--- a/
src/compiler/info-functions.lisp
+++ b/
src/compiler/info-functions.lisp
@@
-16,9
+16,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;; Check the legality of a function name that is being introduced.
;;; -- If it names a macro, then give a warning and blast the macro
\f
;;; 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
(file)
--- a/
src/compiler/ir1final.lisp
+++ b/
src/compiler/ir1final.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/ir1opt.lisp
+++ b/
src/compiler/ir1opt.lisp
@@
-15,9
+15,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; interface for obtaining results of constant folding
\f
;;;; interface for obtaining results of constant folding
diff --git
a/src/compiler/ir1tran.lisp
b/src/compiler/ir1tran.lisp
index
89c17f6
..
b285870
100644
(file)
--- a/
src/compiler/ir1tran.lisp
+++ b/
src/compiler/ir1tran.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
(declaim (special *compiler-error-bailout*))
;;; *SOURCE-PATHS* is a hashtable from source code forms to the path
(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
(file)
--- a/
src/compiler/ir1util.lisp
+++ b/
src/compiler/ir1util.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; cleanup hackery
\f
;;;; cleanup hackery
diff --git
a/src/compiler/ir2tran.lisp
b/src/compiler/ir2tran.lisp
index
07948b7
..
2250191
100644
(file)
--- a/
src/compiler/ir2tran.lisp
+++ b/
src/compiler/ir2tran.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; moves and type checks
\f
;;;; moves and type checks
diff --git
a/src/compiler/knownfun.lisp
b/src/compiler/knownfun.lisp
index
3d2ee4f
..
d4929cc
100644
(file)
--- a/
src/compiler/knownfun.lisp
+++ b/
src/compiler/knownfun.lisp
@@
-14,9
+14,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
;;; IR1 boolean function attributes
;;;
;;; There are a number of boolean attributes of known functions which we like
;;; 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
(file)
--- a/
src/compiler/late-macros.lisp
+++ b/
src/compiler/late-macros.lisp
@@
-17,9
+17,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
#+sb-xc-host
(sb!xc:defmacro def-boolean-attribute (name &rest attribute-names)
#!+sb-doc
#+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
(file)
--- a/
src/compiler/late-vmdef.lisp
+++ b/
src/compiler/late-vmdef.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
(defun note-this-location (vop kind)
#!+sb-doc
"NOTE-THIS-LOCATION VOP Kind
(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
(file)
--- a/
src/compiler/lexenv.lisp
+++ b/
src/compiler/lexenv.lisp
@@
-11,9
+11,6
@@
(in-package "SB!C")
(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.
#!-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
(file)
--- a/
src/compiler/life.lisp
+++ b/
src/compiler/life.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; utilities
\f
;;;; utilities
diff --git
a/src/compiler/locall.lisp
b/src/compiler/locall.lisp
index
f474bc1
..
f98eb7b
100644
(file)
--- a/
src/compiler/locall.lisp
+++ b/
src/compiler/locall.lisp
@@
-21,9
+21,6
@@
(in-package "SB!C")
(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.
;;; 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
(file)
--- a/
src/compiler/ltn.lisp
+++ b/
src/compiler/ltn.lisp
@@
-12,9
+12,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; utilities
\f
;;;; utilities
diff --git
a/src/compiler/ltv.lisp
b/src/compiler/ltv.lisp
index
af6922d
..
6d8e83a
100644
(file)
--- a/
src/compiler/ltv.lisp
+++ b/
src/compiler/ltv.lisp
@@
-11,9
+11,6
@@
(in-package "SB!C")
(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)
(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
(file)
--- a/
src/compiler/macros.lisp
+++ b/
src/compiler/macros.lisp
@@
-11,9
+11,6
@@
(in-package "SB!C")
(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
(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
(file)
--- a/
src/compiler/main.lisp
+++ b/
src/compiler/main.lisp
@@
-11,9
+11,6
@@
(in-package "SB!C")
(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*
;;; 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
(file)
--- a/
src/compiler/meta-vmdef.lisp
+++ b/
src/compiler/meta-vmdef.lisp
@@
-17,9
+17,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; storage class and storage base definition
\f
;;;; storage class and storage base definition
diff --git
a/src/compiler/node.lisp
b/src/compiler/node.lisp
index
f4a0f68
..
a96deb2
100644
(file)
--- a/
src/compiler/node.lisp
+++ b/
src/compiler/node.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/pack.lisp
+++ b/
src/compiler/pack.lisp
@@
-13,14
+13,12
@@
(in-package "SB!C")
(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)
(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))
\f
(declaim (ftype (function (component) index) ir2-block-count))
\f
diff --git
a/src/compiler/parse-lambda-list.lisp
b/src/compiler/parse-lambda-list.lisp
index
644296a
..
3a3a1f3
100644
(file)
--- a/
src/compiler/parse-lambda-list.lisp
+++ b/
src/compiler/parse-lambda-list.lisp
@@
-9,9
+9,6
@@
(in-package "SB!C")
(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.
;;; 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
(file)
--- a/
src/compiler/proclaim.lisp
+++ b/
src/compiler/proclaim.lisp
@@
-14,9
+14,6
@@
(in-package "SB!C")
(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.
;;; !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
(file)
--- a/
src/compiler/pseudo-vops.lisp
+++ b/
src/compiler/pseudo-vops.lisp
@@
-13,9
+13,6
@@
(in-package "SB!C")
(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)
;;; 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
(file)
--- a/
src/compiler/represent.lisp
+++ b/
src/compiler/represent.lisp
@@
-14,9
+14,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; error routines
;;;;
\f
;;;; error routines
;;;;
diff --git
a/src/compiler/saptran.lisp
b/src/compiler/saptran.lisp
index
4719183
..
fcc376b
100644
(file)
--- a/
src/compiler/saptran.lisp
+++ b/
src/compiler/saptran.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; DEFKNOWNs
\f
;;;; DEFKNOWNs
diff --git
a/src/compiler/seqtran.lisp
b/src/compiler/seqtran.lisp
index
f00d8c3
..
83c5e4e
100644
(file)
--- a/
src/compiler/seqtran.lisp
+++ b/
src/compiler/seqtran.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; mapping onto lists: the MAPFOO functions
\f
;;;; mapping onto lists: the MAPFOO functions
diff --git
a/src/compiler/srctran.lisp
b/src/compiler/srctran.lisp
index
1b3eee6
..
6a18bcf
100644
(file)
--- a/
src/compiler/srctran.lisp
+++ b/
src/compiler/srctran.lisp
@@
-13,9
+13,6
@@
(in-package "SB!C")
(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))
;;; 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
(file)
--- a/
src/compiler/sset.lisp
+++ b/
src/compiler/sset.lisp
@@
-15,9
+15,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/stack.lisp
+++ b/
src/compiler/stack.lisp
@@
-13,9
+13,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;; Scan through Block looking for uses of :Unknown continuations that have
;;; their Dest outside of the block. We do some checking to verify the
\f
;;; 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
(file)
--- a/
src/compiler/target-byte-comp.lisp
+++ b/
src/compiler/target-byte-comp.lisp
@@
-13,9
+13,6
@@
(in-package "SB!C")
(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
;;; 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
(file)
--- a/
src/compiler/target-disassem.lisp
+++ b/
src/compiler/target-disassem.lisp
@@
-11,9
+11,6
@@
(in-package "SB!DISASSEM")
(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).
;;;; 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
(file)
--- a/
src/compiler/target-dump.lisp
+++ b/
src/compiler/target-dump.lisp
@@
-13,9
+13,6
@@
(in-package "SB!C")
(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)
;;; 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
(file)
--- a/
src/compiler/target-main.lisp
+++ b/
src/compiler/target-main.lisp
@@
-12,9
+12,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; COMPILE and UNCOMPILE
\f
;;;; COMPILE and UNCOMPILE
diff --git
a/src/compiler/tn.lisp
b/src/compiler/tn.lisp
index
ee80ba8
..
c344725
100644
(file)
--- a/
src/compiler/tn.lisp
+++ b/
src/compiler/tn.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
;;; The component that is currently being compiled. TNs are allocated
;;; in this component.
(defvar *component-being-compiled*)
;;; 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
(file)
--- a/
src/compiler/trace-table.lisp
+++ b/
src/compiler/trace-table.lisp
@@
-11,9
+11,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
(defun trace-table-entry (state)
(let ((label (gen-label)))
(emit-label label)
(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
(file)
--- a/
src/compiler/typetran.lisp
+++ b/
src/compiler/typetran.lisp
@@
-13,9
+13,6
@@
;;;; files for more information.
(in-package "SB!C")
;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; type predicate translation
;;;;
\f
;;;; type predicate translation
;;;;
diff --git
a/src/compiler/vmdef.lisp
b/src/compiler/vmdef.lisp
index
3e50b39
..
1747e09
100644
(file)
--- a/
src/compiler/vmdef.lisp
+++ b/
src/compiler/vmdef.lisp
@@
-12,17
+12,14
@@
(in-package "SB!C")
(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 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*)
(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
(file)
--- a/
src/compiler/vop.lisp
+++ b/
src/compiler/vop.lisp
@@
-12,12
+12,9
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
(eval-when (:compile-toplevel :load-toplevel :execute)
(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)))
(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
(file)
--- a/
src/compiler/x86/alloc.lisp
+++ b/
src/compiler/x86/alloc.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; LIST and LIST*
\f
;;;; LIST and LIST*
diff --git
a/src/compiler/x86/arith.lisp
b/src/compiler/x86/arith.lisp
index
6281b39
..
9540892
100644
(file)
--- a/
src/compiler/x86/arith.lisp
+++ b/
src/compiler/x86/arith.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; unary operations
\f
;;;; unary operations
diff --git
a/src/compiler/x86/array.lisp
b/src/compiler/x86/array.lisp
index
3afdbc1
..
a9b7b79
100644
(file)
--- a/
src/compiler/x86/array.lisp
+++ b/
src/compiler/x86/array.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; allocator for the array header
\f
;;;; 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
(file)
--- 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")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; compiler constants
\f
;;;; compiler constants
diff --git
a/src/compiler/x86/c-call.lisp
b/src/compiler/x86/c-call.lisp
index
b9c2240
..
a30c30c
100644
(file)
--- a/
src/compiler/x86/c-call.lisp
+++ b/
src/compiler/x86/c-call.lisp
@@
-12,9
+12,6
@@
(in-package "SB!VM")
(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
;; 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
(file)
--- a/
src/compiler/x86/call.lisp
+++ b/
src/compiler/x86/call.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; interfaces to IR2 conversion
\f
;;;; interfaces to IR2 conversion
diff --git
a/src/compiler/x86/cell.lisp
b/src/compiler/x86/cell.lisp
index
8c97721
..
96bd5b4
100644
(file)
--- a/
src/compiler/x86/cell.lisp
+++ b/
src/compiler/x86/cell.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; data object ref/set stuff
\f
;;;; data object ref/set stuff
diff --git
a/src/compiler/x86/char.lisp
b/src/compiler/x86/char.lisp
index
7d9f8aa
..
c6e58b5
100644
(file)
--- a/
src/compiler/x86/char.lisp
+++ b/
src/compiler/x86/char.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; moves and coercions
\f
;;;; moves and coercions
diff --git
a/src/compiler/x86/debug.lisp
b/src/compiler/x86/debug.lisp
index
091a61c
..
998b06e
100644
(file)
--- a/
src/compiler/x86/debug.lisp
+++ b/
src/compiler/x86/debug.lisp
@@
-11,9
+11,6
@@
(in-package "SB!VM")
(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(define-vop (debug-cur-sp)
(:translate current-sp)
(:policy :fast-safe)
(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
(file)
--- a/
src/compiler/x86/float.lisp
+++ b/
src/compiler/x86/float.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
(macrolet ((ea-for-xf-desc (tn slot)
`(make-ea
\f
(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
(file)
--- 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.
;;; 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
;;; 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
(file)
--- a/
src/compiler/x86/macros.lisp
+++ b/
src/compiler/x86/macros.lisp
@@
-11,9
+11,6
@@
(in-package "SB!VM")
(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.
;;; 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
(file)
--- a/
src/compiler/x86/memory.lisp
+++ b/
src/compiler/x86/memory.lisp
@@
-12,14
+12,11
@@
(in-package "SB!VM")
(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.
;;; 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)))
;;; 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)))
(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
(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)))
: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)))
(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
(file)
--- a/
src/compiler/x86/move.lisp
+++ b/
src/compiler/x86/move.lisp
@@
-11,9
+11,6
@@
(in-package "SB!VM")
(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(define-move-function (load-immediate 1) (vop x y)
((immediate)
(any-reg descriptor-reg))
(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
(file)
--- a/
src/compiler/x86/nlx.lisp
+++ b/
src/compiler/x86/nlx.lisp
@@
-11,9
+11,6
@@
(in-package "SB!VM")
(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
;;; 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
(file)
--- a/
src/compiler/x86/parms.lisp
+++ b/
src/compiler/x86/parms.lisp
@@
-13,9
+13,6
@@
(in-package "SB!VM")
(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
;;; ### 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
(file)
--- a/
src/compiler/x86/pred.lisp
+++ b/
src/compiler/x86/pred.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; the branch VOP
\f
;;;; the branch VOP
diff --git
a/src/compiler/x86/sap.lisp
b/src/compiler/x86/sap.lisp
index
daf9be8
..
052b427
100644
(file)
--- a/
src/compiler/x86/sap.lisp
+++ b/
src/compiler/x86/sap.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; moves and coercions
\f
;;;; moves and coercions
diff --git
a/src/compiler/x86/show.lisp
b/src/compiler/x86/show.lisp
index
2cd27b1
..
c2076b2
100644
(file)
--- a/
src/compiler/x86/show.lisp
+++ b/
src/compiler/x86/show.lisp
@@
-12,9
+12,6
@@
(in-package "SB!VM")
(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)
;;; 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
(file)
--- a/
src/compiler/x86/static-fn.lisp
+++ b/
src/compiler/x86/static-fn.lisp
@@
-11,9
+11,6
@@
(in-package "SB!VM")
(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(define-vop (static-function-template)
(:save-p t)
(:policy :safe)
(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
(file)
--- a/
src/compiler/x86/subprim.lisp
+++ b/
src/compiler/x86/subprim.lisp
@@
-11,9
+11,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; LENGTH
\f
;;;; LENGTH
diff --git
a/src/compiler/x86/system.lisp
b/src/compiler/x86/system.lisp
index
1865764
..
edb3f8c
100644
(file)
--- a/
src/compiler/x86/system.lisp
+++ b/
src/compiler/x86/system.lisp
@@
-10,9
+10,6
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; type frobbing VOPs
\f
;;;; type frobbing VOPs
diff --git
a/src/compiler/x86/target-insts.lisp
b/src/compiler/x86/target-insts.lisp
index
1b25231
..
01ffe7c
100644
(file)
--- a/
src/compiler/x86/target-insts.lisp
+++ b/
src/compiler/x86/target-insts.lisp
@@
-11,9
+11,6
@@
(in-package "SB!VM")
(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(defun print-mem-access (value stream print-size-p dstate)
(declare (type list value)
(type stream stream)
(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
(file)
--- 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")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; test generation utilities
\f
;;;; test generation utilities
diff --git
a/src/compiler/x86/values.lisp
b/src/compiler/x86/values.lisp
index
c73f597
..
6c68c32
100644
(file)
--- a/
src/compiler/x86/values.lisp
+++ b/
src/compiler/x86/values.lisp
@@
-11,9
+11,6
@@
(in-package "SB!VM")
(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(define-vop (reset-stack-pointer)
(:args (ptr :scs (any-reg)))
(:generator 1
(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
(file)
--- a/
src/compiler/x86/vm.lisp
+++ b/
src/compiler/x86/vm.lisp
@@
-11,9
+11,6
@@
(in-package "SB!VM")
(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))
;;; 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
(file)
--- a/
src/pcl/boot.lisp
+++ b/
src/pcl/boot.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
#|
\f
#|
diff --git
a/src/pcl/braid.lisp
b/src/pcl/braid.lisp
index
cd3447d
..
bc7efc0
100644
(file)
--- a/
src/pcl/braid.lisp
+++ b/
src/pcl/braid.lisp
@@
-30,9
+30,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(defun allocate-standard-instance (wrapper
&optional (slots-init nil slots-init-p))
\f
(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
(file)
--- a/
src/pcl/cache.lisp
+++ b/
src/pcl/cache.lisp
@@
-24,9
+24,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; 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
\f
;;; 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
(file)
--- a/
src/pcl/combin.lisp
+++ b/
src/pcl/combin.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(defun get-method-function (method &optional method-alist wrappers)
(let ((fn (cadr (assoc method method-alist))))
\f
(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
(file)
--- a/
src/pcl/construct.lisp
+++ b/
src/pcl/construct.lisp
@@
-25,9
+25,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; defconstructor is used to define special purpose functions which just
;;; call make-instance with a symbol as the first argument. The semantics
\f
;;; 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
(file)
--- a/
src/pcl/cpl.lisp
+++ b/
src/pcl/cpl.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; compute-class-precedence-list
;;;
\f
;;; compute-class-precedence-list
;;;
diff --git
a/src/pcl/ctypes.lisp
b/src/pcl/ctypes.lisp
index
b90b49e
..
0cc4e82
100644
(file)
--- a/
src/pcl/ctypes.lisp
+++ b/
src/pcl/ctypes.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; 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
\f
;;; 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
(file)
--- a/
src/pcl/defclass.lisp
+++ b/
src/pcl/defclass.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; MAKE-TOP-LEVEL-FORM is used by all PCL macros that appear `at top-level'.
;;;
\f
;;; 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
(file)
--- a/
src/pcl/defcombin.lisp
+++ b/
src/pcl/defcombin.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(defmacro define-method-combination (&whole form &rest args)
(declare (ignore args))
\f
(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
(file)
--- a/
src/pcl/defs.lisp
+++ b/
src/pcl/defs.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(eval-when (:compile-toplevel :load-toplevel :execute)
\f
(eval-when (:compile-toplevel :load-toplevel :execute)
diff --git
a/src/pcl/describe.lisp
b/src/pcl/describe.lisp
index
df5f5b9
..
ee403fa
100644
(file)
--- a/
src/pcl/describe.lisp
+++ b/
src/pcl/describe.lisp
@@
-26,9
+26,6
@@
(in-package "SB-PCL")
(in-package "SB-PCL")
-(sb-int:file-comment
- "$Header$")
-
(defmethod slots-to-inspect ((class slot-class) (object slot-object))
(class-slots class))
(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
(file)
--- a/
src/pcl/dfun.lisp
+++ b/
src/pcl/dfun.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
#|
\f
#|
diff --git
a/src/pcl/dlisp.lisp
b/src/pcl/dlisp.lisp
index
8e769f3
..
9281f59
100644
(file)
--- a/
src/pcl/dlisp.lisp
+++ b/
src/pcl/dlisp.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; This file is (almost) functionally equivalent to dlap.lisp, but easier to
;;; read.
\f
;;; 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
(file)
--- a/
src/pcl/dlisp2.lisp
+++ b/
src/pcl/dlisp2.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(defun emit-reader/writer-function (reader/writer 1-or-2-class class-slot-p)
(values
\f
(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
(file)
--- a/
src/pcl/dlisp3.lisp
+++ b/
src/pcl/dlisp3.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *checking-or-caching-list*
\f
(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
(file)
--- 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.
;;;; 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
(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
(file)
--- 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.
;;;; warranty about the software, its performance or its conformity to any
;;;; specification.
-(sb-int:file-comment
- "$Header$")
-
(in-package "SB-PCL")
\f
;;; FIXME: The PCL package is internal and is used by code in potential
(in-package "SB-PCL")
\f
;;; 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
(file)
--- a/
src/pcl/env.lisp
+++ b/
src/pcl/env.lisp
@@
-24,9
+24,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; 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,
\f
;;; 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
(file)
--- a/
src/pcl/fast-init.lisp
+++ b/
src/pcl/fast-init.lisp
@@
-24,9
+24,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(defvar *compile-make-instance-functions-p* nil)
\f
(defvar *compile-make-instance-functions-p* nil)
diff --git
a/src/pcl/fin.lisp
b/src/pcl/fin.lisp
index
c3167cd
..
20a24e0
100644
(file)
--- a/
src/pcl/fin.lisp
+++ b/
src/pcl/fin.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; Each implementation must provide the following functions and macros:
;;;
\f
;;; 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
(file)
--- a/
src/pcl/fixup.lisp
+++ b/
src/pcl/fixup.lisp
@@
-23,9
+23,6
@@
(in-package "SB-PCL")
(in-package "SB-PCL")
-(sb-int:file-comment
- "$Header$")
-
(fix-early-generic-functions)
(setq *boot-state* 'complete)
(fix-early-generic-functions)
(setq *boot-state* 'complete)
diff --git
a/src/pcl/fngen.lisp
b/src/pcl/fngen.lisp
index
4bd35ca
..
cda7f43
100644
(file)
--- a/
src/pcl/fngen.lisp
+++ b/
src/pcl/fngen.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; GET-FUNCTION is the main user interface to this code. It is like
;;; COMPILE-LAMBDA, only more efficient. It achieves this efficiency by
\f
;;; 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
(file)
--- a/
src/pcl/fsc.lisp
+++ b/
src/pcl/fsc.lisp
@@
-32,9
+32,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(defmethod wrapper-fetcher ((class funcallable-standard-class))
'fsc-instance-wrapper)
\f
(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
(file)
--- 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")
;;;; warranty. See the COPYING and CREDITS files for more information.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;;; class predicates
\f
;;;; class predicates
diff --git
a/src/pcl/gray-streams-class.lisp
b/src/pcl/gray-streams-class.lisp
index
58301b5
..
5f9ebc7
100644
(file)
--- 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")
;;;; warranty. See the COPYING and CREDITS files for more information.
(in-package "SB-GRAY")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; Bootstrap the FUNDAMENTAL-STREAM class.
(let ((sb-pcl::*pcl-class-boot* 'fundamental-stream))
\f
;;; 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
(file)
--- 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")
;;;; warranty. See the COPYING and CREDITS files for more information.
(in-package "SB-GRAY")
-
-(sb-int:file-comment
- "$Header$")
\f
(fmakunbound 'stream-element-type)
\f
(fmakunbound 'stream-element-type)
diff --git
a/src/pcl/init.lisp
b/src/pcl/init.lisp
index
5c381fd
..
3144965
100644
(file)
--- a/
src/pcl/init.lisp
+++ b/
src/pcl/init.lisp
@@
-24,9
+24,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(defmethod make-instance ((class symbol) &rest initargs)
(apply #'make-instance (find-class class) initargs))
\f
(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
(file)
--- a/
src/pcl/iterate.lisp
+++ b/
src/pcl/iterate.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-ITERATE")
;;;; specification.
(in-package "SB-ITERATE")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; Are warnings to be issued for iterate/gather forms that aren't optimized?
;;; NIL => never
\f
;;; 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
(file)
--- a/
src/pcl/low.lisp
+++ b/
src/pcl/low.lisp
@@
-36,9
+36,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(eval-when (:compile-toplevel :load-toplevel :execute)
(defvar *optimize-speed* '(optimize (speed 3) (safety 0)))
\f
(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
(file)
--- a/
src/pcl/macros.lisp
+++ b/
src/pcl/macros.lisp
@@
-26,9
+26,6
@@
\f
(in-package "SB-PCL")
\f
(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
(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
(file)
--- a/
src/pcl/methods.lisp
+++ b/
src/pcl/methods.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(defmethod shared-initialize :after ((slotd standard-slot-definition)
slot-names &key)
\f
(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
(file)
--- a/
src/pcl/precom1.lisp
+++ b/
src/pcl/precom1.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;; 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
\f
;;; 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
(file)
--- a/
src/pcl/precom2.lisp
+++ b/
src/pcl/precom2.lisp
@@
-23,7
+23,4
@@
(in-package "SB-PCL")
(in-package "SB-PCL")
-(sb-int:file-comment
- "$Header$")
-
(precompile-random-code-segments pcl)
(precompile-random-code-segments pcl)
diff --git
a/src/pcl/print-object.lisp
b/src/pcl/print-object.lisp
index
941bd5e
..
5dd7162
100644
(file)
--- 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.
;;;; warranty about the software, its performance or its conformity to any
;;;; specification.
-(sb-int:file-comment
- "$Header$")
-
(in-package "SB-PCL")
\f
;;;; the PRINT-OBJECT generic function
(in-package "SB-PCL")
\f
;;;; the PRINT-OBJECT generic function
diff --git
a/src/pcl/slots-boot.lisp
b/src/pcl/slots-boot.lisp
index
3def80a
..
59463f7
100644
(file)
--- a/
src/pcl/slots-boot.lisp
+++ b/
src/pcl/slots-boot.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(defmacro slot-symbol (slot-name type)
`(if (and (symbolp ,slot-name) (symbol-package ,slot-name))
\f
(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
(file)
--- a/
src/pcl/slots.lisp
+++ b/
src/pcl/slots.lisp
@@
-22,9
+22,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
;;;; ANSI CL condition for unbound slots
\f
;;;; ANSI CL condition for unbound slots
diff --git
a/src/pcl/std-class.lisp
b/src/pcl/std-class.lisp
index
c11788f
..
d49be79
100644
(file)
--- 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.
;;;; warranty about the software, its performance or its conformity to any
;;;; specification.
-(sb-int:file-comment
- "$Header$")
-
(in-package "SB-PCL")
\f
(defmethod slot-accessor-function ((slotd effective-slot-definition) type)
(in-package "SB-PCL")
\f
(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
(file)
--- 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.
;;;; warranty about the software, its performance or its conformity to any
;;;; specification.
-(sb-int:file-comment
- "$Header$")
-
(in-package "SB-PCL")
\f
(defmethod initialize-internal-slot-functions :after
(in-package "SB-PCL")
\f
(defmethod initialize-internal-slot-functions :after
diff --git
a/src/pcl/time.lisp
b/src/pcl/time.lisp
index
c0d676e
..
717fd33
100644
(file)
--- a/
src/pcl/time.lisp
+++ b/
src/pcl/time.lisp
@@
-3,9
+3,6
@@
(in-package "SB-PCL")
(in-package "SB-PCL")
-(sb-int:file-comment
- "$Header$")
-
(declaim (optimize (speed 3) (safety 0) (compilation-speed 0)))
(defvar *tests*)
(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
(file)
--- a/
src/pcl/vector.lisp
+++ b/
src/pcl/vector.lisp
@@
-24,9
+24,6
@@
;;;; specification.
(in-package "SB-PCL")
;;;; specification.
(in-package "SB-PCL")
-
-(sb-int:file-comment
- "$Header$")
\f
(defmacro instance-slot-index (wrapper slot-name)
`(let ((pos 0))
\f
(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
(file)
--- a/
src/pcl/walk.lisp
+++ b/
src/pcl/walk.lisp
@@
-27,9
+27,6
@@
;;;; specification.
(in-package "SB-WALKER")
;;;; specification.
(in-package "SB-WALKER")
-
-(sb-int:file-comment
- "$Header$")
\f
;;;; environment frobbing stuff
\f
;;;; environment frobbing stuff
diff --git
a/src/runtime/alloc.c
b/src/runtime/alloc.c
index
d11c820
..
0a88829
100644
(file)
--- a/
src/runtime/alloc.c
+++ b/
src/runtime/alloc.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include "runtime.h"
#include "sbcl.h"
#include "alloc.h"
#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
(file)
--- a/
src/runtime/alloc.h
+++ b/
src/runtime/alloc.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef _ALLOC_H_
#define _ALLOC_H_
#ifndef _ALLOC_H_
#define _ALLOC_H_
diff --git
a/src/runtime/arch.h
b/src/runtime/arch.h
index
14ba2f4
..
088a266
100644
(file)
--- a/
src/runtime/arch.h
+++ b/
src/runtime/arch.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef __ARCH_H__
#define __ARCH_H__
#ifndef __ARCH_H__
#define __ARCH_H__
diff --git
a/src/runtime/backtrace.c
b/src/runtime/backtrace.c
index
7e58e80
..
722f4ed
100644
(file)
--- a/
src/runtime/backtrace.c
+++ b/
src/runtime/backtrace.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <signal.h>
#include "runtime.h"
#include <stdio.h>
#include <signal.h>
#include "runtime.h"
diff --git
a/src/runtime/breakpoint.c
b/src/runtime/breakpoint.c
index
d4f3516
..
903591a
100644
(file)
--- a/
src/runtime/breakpoint.c
+++ b/
src/runtime/breakpoint.c
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <signal.h>
#include <stdio.h>
#include <signal.h>
diff --git
a/src/runtime/breakpoint.h
b/src/runtime/breakpoint.h
index
fabd1a5
..
798ae21
100644
(file)
--- a/
src/runtime/breakpoint.h
+++ b/
src/runtime/breakpoint.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef _BREAKPOINT_H_
#define _BREAKPOINT_H_
#ifndef _BREAKPOINT_H_
#define _BREAKPOINT_H_
diff --git
a/src/runtime/bsd-os.c
b/src/runtime/bsd-os.c
index
613be8b
..
0ab4fd2
100644
(file)
--- a/
src/runtime/bsd-os.c
+++ b/
src/runtime/bsd-os.c
@@
-18,10
+18,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <sys/param.h>
#include <sys/file.h>
#include <stdio.h>
#include <sys/param.h>
#include <sys/file.h>
diff --git
a/src/runtime/bsd-os.h
b/src/runtime/bsd-os.h
index
9862141
..
de568f8
100644
(file)
--- a/
src/runtime/bsd-os.h
+++ b/
src/runtime/bsd-os.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifdef __FreeBSD__
#include <osreldate.h>
#endif
#ifdef __FreeBSD__
#include <osreldate.h>
#endif
diff --git
a/src/runtime/core.h
b/src/runtime/core.h
index
e467f9e
..
f5b223e
100644
(file)
--- a/
src/runtime/core.h
+++ b/
src/runtime/core.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef _CORE_H_
#define _CORE_H_
#ifndef _CORE_H_
#define _CORE_H_
diff --git
a/src/runtime/coreparse.c
b/src/runtime/coreparse.c
index
b655601
..
5476fa5
100644
(file)
--- a/
src/runtime/coreparse.c
+++ b/
src/runtime/coreparse.c
@@
-14,10
+14,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <sys/types.h>
#include <sys/file.h>
#include <stdio.h>
#include <sys/types.h>
#include <sys/file.h>
diff --git
a/src/runtime/dynbind.c
b/src/runtime/dynbind.c
index
450c63c
..
175930b
100644
(file)
--- a/
src/runtime/dynbind.c
+++ b/
src/runtime/dynbind.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include "runtime.h"
#include "sbcl.h"
#include "globals.h"
#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
(file)
--- a/
src/runtime/dynbind.h
+++ b/
src/runtime/dynbind.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef _DYNBIND_H_
#define _DYNBIND_H_
#ifndef _DYNBIND_H_
#define _DYNBIND_H_
diff --git
a/src/runtime/gc.h
b/src/runtime/gc.h
index
3ebed77
..
b3f5e04
100644
(file)
--- a/
src/runtime/gc.h
+++ b/
src/runtime/gc.h
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef _GC_H_
#define _GC_H_
#ifndef _GC_H_
#define _GC_H_
diff --git
a/src/runtime/gencgc.c
b/src/runtime/gencgc.c
index
a217142
..
948ac48
100644
(file)
--- 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
* 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
(file)
--- a/
src/runtime/gencgc.h
+++ b/
src/runtime/gencgc.h
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef _GENCGC_H_
#define _GENCGC_H_
#ifndef _GENCGC_H_
#define _GENCGC_H_
diff --git
a/src/runtime/globals.c
b/src/runtime/globals.c
index
577d7c6
..
70beb56
100644
(file)
--- a/
src/runtime/globals.c
+++ b/
src/runtime/globals.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include "runtime.h"
#include <stdio.h>
#include "runtime.h"
diff --git
a/src/runtime/globals.h
b/src/runtime/globals.h
index
4d956c8
..
da9392f
100644
(file)
--- a/
src/runtime/globals.h
+++ b/
src/runtime/globals.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#if !defined(_INCLUDE_GLOBALS_H_)
#define _INCLUDED_GLOBALS_H_
#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
(file)
--- a/
src/runtime/interr.c
+++ b/
src/runtime/interr.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdarg.h>
diff --git
a/src/runtime/interr.h
b/src/runtime/interr.h
index
f9d80e6
..
989ddab
100644
(file)
--- a/
src/runtime/interr.h
+++ b/
src/runtime/interr.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef _INTERR_H_
#define _INTERR_H_
#ifndef _INTERR_H_
#define _INTERR_H_
diff --git
a/src/runtime/interrupt.c
b/src/runtime/interrupt.c
index
0bd56d0
..
bbb00a6
100644
(file)
--- a/
src/runtime/interrupt.c
+++ b/
src/runtime/interrupt.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <signal.h>
#include <stdio.h>
#include <signal.h>
diff --git
a/src/runtime/interrupt.h
b/src/runtime/interrupt.h
index
f71a177
..
c4145f2
100644
(file)
--- a/
src/runtime/interrupt.h
+++ b/
src/runtime/interrupt.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#if !defined(_INCLUDE_INTERRUPT_H_)
#define _INCLUDE_INTERRUPT_H_
#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
(file)
--- a/
src/runtime/linux-os.c
+++ b/
src/runtime/linux-os.c
@@
-19,10
+19,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <sys/param.h>
#include <sys/file.h>
#include <stdio.h>
#include <sys/param.h>
#include <sys/file.h>
diff --git
a/src/runtime/linux-os.h
b/src/runtime/linux-os.h
index
d010704
..
a2f1c34
100644
(file)
--- a/
src/runtime/linux-os.h
+++ b/
src/runtime/linux-os.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdlib.h>
#include <sys/types.h>
#include <sys/mman.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/mman.h>
diff --git
a/src/runtime/linux-stubs.S
b/src/runtime/linux-stubs.S
index
baa4db9
..
9563d79
100644
(file)
--- 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.
*
* 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
(file)
--- a/
src/runtime/lispregs.h
+++ b/
src/runtime/lispregs.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#if defined(mips) || defined(irix)
#include "mips-lispregs.h"
#endif
#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
(file)
--- a/
src/runtime/monitor.c
+++ b/
src/runtime/monitor.c
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
diff --git
a/src/runtime/monitor.h
b/src/runtime/monitor.h
index
9d8583d
..
3eec762
100644
(file)
--- a/
src/runtime/monitor.h
+++ b/
src/runtime/monitor.h
@@
-9,9
+9,5
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
extern void ldb_monitor(void);
extern void throw_to_monitor(void);
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
(file)
--- a/
src/runtime/os-common.c
+++ b/
src/runtime/os-common.c
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <errno.h>
#include <stdio.h>
#include <errno.h>
diff --git
a/src/runtime/os.h
b/src/runtime/os.h
index
45cd2bc
..
1d8e436
100644
(file)
--- a/
src/runtime/os.h
+++ b/
src/runtime/os.h
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#if !defined(_OS_H_INCLUDED_)
#define _OS_H_INCLUDED_
#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
(file)
--- a/
src/runtime/parse.c
+++ b/
src/runtime/parse.c
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <ctype.h>
#include <signal.h>
#include <stdio.h>
#include <ctype.h>
#include <signal.h>
diff --git
a/src/runtime/parse.h
b/src/runtime/parse.h
index
1258544
..
510f91f
100644
(file)
--- a/
src/runtime/parse.h
+++ b/
src/runtime/parse.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* 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);
/* 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
(file)
--- 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
* 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
(file)
--- a/
src/runtime/print.h
+++ b/
src/runtime/print.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef _PRINT_H_
#define _PRINT_H_
#ifndef _PRINT_H_
#define _PRINT_H_
diff --git
a/src/runtime/purify.c
b/src/runtime/purify.c
index
677db6d
..
18a310c
100644
(file)
--- a/
src/runtime/purify.c
+++ b/
src/runtime/purify.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
diff --git
a/src/runtime/purify.h
b/src/runtime/purify.h
index
381ac00
..
402d11d
100644
(file)
--- a/
src/runtime/purify.h
+++ b/
src/runtime/purify.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#if !defined(_PURIFY_H_)
#define _PURIFY_H_
#if !defined(_PURIFY_H_)
#define _PURIFY_H_
diff --git
a/src/runtime/regnames.c
b/src/runtime/regnames.c
index
d7af4f9
..
53a482f
100644
(file)
--- a/
src/runtime/regnames.c
+++ b/
src/runtime/regnames.c
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include "lispregs.h"
char *lisp_register_names[] = { REGNAMES, 0 };
#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
(file)
--- a/
src/runtime/run-program.c
+++ b/
src/runtime/run-program.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <sys/file.h>
#include <sys/fcntl.h>
#include <sys/ioctl.h>
#include <sys/file.h>
#include <sys/fcntl.h>
#include <sys/ioctl.h>
diff --git
a/src/runtime/runtime.c
b/src/runtime/runtime.c
index
43d98aa
..
3b36bf8
100644
(file)
--- a/
src/runtime/runtime.c
+++ b/
src/runtime/runtime.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
diff --git
a/src/runtime/runtime.h
b/src/runtime/runtime.h
index
f054a3d
..
a2b1fae
100644
(file)
--- a/
src/runtime/runtime.h
+++ b/
src/runtime/runtime.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* 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. */
/* 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
(file)
--- a/
src/runtime/save.c
+++ b/
src/runtime/save.c
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <signal.h>
#include <sys/file.h>
#include <stdio.h>
#include <signal.h>
#include <sys/file.h>
diff --git
a/src/runtime/save.h
b/src/runtime/save.h
index
42a1f9b
..
75c78d0
100644
(file)
--- a/
src/runtime/save.h
+++ b/
src/runtime/save.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef _SAVE_H_
#define _SAVE_H_
#ifndef _SAVE_H_
#define _SAVE_H_
diff --git
a/src/runtime/search.c
b/src/runtime/search.c
index
19e656e
..
01de0d1
100644
(file)
--- a/
src/runtime/search.c
+++ b/
src/runtime/search.c
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include "runtime.h"
#include "sbcl.h"
#include "os.h"
#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
(file)
--- a/
src/runtime/search.h
+++ b/
src/runtime/search.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifndef _SEARCH_H_
#define _SEARCH_H_
#ifndef _SEARCH_H_
#define _SEARCH_H_
diff --git
a/src/runtime/time.c
b/src/runtime/time.c
index
1fe3551
..
c640399
100644
(file)
--- a/
src/runtime/time.c
+++ b/
src/runtime/time.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <time.h>
#include "runtime.h"
#include <stdio.h>
#include <time.h>
#include "runtime.h"
diff --git
a/src/runtime/undefineds.c
b/src/runtime/undefineds.c
index
fd4d61c
..
954312e
100644
(file)
--- a/
src/runtime/undefineds.c
+++ b/
src/runtime/undefineds.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#ifdef sun
#ifndef MACH
#if !defined(SUNOS) && !defined(SOLARIS)
#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
(file)
--- a/
src/runtime/undefineds.h
+++ b/
src/runtime/undefineds.h
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
/* Pick up all the syscalls. */
F(accept)
F(access)
/* 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
(file)
--- a/
src/runtime/validate.c
+++ b/
src/runtime/validate.c
@@
-13,10
+13,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include "runtime.h"
#include "os.h"
#include <stdio.h>
#include "runtime.h"
#include "os.h"
diff --git
a/src/runtime/validate.h
b/src/runtime/validate.h
index
c49186b
..
876d39b
100644
(file)
--- a/
src/runtime/validate.h
+++ b/
src/runtime/validate.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#if !defined(_INCLUDE_VALIDATE_H_)
#define _INCLUDE_VALIDATE_H_
#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
(file)
--- a/
src/runtime/vars.c
+++ b/
src/runtime/vars.c
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
diff --git
a/src/runtime/vars.h
b/src/runtime/vars.h
index
ae1a100
..
3127f77
100644
(file)
--- a/
src/runtime/vars.h
+++ b/
src/runtime/vars.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
/* FIXME: I wonder what this stuff is for. A comment or two would be
* nice.. */
/* 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
(file)
--- a/
src/runtime/x86-arch.c
+++ b/
src/runtime/x86-arch.c
@@
-9,10
+9,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
#include <stdio.h>
#include "runtime.h"
#include <stdio.h>
#include "runtime.h"
diff --git
a/src/runtime/x86-assem.S
b/src/runtime/x86-assem.S
index
0250479
..
b50fe16
100644
(file)
--- a/
src/runtime/x86-assem.S
+++ b/
src/runtime/x86-assem.S
@@
-1,7
+1,5
@@
/*
* very-low-level utilities for runtime support
/*
* 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
(file)
--- a/
src/runtime/x86-lispregs.h
+++ b/
src/runtime/x86-lispregs.h
@@
-16,10
+16,6
@@
* files for more information.
*/
* files for more information.
*/
-/*
- * $Header$
- */
-
/* the number of registers visible as registers in the virtual machine
* (excludes stuff like segment registers) */
#define NREGS (8)
/* 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
(file)
--- a/
src/runtime/x86-validate.h
+++ b/
src/runtime/x86-validate.h
@@
-9,10
+9,6
@@
* files for more information.
*/
* 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)
#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
(file)
--- 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.
;;; 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"