fix direct execution of (shebanged) fasls

[sbcl.git] / src / code / misc-aliens.lisp

diff --git a/src/code/misc-aliens.lisp b/src/code/misc-aliens.lisp
index 3fe8cdf..bf11807 100644 (file)
--- 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\".")