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)

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 6f26239..20fa0da 100644 (file)
--- 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))
 \f
 ;;;; BACKTRACE

diff --git a/src/runtime/bsd-os.c b/src/runtime/bsd-os.c
index bcca635..3e3cfb6 100644 (file)
--- 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 <sys/types.h>
 #include <signal.h>
@@ -251,3 +252,20 @@ os_install_interrupt_handlers(void)
 }
 
 #endif /* defined GENCGC */
+\f
+/* 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 (file)
--- 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"