From 89df0fb4a1d8f2b799933ce4ca5be713512f0923 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Mon, 15 Oct 2001 17:23:48 +0000 Subject: [PATCH] 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) --- BUGS | 4 ++++ doc/make-doc.sh | 18 +++++++++++++++++- src/code/target-alieneval.lisp | 2 +- version.lisp-expr | 2 +- 4 files changed, 23 insertions(+), 3 deletions(-) diff --git a/BUGS b/BUGS index 2c29d33..72710e3 100644 --- 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 --- 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 --- 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 --- 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" -- 1.7.10.4