projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.11.34: better SUBSEQ on lists
[sbcl.git]
/
src
/
code
/
target-alieneval.lisp
diff --git
a/src/code/target-alieneval.lisp
b/src/code/target-alieneval.lisp
index
37600b6
..
d674b64
100644
(file)
--- a/
src/code/target-alieneval.lisp
+++ b/
src/code/target-alieneval.lisp
@@
-61,10
+61,6
@@
',alien-name
',alien-type))))))
',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)
;;; Do the actual work of DEFINE-ALIEN-VARIABLE.
(eval-when (:compile-toplevel :load-toplevel :execute)
(defun %define-alien-variable (lisp-name alien-name type)
@@
-446,7
+442,8
@@
allocated using ``malloc'', so it can be passed to foreign functions which use
(lambda ()
(alien-funcall
(extern-alien "free" (function (values) system-area-pointer))
(lambda ()
(alien-funcall
(extern-alien "free" (function (values) system-area-pointer))
- alien-sap)))
+ alien-sap))
+ :dont-save t)
alien))
(defun note-local-alien-type (info alien)
alien))
(defun note-local-alien-type (info alien)
@@
-727,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)))))))))
(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
\f
(defun alien-typep (object type)
#!+sb-doc