From 833c031ec5dd8ee50dd2dbe003e7b2f398a8b699 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Sat, 19 Apr 2003 01:16:19 +0000 Subject: [PATCH] 0.pre8.72: It mightn't be right for STEP to preserve toplevelness of its FORM. some fixes to help compile on OpenBSD (enough to get into compilation of PCL in warm init) --- src/code/debug.lisp | 7 ++++--- src/runtime/bsd-os.c | 18 ++++++++++++++++++ version.lisp-expr | 3 +-- 3 files changed, 23 insertions(+), 5 deletions(-) diff --git a/src/code/debug.lisp b/src/code/debug.lisp index 6f26239..20fa0da 100644 --- a/src/code/debug.lisp +++ b/src/code/debug.lisp @@ -447,9 +447,10 @@ Other commands: ;;; ANSI specifies that this macro shall exist, even if only as a ;;; trivial placeholder like this. (defmacro step (form) - "a trivial placeholder implementation of the CL:STEP macro required by - the ANSI spec" - `(progn + "This is a trivial placeholder implementation of the CL:STEP macro required + by the ANSI spec, simply expanding to `(LET () ,FORM). A more featureful + version would be welcome, we just haven't written it." + `(let () ,form)) ;;;; BACKTRACE diff --git a/src/runtime/bsd-os.c b/src/runtime/bsd-os.c index bcca635..3e3cfb6 100644 --- a/src/runtime/bsd-os.c +++ b/src/runtime/bsd-os.c @@ -29,6 +29,7 @@ #include "interr.h" #include "lispregs.h" #include "sbcl.h" +#include "thread.h" #include #include @@ -251,3 +252,20 @@ os_install_interrupt_handlers(void) } #endif /* defined GENCGC */ + +/* threads */ + +/* no threading in any *BSD variant on any CPU (yet? in sbcl-0.8.0 anyway) */ +#ifdef LISP_FEATURE_SB_THREAD +#error "Define threading support functions" +#else +struct thread *arch_os_get_current_thread() { + return all_threads; +} +int arch_os_thread_init(struct thread *thread) { + return 1; /* success */ +} +int arch_os_thread_cleanup(struct thread *thread) { + return 1; /* success */ +} +#endif diff --git a/version.lisp-expr b/version.lisp-expr index dc433fb..9fd4307 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,5 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) - -"0.pre8.71" +"0.pre8.72" -- 1.7.10.4