(restart-case
(handler-bind
((error (lambda (condition)
- (push (list :unhandled-error cl-user::file) test-util::*failures*)
+ (push (list :unhandled-error file)
+ test-util::*failures*)
(cond (*break-on-error*
(test-util:really-invoke-debugger condition))
(t
(format *error-output* "~&Unhandled ~a: ~a~%"
(type-of condition) condition)
- (funcall (symbol-function (intern "BACKTRACE" :sb-debug)))))
+ (sb-debug:backtrace)))
(invoke-restart 'skip-file))))
,test-code)
(skip-file ()
(defun sh-test (file)
;; What? No SB-POSIX:EXECV?
`(let ((process (sb-ext:run-program "/bin/sh"
- (list (namestring ,file))
+ (list (native-namestring ,file))
:output *error-output*)))
(sb-ext:quit :unix-status (process-exit-code process))))