- Aug 27, 2003
-
-
toy authored
scavenging. It appears to be true before and after GC.
-
gerd authored
Declaim types.
-
gerd authored
-
gerd authored
optimize speed 3 safety 0.
-
gerd authored
*byte-trace* code.
-
gerd authored
-
gerd authored
-
gerd authored
Reported by Gareth McCaughan on cmucl-imp for 18e. * src/compiler/globaldb.lisp (compact-info-lookup) (volatile-info-lookup): Don't declare hash parameter as type index because type index doesn't include most-positive-fixnum.
-
gerd authored
effect until a method is added or removed from the gf. Reported by Andreas Fuchs on a SBCL mailing list. * src/pcl/methods.lisp (reinitialize-instance) <standard-generic-function>: Make it an around method, call flush-effective-method-cache if the method combination changes. * src/pcl/dfun.lisp (flush-effective-method-cache): New function. (*effective-method-cache*): Renamed from *effective-method-table*.
-
- Aug 26, 2003
-
-
toy authored
functional.
-
- Aug 25, 2003
-
-
gerd authored
bootstrapping. * src/bootfiles/18e/boot16.lisp: New file. * src/docs/cmu-user/extensions.tex (Dynamic-Extent Declarations): New section. * src/compiler/x86/macros.lisp (dynamic-extent-allocation): Rename from stack-allocation, save an instruction. (allocation): Don't call trust-dynamic-extent-declaration-p. * src/compiler/x86/alloc.lisp (%dynamic-extent-start) (%dynamic-extent-end): New vops. (list-or-list*): Add constant arg dynamic-extent. (fixed-alloc): Likewise. * src/compiler/generic/vm-ir2tran.lisp (do-fixed-alloc): Call fixed-alloc with dynamic-extent arg. * src/compiler/hppa/alloc.lisp (%dynamic-extent-start) (%dynamic-extent-end): Add dummy vops. * src/compiler/mips/alloc.lisp: * src/compiler/ppc/alloc.lisp: * src/compiler/alpha/alloc.lisp: * src/compiler/rt/alloc.lisp: Likewise. * src/compiler/seqtran.lisp (mapper-transform): Add dynamic-extent declarations. * src/compiler/node.lisp (continuation): Add slot dynamic-extent. (cleanup): Add :dynamic-extent to type of slot kind. * src/compiler/knownfun.lisp (dynamic-extent-closure-safe): New attribute. * src/compiler/ir2tran.lisp (ir2-stack-allocate): New function. (ir2-convert-closure): Handle dynamic-extent case differently. (%dynamic-extent, %dynamic-extent-start, %dynamic-extent-end) <ir2-convert>: New optimizers. (list, list*): Handle dynamic-extent. * src/compiler/ir1tran.lisp (*trust-dynamic-extent-declarations*) (*dynamic-extent-trace*): New variables. (trust-dynamic-extent-declaration-p): New function. (process-dynamic-extent-declaration) (dynamic-extent-allocation-p, dynamic-extent-closure-args) (gen-%dynamic-extent, with-dynamic-extent): New functions/macros. (ir1-convert-combination): Handle dynamic-extent closure args. (ir1-convert-combination-args): Add arg dynamic-extent-args. Set continuation-dynamic-extent for these args. (process-dynamic-extent-declaration): Rewritten. (ir1-convert-dynamic-extent-bindings): New function. (ir1-convert-special-bindings): Call it. (ir1-convert-lambda-body): Handle dynamic-extent rest lists. (let): Handle dynamic-extent vars. (let*): Call ir1-convert-dynamic-extent-bindings. * src/compiler/globaldb.lisp (*trust-dynamic-extent-declarations*) (trust-dynamic-extent-declaration-p): Remove. * src/compiler/fndb.lisp: Add dynamic-extent-closure-safe attribute to assorted functions. * src/compiler/envanal.lisp (environment-analyze): Call find-dynamic-extent-safe-closures. (emit-cleanups): Handle :dynamic-extent cleanups. (*suppress-dynamic-extent-closure-safe*): New variable. (mark-dynamic-extent-safe-closures) (find-dynamic-extent-safe-closures): New functions. * src/compiler/byte-comp.lisp (compute-produces-and-consumes): Treat :dynamic-extent like :tagbody cleanups. * src/code/exports.lisp ("C"): Export ir2-stack-allocate, %dynamic-extent, %dynamic-extent-start, %dynamic-extent-end. * src/code/byte-interp.lisp (%dynamic-extent): (%dynamic-extent-start, %dynamic-extent-end): New functions. (toplevel): Enable block compilation.
-
gerd authored
for ANSI compliance. * src/pcl/defcombin.lisp (compute-effective-method): If *in-precompute-effective-methods-p*, generate an emf consisting of a call to %invalid-qualifiers if there are such methods. * src/pcl/combin.lisp (standard-compute-effective-method): Likewise. (make-effective-method-lambda): Handle %invalid-qualifiers like %no-primary-method. * src/pcl/braid.lisp (%invalid-qualifiers): New function. (invalid-qualifiers): New method. * src/pcl/generic-functions.lisp (invalid-qualifiers): New gf. * src/pcl/dfun.lisp (*max-emf-precomputation-methods*): Set to 100. * src/docs/cmu-user/extensions.tex (Effective Method Precomputation): Change description of *max-emf-precomputation-methods*.
-
gerd authored
(declare (type (unsigned-byte 32) n d)) (ffloor n d)) had a return type of nil when byte-compiled because ffloor's derive-type optimizer returned a rational quotient type.
-
- Aug 24, 2003
-
-
gerd authored
a special variable. Reported by Alexey Dejneka on cmucl-imp. This fixes the read case, but not the setq case. * src/code/debug-int.lisp (preprocess-for-eval): Don't symbol-macrolet special variables, let-bind them instead.
-
- Aug 23, 2003
-
-
gerd authored
return the results of truncate directly.
-
- Aug 22, 2003
- Aug 21, 2003
- Aug 20, 2003
-
-
gerd authored
if neither type nor test is supplied. * src/lisp/GNUmakefile: Include internals.inc. * src/compiler/generic/new-genesis.lisp (emit-makefile-header): New function. (genesis): Call it.
-
- Aug 19, 2003
- Aug 18, 2003
-
-
toy authored
current_dynamic_space_free_pointer for the other ports. (Is this right?)
-
- Aug 17, 2003
-
-
toy authored
(defun f (x) (declare (type (integer 0 100) x)) (ffloor x)) was not compiling. FTRUNCATE-DERIVE-TYPE-QUOT didn't handle the case where the result type was FLOAT, which implied that NUMERIC-TYPE-FORMAT is NIL.
-
- Aug 16, 2003
-
-
gerd authored
arg to error.
-
gerd authored
* src/compiler/srctran.lisp (check-format-args-1) (check-format-args-2): Extracted from check-format-args. (check-format-args): Take a continuation argument for the control string. (format): Use the new check- functions. (error, warn, compiler-error, compiler-warning) (compiler-note, compiler-mumble): Add format-checking deftransforms. * src/compiler/fndb.lisp (compiler-warning, compiler-note) (compiler-mumble, compiler-error): Add defknowns. * src/compiler/ir1util.lisp (compiler-mumble, compiler-warning) (compiler-note): Return no values. * src/code/parse-time.lisp (deal-with-am-pm): Add a missing arg to error. * src/compiler/saptran.lisp (foreign-symbol-address): * src/compiler/new-assem.lisp (emit-annotation): Likewise.
-
- Aug 15, 2003
-
-
toy authored
-
- Aug 12, 2003
-
-
gerd authored
went to the wrong stream. From Robert Macomber on cmucl-imp.
-
gerd authored
* src/lisp/validate.c (image_dynamic_space_size): New variable. (validate): Allocate spaces differently if the core is part of the executable. * src/lisp/lisp.c (initial_function_addr): New variable. (main): Use it for the initial function if appropriate.
-
- Aug 11, 2003
-
-
gerd authored
frob bytes-consed-between-gcs. * src/compiler/alloc.lisp (defallocators) [#+gencgc]: Definition that doesn't do resourcing.
-
- Aug 08, 2003
-
-
emarsden authored
-
emarsden authored
the condition that caused entry into the debugger.
-
emarsden authored
- correct some information about implementation packages (CL != LISP), reference CLOS-MOP package - "new, improved" title page
-
emarsden authored
structural and the definition locks for all existing packages. Add an additional restart to the PACKAGE-LOCKED-ERROR signaling points that allows the user to disable all packages then continue. Package locks are initialized upon startup, so the unlocking only takes effect during the current session. However, this function doesn't suffer from the problem that affects LISP::*ENABLE-PACKAGE-LOCKED-ERRORS* (which is bound by LOAD so can't be set from an initialization file).
-
emarsden authored
"unix") is specified by $DISPLAY. ;; If the $DISPLAY does not specify a hostname (for instance ;; ":0"), or if the hostname is the special case of "unix", we ;; connect to the X server using the :unix protocol. This is the ;; most efficient transport to the local host, most often a Unix ;; domain socket. In all other cases, we use the :tcp protocol.
-
emarsden authored
sbcl-devel that Hummingbird X11 servers offer this possibility.
-
- Aug 07, 2003
-
-
gerd authored
:CL)), failing when interpreted. * src/code/numbers.lisp (=, /=, <, <=, >, >=, max, min): Add safety and dynamic-extent declarations.
-