From 7098f5fa693c5d5e57742cc1e91c0a04eba87dbb Mon Sep 17 00:00:00 2001
From: Thiemo Seufer <ths@networkno.de>
Date: Sat, 1 Sep 2007 14:02:27 +0000
Subject: [PATCH] 1.0.9.17: Delete deprecated DEF-ALIENs.

---
 package-data-list.lisp-expr    | 7 -------
 src/code/host-alieneval.lisp   | 3 ---
 src/code/target-alieneval.lisp | 8 --------
 version.lisp-expr              | 2 +-
 4 files changed, 1 insertion(+), 19 deletions(-)

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 95b0c48d5..4d6c3c0c8 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -46,13 +46,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
              "ALIEN-FUNCALL" "ALIEN-SAP" "ALIEN-SIZE"
              "CAST" "C-STRING"
              "DEFINE-ALIEN-ROUTINE" "DEFINE-ALIEN-TYPE" "DEFINE-ALIEN-VARIABLE"
-
-             ;; FIXME: These old names don't match the DEFFOO - vs. -
-             ;; DEFINE-FOO convention used in the ANSI spec, and so
-             ;; were deprecated in sbcl-0.7.0. After a year or so
-             ;; they can go away completely.
-             "DEF-ALIEN-ROUTINE" "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE"
-
              "DEREF" "DOUBLE"
              "ENUM" "EXTERN-ALIEN"
              "FREE-ALIEN"
diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp
index 66868d077..92c529c49 100644
--- a/src/code/host-alieneval.lisp
+++ b/src/code/host-alieneval.lisp
@@ -285,9 +285,6 @@
              `((%def-auxiliary-alien-types ',*new-auxiliary-types*)))
          ,@(when name
              `((%define-alien-type ',name ',alien-type)))))))
-(def!macro def-alien-type (&rest rest)
-  (deprecation-warning 'def-alien-type 'define-alien-type)
-  `(define-alien-type ,@rest))
 
 (eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
   (defun %def-auxiliary-alien-types (types)
diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index 1f34143ac..d674b648d 100644
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -61,10 +61,6 @@
                                    ',alien-name
                                    ',alien-type))))))
 
-(defmacro def-alien-variable (&rest rest)
-  (deprecation-warning 'def-alien-variable 'define-alien-variable)
-  `(define-alien-variable ,@rest))
-
 ;;; Do the actual work of DEFINE-ALIEN-VARIABLE.
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun %define-alien-variable (lisp-name alien-name type)
@@ -728,10 +724,6 @@ allocated using ``malloc'', so it can be passed to foreign functions which use
                       (values ,@temps ,@(results))))
                  (values (alien-funcall ,lisp-name ,@(alien-args))
                          ,@(results)))))))))
-
-(defmacro def-alien-routine (&rest rest)
-  (deprecation-warning 'def-alien-routine 'define-alien-routine)
-  `(define-alien-routine ,@rest))
 
 (defun alien-typep (object type)
   #!+sb-doc
diff --git a/version.lisp-expr b/version.lisp-expr
index cd3e12ac8..ea971a8cc 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.16"
+"1.0.9.17"
-- 
2.11.4.GIT