Paul Khuong [Tue, 12 Nov 2013 23:22:20 +0000 (18:22 -0500)]
Simplify (and robustify) regular PACKing
* Make sure that only wired TNs are allocated to stack locations
until the final pass.
* When using loop depth to prioritise TNs, find them by iterating over
the list of TNs, instead of reprocessing global TNs that appear in
multiple IR2 blocks.
* In the final pass that allocates leftover TNs (mostly to the stack),
make sure that any TN with a negative spill cost (i.e., the score
says it's actually useful to spill it) is allocated a stack slot.
Paul Khuong [Wed, 20 Nov 2013 00:53:02 +0000 (19:53 -0500)]
Actually optimize in PACK-TN
We used to track location usage information, but never use it to
determine which register to use. I'm not actually convinced that
this change improves the quality of the code we generate, but it
can't hurt for PACK-TN to actually do what it says it does: usage-
guided packing can always be disabled if it's not useful.
Paul Khuong [Tue, 12 Nov 2013 23:19:55 +0000 (18:19 -0500)]
Microoptimise TN-LEXICAL-DEPTH
Paul Khuong [Wed, 13 Nov 2013 18:18:29 +0000 (13:18 -0500)]
Utility predicates for packing: UNBOUNDED-SC-P and UNBOUNDED-TN-P
Determine if the backing storage base (or the preferred storage
class for a TN) is :UNBOUNDED, i.e., on the stack.
Paul Khuong [Wed, 13 Nov 2013 18:16:27 +0000 (13:16 -0500)]
Use SCHWARTZIAN-STABLE-SORT-LIST in SELECT-LOCATION
LOOP in a :KEY function may not be the best idea.
Paul Khuong [Wed, 13 Nov 2013 18:14:46 +0000 (13:14 -0500)]
New function SB-IMPL:SCHWARTZIAN-STABLE-SORT-LIST
Stable sort because we really ought to avoid normal sort if we want
reproducible builds, and a Schwartzian transform because we sometimes
sort with fairly computation-heavy sort keys. Better have that to
make it easy to DTRT.
Paul Khuong [Tue, 12 Nov 2013 22:59:02 +0000 (17:59 -0500)]
Yank DO-TARGET-TNS out of FIND-OK-TARGET-OFFSET
Also, try to make the logic a bit more understandable, but I'm
frankly as baffled as everyone else.
Paul Khuong [Tue, 12 Nov 2013 22:49:05 +0000 (17:49 -0500)]
Generalise ASSIGN-TN-DEPTHS to expose the reduce function
By default, this still computes the maximum loop depth at which a
TN is accessed, but, e.g., changing that to #'+ will compute the
sum of the depths at which the TN appears.
Also, process all the references to each TN at a time, instead of
walking down the list of IR2 blocks to update every TN that appear
in each block.
Paul Khuong [Tue, 12 Nov 2013 22:47:18 +0000 (17:47 -0500)]
Parameterise ASSIGN-TN-COSTS to make writes more important
*TN-WRITE-COST* determines the weight given to writes when computing
the cost for allocating a TN on the stack. It defaults to 2, versus
1 for reads.
Also, hoist some special lookups out of loops.
Paul Khuong [Tue, 12 Nov 2013 21:55:02 +0000 (16:55 -0500)]
Fix a logic bug in TNS-CONFLICT-GLOBAL-GLOBAL
That function was never used, so it's not a correctness issue, but
it's useful (when correct) to debug register allocation.
Paul Khuong [Tue, 12 Nov 2013 23:18:32 +0000 (18:18 -0500)]
Fuller error message in PACK-WIRED-TN
Cribbed directly from Alexandra Barchunova's regalloc work.
Paul Khuong [Tue, 12 Nov 2013 22:55:38 +0000 (17:55 -0500)]
Convert an ASSERT into an AVER in INIT-LIVE-TNS
Paul Khuong [Tue, 12 Nov 2013 22:44:54 +0000 (17:44 -0500)]
Let OFFSET-CONFLICTS-IN-SB check multiple offsets at a time
Instead of calling that function within a loop. Now returns the
offending offset if any, instead of a plain T. It probably doesn't
make that much of a difference, but we might as well factor it out
and recycle some pointer chasing at the same time.
Paul Khuong [Tue, 12 Nov 2013 21:48:46 +0000 (16:48 -0500)]
Remove a workaround in bit-vector consets
FOLD-INDEX-ADDRESSING was fixed in 1.0.9, and there is no compiler bug
anymore on FIND of bit vectors with :END, even at low safety.
When attempting to bootstrap from an older x86oids SBCL, the :END
argument can be commented out without affecting correctness.
Stas Boukarev [Sun, 1 Dec 2013 15:25:25 +0000 (19:25 +0400)]
Add :application-type parameter for save-lisp-and-die on Windows.
Allows to choose the executable subsystem type, :console or :gui.
Default is :console.
David Lichteblau [Wed, 31 Oct 2012 15:20:11 +0000 (16:20 +0100)]
Linux/MIPS uses "unsigned long" instead of dev_t in struct stat
Handle rdev the same way as dev.
Stas Boukarev [Sun, 1 Dec 2013 09:27:17 +0000 (13:27 +0400)]
Fix output streams on Windows for GUI executables.
Direct *STDIN*, *STDOUT*, and *STDERR* to NUL on Windows when the
standard handles are not available.
Patch by Wilfredo Velazquez. Fixes lp#125603.
Stas Boukarev [Sat, 30 Nov 2013 20:53:13 +0000 (00:53 +0400)]
Better printing of out of range --dynamic-space-size arguments.
Stop printing unsigned values of dynamic-space-size as signed, %lu, not %ld.
Instead of "argument 4000 is too large, max
4143972351", print
"argument 4000 [MB] is too large, max 4046847 KB".
Stas Boukarev [Sat, 30 Nov 2013 16:52:11 +0000 (20:52 +0400)]
Optimize CONCATENATE transform.
Avoid redundant type-checks, avoid passing unnecessary arguments to
REPLACE.
Stas Boukarev [Sat, 30 Nov 2013 16:12:22 +0000 (20:12 +0400)]
Micro-optimize vector creation.
transform-make-array-vector expanded into
(allocate-vector typecode (the index length) (ceiling length x))
but the transform applied to CEILING before it was known that LENGTH
is of type INDEX was producing bad results,
(ceiling (truly-the index length) x) solves that.
Christophe Rhodes [Sat, 30 Nov 2013 14:28:09 +0000 (14:28 +0000)]
1.1.14: will be tagged as "sbcl-1.1.14"
David Lichteblau [Fri, 29 Nov 2013 20:23:48 +0000 (22:23 +0200)]
Fix the cheneygc build
Cheneygc takes a generation argument, but ignores it.
Stas Boukarev [Fri, 22 Nov 2013 18:38:31 +0000 (22:38 +0400)]
Fix deadlocks in GC on Windows.
When multiple threads cons and end up in the GC, they could deadlock
trying to send messages using safepoints and trying to acquire the
*already-in-gc* lock.
Also happens to stop gc.impure.lisp / BUG-936304 test from failing on linux-x86.
Thanks to Paul Khuong for the patch.
Christophe Rhodes [Wed, 20 Nov 2013 21:23:22 +0000 (21:23 +0000)]
fix manual build
just the wrong include for assert-version->=
Christophe Rhodes [Mon, 18 Nov 2013 14:11:45 +0000 (14:11 +0000)]
more targetted warnings for probable DEFSTRUCT syntax errors
Some keyword defstruct slot names are more deserving of warnings
than others. In particular, slot names matching defstruct
options (from name-and-options) are highly suspicious, and likely
never to be intended, as there is essentially always a different
way of writing what is meant.
The exception is when the CONC-NAME defstruct option is null,
which makes defstruct slots effectively have symbolic identity
rather than the normal stringish nature; don't emit full
warnings under those circumstances, even though doing
(defstruct (foo :conc-name) (:constructor))
is a pretty spectacularly bad idea.
Christophe Rhodes [Mon, 18 Nov 2013 14:07:48 +0000 (14:07 +0000)]
remove misplaced AVER
(defstruct nil x) is clearly never going to work, but doesn't
deserve the scary "probably a bug in SBCL itself" message
Stas Boukarev [Mon, 18 Nov 2013 11:16:04 +0000 (15:16 +0400)]
Improve ARRAY-RANK transform.
* Don't crash on bad types.
* Delay the transform if the type isn't yet known.
Fixes lp#1252108.
Stas Boukarev [Sat, 16 Nov 2013 21:50:09 +0000 (01:50 +0400)]
Fix a regression in class accessors.
A call to accessor-method-p was lost in the rewrite of
accessor-values-internal.
Stas Boukarev [Sat, 16 Nov 2013 10:23:08 +0000 (14:23 +0400)]
Inherit FP modes for new threads on Windows.
Newly created threads have all the traps cleared, while on other
platforms they are inherited from the parent thread.
Stas Boukarev [Fri, 15 Nov 2013 20:28:09 +0000 (00:28 +0400)]
Fix :bug-309448 test for faster CPUs.
Despite claiming to be resilient to timing differences of different
machines, it still fails to do so by hard-coding the number of
iterations, which fails on faster machines.
Determine the number of iterations for which the time difference is
not zero.
Stas Boukarev [Fri, 15 Nov 2013 18:27:21 +0000 (22:27 +0400)]
Fix system error message decoding on Windows.
It used a scheme where negative error codes indicated the need to use
FormatMessage instead of strerror(3), but the sb-int::strerror
function didn't know about such arrangements and called strerror(3)
with negative codes, resulting in "Unknown error".
Remove negation, and unconditionally call FormatMessage on Windows.
Christophe Rhodes [Fri, 15 Nov 2013 09:25:51 +0000 (09:25 +0000)]
partially rewrite accessor-values-internal
It looks old and crufty, but the reason was to handle the admittedly
esoteric case of NIL as a slot name, which can happen in structure
classes. Be more defensive against merrily finding slot definitions
that have nothing to do with the method in question.
This drive-by fixes lp#633911
Christophe Rhodes [Fri, 15 Nov 2013 09:01:41 +0000 (09:01 +0000)]
relax restriction on defstruct slot names
DEFSTRUCT slot names are a bit weird, but behave basically like
strings rather than like symbols. This makes their interaction with
the MOP a little problematic, but for now simply allow things to
pass through and generally work "as expected".
Report from Eric Marsden sbcl-devel 2013-11-05
Christophe Rhodes [Thu, 14 Nov 2013 17:36:21 +0000 (17:36 +0000)]
fix another LET*/:interpret bug
reported by Douglas Katzman sbcl-devel 2013-09-08
Paul Khuong [Thu, 14 Nov 2013 20:15:38 +0000 (15:15 -0500)]
More meaningful error message for OPEN :IF-EXISTS :NEW-VERSION
We don't try to simulate versioned filesystems on top of standard
UNIX operations, because that would be lossy. Now explained more
explicitly.
Based on a patch by Philip Munksgaard, fixes lp#455381.
Paul Khuong [Thu, 14 Nov 2013 22:12:57 +0000 (17:12 -0500)]
More reliable test for asynchronous aborts in semaphore operations
Test case by Andreas Franke (lp#1038034, comment #17). We'll see
about committing the somewhat hairy fix for CONDITION-WAIT in #16
some other time.
Paul Khuong [Thu, 14 Nov 2013 21:51:18 +0000 (16:51 -0500)]
New function SB-EXT:ASSERT-VERSION->=
Executing (sb-ext:assert-version->= 1 1 13) signals a continuable
error if the running SBCL is older than 1.1.13 (and an undefined
function error before that).
Based on a patch by Philip Munksgaard.
Closes lp#674372.
Paul Khuong [Thu, 14 Nov 2013 19:22:47 +0000 (14:22 -0500)]
Tail call (exec) at the end of run-sbcl.sh
exec-ing into the runtime executable doesn't hurt and helps rlwrap.
Suggested by William Cushing (lp#1249183).
Stas Boukarev [Wed, 13 Nov 2013 11:34:58 +0000 (15:34 +0400)]
sb-sprof: Move tests into test.lisp.
Instead of having tests in sb-sprof.lisp and running them from
test.lisp, move everything into test.lisp.
Cyrus Harmon [Tue, 12 Nov 2013 22:10:59 +0000 (14:10 -0800)]
remove asdf-install contrib
Stas Boukarev [Tue, 12 Nov 2013 14:40:23 +0000 (18:40 +0400)]
Fix typos in docstrings and function names.
Includes an incompatibility change, sb-thread:thread-eMphemeral-p has
a typo, but it doesn't appear to be used anywhere outside of SBCL.
Douglas Katzman [Mon, 11 Nov 2013 22:53:37 +0000 (17:53 -0500)]
Add test for my commit 0e8649... of last week
Stas Boukarev [Mon, 11 Nov 2013 11:13:51 +0000 (15:13 +0400)]
win32: provide error messages when loading foreign libraries.
Decode the error codes into messages.
Stas Boukarev [Sun, 10 Nov 2013 18:26:17 +0000 (22:26 +0400)]
More robust homedir detection on Windows.
After consulting HOME, try USERPROFILE, then HOMEDRIVE+HOMEPATH.
Fixes lp#922117.
Stas Boukarev [Sun, 10 Nov 2013 15:59:35 +0000 (19:59 +0400)]
Fix merging of ~/ pathnames.
Don't merge the device component if the resulting pathname starts with
:absolute :home. The expansion of ~ may contain it's own device,
causing problems, especially on Windows, where
(merge-pathnames "~/") => c:C:\Users\user.
Douglas Katzman [Fri, 8 Nov 2013 21:08:46 +0000 (16:08 -0500)]
Eliminate "unused variable" warning from ARRAY-ROW-MAJOR-INDEX
Stas Boukarev [Fri, 8 Nov 2013 20:26:44 +0000 (00:26 +0400)]
Don't warn when #'(setf fun) is used in the presence of a setf-macro.
Warn only when defining such a function, not when using it.
Reported by Douglas Katzman.
Stas Boukarev [Thu, 7 Nov 2013 22:47:41 +0000 (02:47 +0400)]
Optimize testing of sealed structures.
Don't check for the layout validity, redefining structures is
undefined, and the non-sealed case doesn't check for it already.
Stas Boukarev [Thu, 7 Nov 2013 22:45:12 +0000 (02:45 +0400)]
Optimize RESTART-BIND.
Change MAKE-RESTART lambda-list to
(name function
&optional report-function interactive-function test-function)
instead of using the default structure constructor with keywords.
MAKE-RESTART is only used in RESTART-BIND, and this allows for more
compact calls and not having to parse keyword parameters should
make the code slightly faster.
Stas Boukarev [Thu, 7 Nov 2013 22:26:47 +0000 (02:26 +0400)]
Optimize RESTART-CASE.
Optimize a case when restart handlers have zero or one arguments:
instead of saving a &rest list and then applying a function, don't
save anything, or save one argument and use FUNCALL.
Based on a patch by Jan Moringen.
Closes lp#1249055.
Stas Boukarev [Thu, 7 Nov 2013 20:02:16 +0000 (00:02 +0400)]
sbcl-pwd.sh: Fix when $OSTYPE is not set.
Stas Boukarev [Wed, 6 Nov 2013 18:39:31 +0000 (22:39 +0400)]
Fix equality between #p"~" and (user-homedir-pathname) on Win32.
Don't use user-homedir-namestring on the windows version of
native-namestring, since the home directory can be specified as
C:/User/user, use (native-namestring (user-homedir-pathname)), which
will get C:\\User\\user\\ instead, making (native-namestring "~/") and
(native-namestring (user-homedir-pathname)) equal.
Stas Boukarev [Wed, 6 Nov 2013 17:20:21 +0000 (21:20 +0400)]
Disable win32 pathnames routines on -win32 and vice versa.
#-win32 has all the win32 pathname code enabled, but it's not used
anywhere and not exported. Even if using pathnames of a different OS
may be a good idea, it's currently not presented in any usable way and
only wastes space.
Stas Boukarev [Wed, 6 Nov 2013 17:11:53 +0000 (21:11 +0400)]
Fix contrib building on mingw.
The current directory has to be found out using pwd -W, to avoid any
conversion into unix-looking pathnames.
Stas Boukarev [Wed, 6 Nov 2013 00:46:26 +0000 (04:46 +0400)]
Remove get2 variant of get.
(get x y [z]) was expand into (get3 x y z) or (get2 x y), and get2
called (get3 x y nil), just expand into (get3 x y nil) directly.
Stas Boukarev [Tue, 5 Nov 2013 15:56:00 +0000 (19:56 +0400)]
Optimize raw-instance-slots-equalp for #-complex-float-vops.
The comparer function for COMPLEX types wasn't properly optimized
during cross-compilation because the types of REALPART and IMAGPART
weren't derived by the cross-compiler on account of
CROSS-FLOAT-INFINITY-KLUDGE, but the derivers do not actually perform
any mathematical derivation, just
(complex (double-float 10d0)) => (double-float 10d0).
Enabling them during cross-compilation allows = on complex floats be
optimized and avoids consing.
Stas Boukarev [Tue, 5 Nov 2013 13:48:03 +0000 (17:48 +0400)]
Fix lose() invocation inside sparc-arch.c
Stas Boukarev [Mon, 4 Nov 2013 22:52:37 +0000 (02:52 +0400)]
Optimize EQUALP on structures with raw slots.
Add a comparer slot to raw-slot-data, which is defined as
(lambda (index x y)
(= (%raw-instance-ref/double x index)
(%raw-instance-ref/double y index)))
Which is both faster than calling %raw-instance-ref/double out of
line and does not cons.
Paul Khuong [Mon, 4 Nov 2013 18:55:10 +0000 (13:55 -0500)]
[N]BUTLAST perform a single pass over the list
The old code would first count the number of conses, and then
SUBSEQ/(RPLACD/NTHCDR). Instead traverse the list with two offset
pointers that advance in lockstep.
Based on a patch by Johan Andersson, on lp#1245697.
Paul Khuong [Thu, 24 Oct 2013 02:36:17 +0000 (22:36 -0400)]
More complicated TYPEP tests are marginally transparent to type propagation
Expansions for TYPEP are wrapped in %typep-wrapper, a fancy identity. The
additional arguments track what value is being tested for what type, which
helps inform constraint propagation, as well as detecting redundant type
tests.
Such a wrapper is a hindrance to lower level control flow rewriting that are
essential for decent code generation. After a single pass of constraint
propagation, the wrapper evaporates and the TYPEP expansion becomes as opaque
as it is now.
Paul Khuong [Thu, 24 Oct 2013 02:34:37 +0000 (22:34 -0400)]
Two new optimizer types for flow-sensitive type propagation
CONSTRAINT-PROPAGATE optimizers can add new information about the
state of the world after/if the function has returned. Function
type declarations/propagation suffice for simple patterns (e.g.
return types, or unconditional type requirements on arguments),
but this optimizer is more general.
Such optimizers receive two arguments, the combination node and the
current set of constraints, and return a sequence of constraints.
Constraints are lists of three or four values:
1. a constraint kind (either TYPEP, <, >, or EQL);
2, 3. two arguments, either LVARs, LAMBDA-VARs or a CTYPE;
4. optionally, whether the meaning of the constraint must be
flipped.
This mimics the (defstruct (constraint ...)) in constraint.lisp.
If any of the argument is NIL, the constraint is skipped; otherwise,
it is added to current set of constraints. Optimizers have access
to that set, and can thus map LVARs to LAMBDA-VARs thanks to
OK-LVAR-LAMBDA-VAR.
CONSTRAINT-PROPAGATE-IF optimizers can instead hook into the
interpretation of functions as predicate, when their result feeds
into an IF node. They also receive the node and the current set
of constraints as arguments, and return four values. The first two
values are an LVAR and a CTYPE: if they are non-NIL, that LVAR is
of that CTYPE iff the combination returns true. The two remaining
values are sequences of constraints (see previous paragraph) for
the consequent (if-true) and alternative (if-false) branches,
respectively. These are useful for more complex tests, but also
to represent partial information, e.g., if an EQUAL test fails,
the two values are not EQL either.
Stas Boukarev [Mon, 4 Nov 2013 12:41:59 +0000 (16:41 +0400)]
Fix foreign-stack-alignment test on SPARC.
Stas Boukarev [Sun, 3 Nov 2013 21:18:01 +0000 (01:18 +0400)]
Fix raw-instance-slots-equalp on SPARC.
Some slots have to be aligned or they will cause a bus error. Take
alignment into account on #-(or x86 x86-64 ppc).
Stas Boukarev [Sun, 3 Nov 2013 19:32:09 +0000 (23:32 +0400)]
Fix EQUALP on structures with raw slots.
It always incremented the index by 1, even if slot takes up more than
one word. Increment by raw-slot-data-n-words.
Christophe Rhodes [Sun, 3 Nov 2013 16:32:49 +0000 (16:32 +0000)]
fix LET* environment semantics in sexp-based evaluator
Stas Boukarev [Sun, 3 Nov 2013 15:09:04 +0000 (19:09 +0400)]
Fix undefined function error on SPARC.
Adjust the register encoding in sparc-assem.S.
Thanks to John Long for providing access to a SPARC machine.
Stas Boukarev [Sun, 3 Nov 2013 10:57:06 +0000 (14:57 +0400)]
Fix run-tests.sh on Solaris.
Stas Boukarev [Sat, 2 Nov 2013 13:39:50 +0000 (17:39 +0400)]
Adjust the recent defmethod change.
(compile-or-load-defgeneric name) doesn't need the full eval-when
repertoire, only :compile-toplevel and :execute. :compile-toplevel for
subsequent forms and :execute for references within the body of
defmethod to itself. :load-toplevel is not needed since when the FASLs
are loaded no further processing is performed, this avoids the size
increase of the resulting FASLs.
Stas Boukarev [Fri, 1 Nov 2013 12:47:38 +0000 (16:47 +0400)]
Add --help to run-tests.sh.
Stas Boukarev [Fri, 1 Nov 2013 12:34:27 +0000 (16:34 +0400)]
tests: better reports when /bin/ed is not present.
When /bin/ed is not present the test failed with a confusing "unhandled
error".
* Wrap the whole run-program-ed test into with-test, renaming it to run-program-/bin/ed.
* Add before it a test named :is-/bin/ed-installed?.
Making the report more self-describing:
Failure: run-program.impure.lisp / IS-/BIN/ED-INSTALLED?
Failure: run-program.impure.lisp / RUN-PROGRAM-/BIN/ED
Stas Boukarev [Fri, 1 Nov 2013 11:50:55 +0000 (15:50 +0400)]
defmethod: make the function known at compile time.
(defmethod gf ())
(defun f () (gf))
Produced a warning about an undefined function, even though it would
be implicitly created by defmethod.
Fixes lp#503095.
Stas Boukarev [Thu, 31 Oct 2013 18:57:24 +0000 (22:57 +0400)]
Remove *static-foreign-symbols* from #+sb-dynamic-core builds.
Stas Boukarev [Thu, 31 Oct 2013 14:47:09 +0000 (18:47 +0400)]
Fix defmethod arglists leaking into make-method-lambda.
defmethod communicates to make-method-lambda using special variables,
but make-method-lambda then performs code-walking which expands
macros, and if a macro calls another make-method-lambda directly, this
make-method-lambda will receive incorrect information which may cause
problems with wrong lambda lists.
Reported and diagnosed by Attila Lendvai.
Stas Boukarev [Thu, 31 Oct 2013 14:44:55 +0000 (18:44 +0400)]
describe: show the same information about functions for 'x and #'x.
Declared type and information about inlining were not shown when used
as #'function.
Christophe Rhodes [Thu, 31 Oct 2013 14:44:00 +0000 (14:44 +0000)]
Fix install/binary-distribution scripts for new contrib arrangements
Everything has moved, which led the binary-distribution script not to
include test-passed files, and the install script to look for them in
the wrong place anyway.
Christophe Rhodes [Thu, 31 Oct 2013 10:42:43 +0000 (10:42 +0000)]
1.1.13: will be tagged as "sbcl-1.1.13"
Paul Khuong [Sat, 26 Oct 2013 17:18:23 +0000 (13:18 -0400)]
Make sure quantifiers don't cons
Quantifiers like SOME and EVERY are implemented in terms of (MAP NIL)
of a wrapper function with early RETURN. If type information does not
enable MAP to be open coded, declarations are necessary to avoid
consing up a closure and a value cell for the return.
DX functions really shouldn't cause value cells for return blocks.
Also, revert
d0f65b07a30adc989e36a82ddc0ed54d135d638e which is
now mostly redundant.
Stas Boukarev [Sat, 26 Oct 2013 14:42:22 +0000 (18:42 +0400)]
Reduce consing during SUBTYPEP on classes.
sb-pcl::class-has-a-forward-referenced-superclass-p, used in the
implementation of subtypep on classes, conses because SOME can't
perform the required inlining when used on the sequences of unknown
type. (See lp#1070635)
Jan Moringen [Fri, 20 Sep 2013 20:49:11 +0000 (22:49 +0200)]
Use new MAP-RESTARTS in FIND-RESTART, COMPUTE-RESTARTS; fix FIND-RESTART
* Both FIND-RESTART and COMPUTE-RESTARTS traverse, filter and select
active restarts, potentially for a particular condition and
potentially calling restart test functions. This common behavior has
been factored into the new function MAP-RESTARTS.
* Remove *CONDITION-RESTARTS*; use new slot ASSOCIATED-CONDITIONS in
RESTART structure instead.
* As stated in bug 774410, when given a RESTART instance, FIND-RESTART
did not test whether the restart was still active and whether the
restart had been associated to a different condition in the
meantime. This behavior has been changed by calling MAP-RESTARTS which
checks activity and association to conditions (sadly, making
(find-restart RESTART-INSTANCE CONDITION-OBJECT)
a bit slower than before).
* INVOKE-RESTART is also affected by the changes for bug
774410. However, it does not respect restart test functions when
called with a RESTART instance (This is underspecified in CLHS and
other implementations behave in various ways. However, behaving
differently would make some restarts un-invokable).
* As suggested in bug 769615, (find-restart SYMBOL ...) now calls
MAP-RESTARTS instead of COMPUTE-RESTARTS, consing less and executing
faster in many cases.
* New (find-restart :recheck-conditions-and-tests :bug-774410) test from
Jean-Philippe Paradis from original bug report in
tests/condition.impure.lisp checks the new behavior.
Fixes lp#769615, lp#774410
Jan Moringen [Fri, 20 Sep 2013 20:19:30 +0000 (22:19 +0200)]
Make some RESTART slots read-only
The RESTART slots FUNCTION, REPORT-FUNCTION, INTERACTIVE-FUNCTION and
TEST-FUNCTION are never mutated and can thus be read-only.
Jan Moringen [Fri, 20 Sep 2013 20:15:53 +0000 (22:15 +0200)]
Comments and rearrangements in {defboot,target-error}.lisp
Add and/or extend explanatory comments for the special
variables *HANDLER-CLUSTERS*, *RESTART-CLUSTERS*
and *CONDITION-RESTARTS*.
Slightly rearranged RESTART-NAME and RESTART-REPORT.
Jan Moringen [Sat, 23 Mar 2013 12:04:35 +0000 (13:04 +0100)]
Silence some unused variable warnings in tests/condition.[im]pure.lisp
Christophe Rhodes [Mon, 21 Oct 2013 11:41:35 +0000 (12:41 +0100)]
fix symlink handling (generally and on OS X) in run-sbcl.sh
Patch from Stelian Ionescu, lp#1242643
Christophe Rhodes [Mon, 21 Oct 2013 11:15:04 +0000 (12:15 +0100)]
signal errors for bad initialization of slot definitions
In order to get slot definition initialization right, move the
readers/writers slots to direct slot definitions, and write code to
detect all the bad cases documented in the MOP dictionary at
initialization time. Condition slots also need changing, to have
separate initform and initfunction information. Moving the slots
breaks metacircle resolution, naturally, so rewrite that to find the
relevant reader/writer information from the direct slots at runtime.
The irony of having to rewrite metacircle detection and resolution for
a bug tagged "easy" on launchpad is not lost on me.
Originally reported by Bruno Haible at some point in prehistory,
probably around December 2004, lp#309072.
Paul Khuong [Sat, 19 Oct 2013 21:47:47 +0000 (17:47 -0400)]
Warn when wrapping constants with THE of multiple value types
IR1 translation was too eager in eliminating redundant THE forms
when the value is a constant. We now also make sure that the
asserted type accepts single values.
Reported by Nathan Trapuzzano on sbcl-help.
Stas Boukarev [Fri, 18 Oct 2013 11:18:36 +0000 (15:18 +0400)]
Remove duplicate implementations of (setf aref/sbit/bit).
Since (setf aref/sbit/bit) have to work with
(setf (apply #'aref array subscripts)), they had both a setf expander
and a setf-function, but it can be implemented with just a
setf-function. All other accessors are still done using
(defsetf accessor %setaccessor), I haven't found a technical reason to
prefer one to another, other than (setf accessor) being a nicer name.
Fixes lp#1241095.
Stas Boukarev [Thu, 17 Oct 2013 16:53:18 +0000 (20:53 +0400)]
Add some missing FNDB declarations.
Stas Boukarev [Thu, 17 Oct 2013 15:16:41 +0000 (19:16 +0400)]
Stop (describe (make-instance 'generic-function)) from crashing.
All the describy things can be pried out of a generic function only if
it's a standard-generic-function.
Also add an FNDB entry for FUNCTION-LAMBDA-EXPRESSION.
Stas Boukarev [Thu, 17 Oct 2013 15:05:29 +0000 (19:05 +0400)]
function-lambda-expression: Return the name of a generic function.
The third value of
(function-lambda-expression (defgeneric foo ()))
is now FOO, and not
(LAMBDA (&REST SB-PCL::ARGS) :IN SB-PCL::MAKE-INITIAL-DFUN)
Reported by Marco Baringer.
Stas Boukarev [Thu, 17 Oct 2013 07:50:23 +0000 (11:50 +0400)]
tests: don't require ASDF.
With the new scheme, ASDF is not needed at all to load contribs, but
even in the past the contribs which needed it would have loaded it
automatically.
Stas Boukarev [Thu, 17 Oct 2013 07:33:26 +0000 (11:33 +0400)]
Fix where tests are trying to find contribs.
Juho Snellman [Thu, 17 Oct 2013 02:56:46 +0000 (04:56 +0200)]
Fix release-related things
contrib changes need to be reflected in binary-distribution.sh
and documentation building too.
Francois-Rene Rideau [Sat, 23 Feb 2013 12:52:39 +0000 (07:52 -0500)]
Deliver each contrib as a single FASL. Don't implicitly require ASDF or source code at runtime.
Also, move contrib output to obj/sbcl-home/, asdf cache to obj/asdf-cache/
Update sb-grovel and other contribs and their tests for asdf3.
Fixes lp#1132254.
Stas Boukarev [Wed, 16 Oct 2013 16:36:22 +0000 (20:36 +0400)]
run-program: Improve argument escaping on WIN32.
The rules of how #\\ should be escaped depend on whether it's followed
by #\" or not.
Fixes lp#1239242.
Stas Boukarev [Wed, 16 Oct 2013 13:25:58 +0000 (17:25 +0400)]
run-program: Add support for :environment on WIN32.
Stas Boukarev [Wed, 16 Oct 2013 13:10:37 +0000 (17:10 +0400)]
Disable some sb-concurrency tests on win32.
Some mailbox tests are hanging stopping from building other contribs.
Stas Boukarev [Wed, 16 Oct 2013 10:36:34 +0000 (14:36 +0400)]
sb-bsd-sockets: Rearrange how get-host-by-name/address are defined.
#+/-sb-bsd-sockets-addrinfo have different definitions of
get-host-by-name and get-host-by-address. Instead of having
(defun get-host-by-name ()
#+sb-bsd-sockets-addrinfo (call-getaddrinfo-flavour)
#-sb-bsd-sockets-addrinfo
(implementaiton-using gethostbyname))
define
#+sb-bsd-sockets-addrinfo
(defun get-host-by-name ()
(implementaiton-using getaddrinfo))
#-sb-bsd-sockets-addrinfo
(defun get-host-by-name ()
(implementaiton-using gethostbyname))
Stas Boukarev [Tue, 15 Oct 2013 14:29:02 +0000 (18:29 +0400)]
sb-introspect:find-definition-sources-by-name: support globals.
(sb-ext:defglobal x ...) couldn't be found.
Jim Wise [Sun, 13 Oct 2013 21:23:38 +0000 (17:23 -0400)]
For consistency with other shell scripts here, use #!/bin/sh.
This (alone) used #!/bin/bash, but does not seem to depend on it.
Jim Wise [Sun, 13 Oct 2013 21:22:19 +0000 (17:22 -0400)]
Fix on Solaris by accounting for /bin/sh there.
Solaris' /bin/sh does not grok $(...), so use `...` instead.
Note that all recent versions of Solaris have included /bin/bash, but
I'm not sure the impact of using #!/bin/bash instead of #!/bin/sh on
some of our other platforms.