From ab761bf3e9e2b6dd81216db6c6aa2c69aaf07efd Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Thu, 19 Apr 2007 06:27:46 +0000 Subject: [PATCH] 1.0.4.103: fix build with OpenMCL as the host * OpenMCL doesn't do the right thing with #+foo #+foo bar bar * An invalid slot type declaration --- src/code/defmacro.lisp | 2 +- src/code/macros.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/code/defmacro.lisp b/src/code/defmacro.lisp index d45a27c..5bc4f47 100644 --- a/src/code/defmacro.lisp +++ b/src/code/defmacro.lisp @@ -43,7 +43,7 @@ ;; function, and report spurious warnings about ;; redefinition a macro as a function, and then ;; vice versa. - #-sb-xc-host #-sb-xc-host named-lambda (defmacro ,name) + #-sb-xc-host named-lambda #-sb-xc-host (defmacro ,name) (,whole ,environment) ,@local-decs ,new-body)) diff --git a/src/code/macros.lisp b/src/code/macros.lisp index bd9714b..3da5529 100644 --- a/src/code/macros.lisp +++ b/src/code/macros.lisp @@ -176,7 +176,7 @@ invoked. In that case it will store into PLACE and start over." (case-kind :initarg :case-kind :reader case-warning-case-kind) (occurrences :initarg :occurrences - :type (cons (integer 0) (cons t null)) + :type list :reader duplicate-case-key-warning-occurrences)) (:report (lambda (condition stream) diff --git a/version.lisp-expr b/version.lisp-expr index ffb6733..453b3be 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.4.102" +"1.0.4.103" -- 1.7.10.4