0.pre7.64:

	merged AD patch to fix new DECLAIM FTYPE in DEF-ALIEN-ROUTINE
		so that it actually DECLAIMs argument types (instead of
		bogusly DECLAIMing the code to generate argument types)
	started tweaking doc/ stuff to work with openjade (but doesn't
		work yet, at least with my current openjade/DocBook
		setup)

diff --git a/BUGS b/BUGS
index 2c29d33..72710e3 100644 (file)
--- a/BUGS
+++ b/BUGS
@@ -1193,6 +1193,10 @@ Error in function C::GET-LAMBDA-TO-COMPILE:
   structure classes related by inheritance. As of 0.7.0, SBCL still 
   doesn't follow it.
 
+128:
+  READ-SEQUENCE doesn't work for Gray streams. (reported by Nathan
+  Froyd sbcl-devel 2001-10-15)
+
 
 KNOWN BUGS RELATED TO THE IR1 INTERPRETER
 

diff --git a/doc/make-doc.sh b/doc/make-doc.sh
index 76867e6..4be93f8 100644 (file)
--- a/doc/make-doc.sh
+++ b/doc/make-doc.sh
@@ -1,5 +1,21 @@
 #!/bin/sh
 
+if [ "" != "$JADE" ]; then
+    # The user has told us where to find jade, good.
+    echo using $JADE
+elif which openjade; then
+    # OpenJade is the version of Jade which comes with OpenBSD 2.9, 
+    # and I started using it in sbcl-0.pre7.x. -- WHN
+    JADE=openjade
+elif which jade; then
+    # I used the original Jade until sbcl-0.pre7.x. It might still
+    # work. -- WHN
+    JADE=jade
+else
+    echo "can't find Jade, sorry"
+    exit 1
+fi
+
 rm -f book1.htm
-jade -t sgml -ihtml -d sbcl-html.dsl\#html user-manual.sgml
+$JADE -t sgml -ihtml -d sbcl-html.dsl\#html user-manual.sgml
 ln -sf book1.htm user-manual.html

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index e8de84d..e7d5054 100644 (file)
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -653,7 +653,7 @@
         ;; anyway, and (2) such a declamation can be (especially for
         ;; alien values) both messy to do by hand and very important
         ;; for performance of later code which uses the return value.
-        (declaim (ftype (function (mapcar (constantly t) ',args)
+        (declaim (ftype (function ,(mapcar (constantly t) args)
                                   (alien ,result-type))
                         ,lisp-name))
 

diff --git a/version.lisp-expr b/version.lisp-expr
index 8d9dcc6..caa3202 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre7.63"
+"0.pre7.64"