From fab0742469297dc318be1e1356d107182bf6e0e5 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sun, 9 Sep 2007 07:32:28 +0000 Subject: [PATCH] 1.0.9.48: texi2pdf rework (Aymeric Vincent sbcl-devel 2007-09-05) It looks likely that texi2dvi is more ubiquitous than texi2pdf, so just apply the patch. ... (plus whitespace and .cvsignore collateral changes). --- doc/internals/.cvsignore | 3 +++ doc/internals/Makefile | 6 +++++- doc/manual/Makefile | 4 ++-- src/pcl/wrapper.lisp | 4 ++-- version.lisp-expr | 2 +- 5 files changed, 13 insertions(+), 6 deletions(-) diff --git a/doc/internals/.cvsignore b/doc/internals/.cvsignore index 364eadc1e..edc34905f 100644 --- a/doc/internals/.cvsignore +++ b/doc/internals/.cvsignore @@ -1,6 +1,8 @@ *.aux *.cp +*.cps *.fn +*.fns *.info *.ky *.log @@ -8,5 +10,6 @@ *.pg *.toc *.tp +*.txt *.vr *.include diff --git a/doc/internals/Makefile b/doc/internals/Makefile index df076da05..1677a14a6 100644 --- a/doc/internals/Makefile +++ b/doc/internals/Makefile @@ -1,3 +1,7 @@ +ifeq ($(TEXI2PDF),) + TEXI2PDF:=texi2dvi -p +endif + .PHONY: top clean html all all: sbcl-internals.pdf sbcl-internals.info @@ -22,7 +26,7 @@ info: top epstopdf $< > $@ sbcl-internals.pdf: top $(patsubst %.dot,%.pdf,$(wildcard *.dot)) *.texinfo - texi2pdf sbcl-internals.texinfo + $(TEXI2PDF) sbcl-internals.texinfo sbcl-internals.info: top $(patsubst %.dot,%.txt,$(wildcard *.dot)) *.texinfo diff --git a/doc/manual/Makefile b/doc/manual/Makefile index 72f897fc3..a58cac54d 100644 --- a/doc/manual/Makefile +++ b/doc/manual/Makefile @@ -30,7 +30,7 @@ ifeq ($(MAKEINFO),) endif ifeq ($(TEXI2PDF),) - TEXI2PDF:=texi2pdf + TEXI2PDF:=texi2dvi -p endif ifeq ($(DVIPS),) @@ -73,7 +73,7 @@ ps: $(PSFILES) pdf: $(PDFFILES) %.pdf: %.texinfo $(DOCFILES) docstrings - texi2pdf $(I_FLAGS) $< + $(TEXI2PDF) $(I_FLAGS) $< # info docfiles .PHONY: info diff --git a/src/pcl/wrapper.lisp b/src/pcl/wrapper.lisp index c204e4f8b..eb567cd36 100644 --- a/src/pcl/wrapper.lisp +++ b/src/pcl/wrapper.lisp @@ -194,8 +194,8 @@ (defun valid-wrapper-of (instance) (let ((wrapper (wrapper-of instance))) (if (invalid-wrapper-p wrapper) - (check-wrapper-validity instance) - wrapper))) + (check-wrapper-validity instance) + wrapper))) ;;; NIL: means nothing so far, no actual arg info has NILs in the ;;; metatype. diff --git a/version.lisp-expr b/version.lisp-expr index 1c077461f..06dc10c48 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +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".) -"1.0.9.47" +"1.0.9.48" -- 2.11.4.GIT