From: Richard M Kreuter <kreuter@users.sourceforge.net>
Date: Mon, 1 Dec 2008 03:26:24 +0000 (+0000)
Subject: 1.0.22.21: Fix return value from DEFTYPE, broken in 1.0.22.20.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=7499dd43744531513e5186d72f08efec7b8c5ff9;p=sbcl.git

1.0.22.21: Fix return value from DEFTYPE, broken in 1.0.22.20.
---

diff --git a/src/compiler/deftype.lisp b/src/compiler/deftype.lisp
index a0a992f..5d20447 100644
--- a/src/compiler/deftype.lisp
+++ b/src/compiler/deftype.lisp
@@ -49,4 +49,5 @@
                             ,doc
                             ,source-location-form))
        (eval-when (:load-toplevel :execute)
-         (%deftype ',name)))))
+         (%deftype ',name))
+       ',name)))
diff --git a/version.lisp-expr b/version.lisp-expr
index 78b60bb..9a4b1cc 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.22.20"
+"1.0.22.21"