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 (file)
--- 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 (file)
--- 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"