1.0.9.17: Delete deprecated DEF-ALIENs.

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 95b0c48..4d6c3c0 100644 (file)
--- 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 66868d0..92c529c 100644 (file)
--- 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 1f34143..d674b64 100644 (file)
--- 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))
 \f
 (defun alien-typep (object type)
   #!+sb-doc

diff --git a/version.lisp-expr b/version.lisp-expr
index cd3e12a..ea971a8 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.9.16"
+"1.0.9.17"