X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fmisc-aliens.lisp;h=bf11807f072f5f706eb87dcd6e42204a0b74f1b7;hb=58084279740fc96c6ffcd14e86dca73b71b7c288;hp=3fe8cdf868fc703ced2ca7e61c1a205dac4df7fa;hpb=a18f0a95bc9a457e4d2d00c702b746f29c2662b1;p=sbcl.git

diff --git a/src/code/misc-aliens.lisp b/src/code/misc-aliens.lisp
index 3fe8cdf..bf11807 100644
--- a/src/code/misc-aliens.lisp
+++ b/src/code/misc-aliens.lisp
@@ -12,12 +12,12 @@
 (in-package "SB!IMPL")
 
 (declaim (inline memmove))
-(def-alien-routine ("memmove" memmove) void
+(define-alien-routine ("memmove" memmove) void
   (dest (* char))
   (src (* char))
   (n unsigned-int))
 
-(def-alien-routine ("os_get_errno" get-errno) integer)
+(define-alien-routine ("os_get_errno" get-errno) integer)
 (setf (fdocumentation 'get-errno 'function)
       "Return the value of the C library pseudo-variable named \"errno\".")