projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.3.1:
[sbcl.git]
/
src
/
code
/
toplevel.lisp
diff --git
a/src/code/toplevel.lisp
b/src/code/toplevel.lisp
index
7389eb5
..
381a2b2
100644
(file)
--- a/
src/code/toplevel.lisp
+++ b/
src/code/toplevel.lisp
@@
-163,7
+163,7
@@
(declare (optimize (speed 3) (safety 0))
(values (unsigned-byte 20))) ; FIXME: DECLARE VALUES?
(declare (optimize (speed 3) (safety 0))
(values (unsigned-byte 20))) ; FIXME: DECLARE VALUES?
- #!+stack-grows-upward
+ #!-stack-grows-downward-not-upward
(labels
((scrub (ptr offset count)
(declare (type system-area-pointer ptr)
(labels
((scrub (ptr offset count)
(declare (type system-area-pointer ptr)
@@
-193,7
+193,7
@@
(* (floor initial-offset sb!vm:n-word-bytes) sb!vm:n-word-bytes)
0)))
(* (floor initial-offset sb!vm:n-word-bytes) sb!vm:n-word-bytes)
0)))
- #!+stack-grows-downward
+ #!+stack-grows-downward-not-upward
(labels
((scrub (ptr offset count)
(declare (type system-area-pointer ptr)
(labels
((scrub (ptr offset count)
(declare (type system-area-pointer ptr)
@@
-477,7
+477,7
@@
(abort
"Reduce debugger level (leaving debugger, returning to toplevel).")
(catch 'toplevel-catcher
(abort
"Reduce debugger level (leaving debugger, returning to toplevel).")
(catch 'toplevel-catcher
- (sb!unix:unix-sigsetmask 0) ; FIXME: What is this for?
+ #!-sunos (sb!unix:unix-sigsetmask 0) ; FIXME: What is this for?
(repl noprint)
(critically-unreachable "after REPL")))))))
(repl noprint)
(critically-unreachable "after REPL")))))))