X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Falien-type.lisp;h=86b7121c08c1bf28ff4f3c861d1ce2e869715f5a;hb=b63c81837c2eae7bcf3b09911f68ba62d102b63d;hp=b76b3e9c11b9f5d9cdedb42bf2b187f72b9e545a;hpb=11b8fcf55c80cb2686fb49663fa4d96f9b152ce4;p=sbcl.git

diff --git a/src/code/alien-type.lisp b/src/code/alien-type.lisp
index b76b3e9..86b7121 100644
--- a/src/code/alien-type.lisp
+++ b/src/code/alien-type.lisp
@@ -60,7 +60,7 @@
   (if alien-type
       (let ((lisp-rep-type (compute-lisp-rep-type alien-type)))
 	(if lisp-rep-type
-	    (specifier-type lisp-rep-type)
+	    (single-value-specifier-type lisp-rep-type)
 	    (%make-alien-type-type alien-type)))
       *universal-type*))