X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-sap.lisp;h=20383b163197e38aca388b30aa2eb3c12f075c37;hb=86210c4e406c1b2ff10cc3bac0e71435867db48b;hp=5a429b667254b4a06cee16d9a7732529ae1be79e;hpb=21223eedf790450dc484907c2bedf2b9bdaa80bf;p=sbcl.git

diff --git a/src/code/target-sap.lisp b/src/code/target-sap.lisp
index 5a429b6..20383b1 100644
--- a/src/code/target-sap.lisp
+++ b/src/code/target-sap.lisp
@@ -56,7 +56,7 @@
 
 ;;; Convert an integer into a SAP.
 (defun int-sap (int)
-  (declare (type sap-int-type int))
+  (declare (type sap-int int))
   (int-sap int))
 
 ;;; Return the 8-bit byte at OFFSET bytes from SAP.