From 6e1c241b2cc8bd400e4622a02a8bec77d1d58878 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sat, 27 Feb 2010 16:47:49 +0000 Subject: [PATCH] 1.0.35.23: restore buildability on clisp Problem report and fix from Josh Elasser sbcl-devel 2010-02-16. --- NEWS | 2 +- src/code/early-type.lisp | 6 +++--- version.lisp-expr | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/NEWS b/NEWS index 723a091..67fe712 100644 --- a/NEWS +++ b/NEWS @@ -19,7 +19,7 @@ changes relative to sbcl-1.0.35: PRNG where possible. (Thanks to Fare Rideau; launchpad bug lp#310116) * bug fix: Fix SB-SIMPLE-STREAMS:READ-VECTOR to correctly set the FILE-POSITION of the stream being read from. (launchpad bug lp#491087) - * bug fix: Fix grammer and style issues for the docstrings of + * bug fix: Fix grammar and style issues for the docstrings of printer-related variables and functions. (Thanks to mon_key; launchpad bug lp#518696) * bug fix: Fix compilation on chenygc platforms. Thanks to Larry Valkama and diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp index 5e95184..7e419f0 100644 --- a/src/code/early-type.lisp +++ b/src/code/early-type.lisp @@ -580,7 +580,7 @@ "Takes and expands a type specifier once like MACROEXPAND-1. Returns two values: the expansion, and a boolean that is true when expansion happened." - (declare (type-specifier type-specifier)) + (declare (type type-specifier type-specifier)) (declare (ignore env)) (multiple-value-bind (expander lspec) (let ((spec type-specifier)) @@ -607,7 +607,7 @@ expansion happened." "Takes and expands a type specifier repeatedly like MACROEXPAND. Returns two values: the expansion, and a boolean that is true when expansion happened." - (declare (type-specifier type-specifier)) + (declare (type type-specifier type-specifier)) (multiple-value-bind (expansion flag) (typexpand-1 type-specifier env) (if flag @@ -617,7 +617,7 @@ expansion happened." (defun typexpand-all (type-specifier &optional env) #!+sb-doc "Takes and expands a type specifier recursively like MACROEXPAND-ALL." - (declare (type-specifier type-specifier)) + (declare (type type-specifier type-specifier)) (declare (ignore env)) ;; I first thought this would not be a good implementation because ;; it signals an error on e.g. (CONS 1 2) until I realized that diff --git a/version.lisp-expr b/version.lisp-expr index ba6d140..0b3a0a3 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.35.22" +"1.0.35.23" -- 1.7.10.4