summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
36a59e1)
* flush all standard streams before prompting in the REPL and the
debugger
* prompt for restart goes to *debug-io*
* disable-debugger, enable-debugger don't set *debug-io* anymore
* run *invoke-debugger-hook* before *debugger-hook* => if the debugger
is disabled then *debugger-hook* is not run
* eof selects abort in the debugger
(incf error-counter)))
:normal-exit))))))))
(incf error-counter)))
:normal-exit))))))))
(test-inifinite-error-protection)
#+sb-thread
(let ((thread (sb-thread:make-thread #'test-inifinite-error-protection)))
(loop while (sb-thread:thread-alive-p thread)))
(test-inifinite-error-protection)
#+sb-thread
(let ((thread (sb-thread:make-thread #'test-inifinite-error-protection)))
(loop while (sb-thread:thread-alive-p thread)))
;;; success
(quit :unix-status 104)
;;; success
(quit :unix-status 104)
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
# 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.
cc -c $1.c -o $1.o $CFLAGS
ld $SO_FLAGS -o $1.so $1.o
}
cc -c $1.c -o $1.o $CFLAGS
ld $SO_FLAGS -o $1.so $1.o
}
echo 'int summish(int x, int y) { return 1 + x + y; }' > $testfilestem.c
echo 'int numberish = 42;' >> $testfilestem.c
echo 'int nummish(int x) { return numberish + x; }' >> $testfilestem.c
echo 'int summish(int x, int y) { return 1 + x + y; }' > $testfilestem.c
echo 'int numberish = 42;' >> $testfilestem.c
echo 'int nummish(int x) { return numberish + x; }' >> $testfilestem.c
(defvar *extern* (extern-alien "negative_short" short))
;; Test that loading an object file didn't screw up our records
(defvar *extern* (extern-alien "negative_short" short))
;; Test that loading an object file didn't screw up our records
- ;; of variables visible in runtime. (This was a bug until
+ ;; of variables visible in runtime. (This was a bug until
;; Nikodemus Siivola's patch in sbcl-0.8.5.50.)
;;
;; This cannot be tested in a saved core, as there is no guarantee
;; Nikodemus Siivola's patch in sbcl-0.8.5.50.)
;;
;; This cannot be tested in a saved core, as there is no guarantee
(assert (= (sb-sys:sap-int (alien-sap *environ*))
(sb-sys:sap-int (alien-sap environ))))
(assert (= (sb-sys:sap-int (alien-sap *environ*))
(sb-sys:sap-int (alien-sap environ))))
(lambda (condition hook)
(print (list :debugger-hook condition))
(let ((cont (find-restart 'continue condition)))
(lambda (condition hook)
(print (list :debugger-hook condition))
(let ((cont (find-restart 'continue condition)))
elif [ $RET != 52 ]; then
rm $testfilestem.*
echo test failed: $?
elif [ $RET != 52 ]; then
rm $testfilestem.*
echo test failed: $?
rm -f $testfilestem.* $testfilestem-*
# success convention for script
rm -f $testfilestem.* $testfilestem-*
# success convention for script