From 06b8e49d8906207a2e4a30f285217c644d89afba Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Fri, 19 Apr 2019 17:33:10 +0200
Subject: [PATCH] cis: check argument type to be real

---
 src/lsp/numlib.lsp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/lsp/numlib.lsp b/src/lsp/numlib.lsp
index dc72a8f19..46dde4672 100644
--- a/src/lsp/numlib.lsp
+++ b/src/lsp/numlib.lsp
@@ -128,6 +128,7 @@ zero.  Otherwise, returns the value of (/ NUMBER (ABS NUMBER))"
   "Args: (radians)
 Returns a complex number whose realpart and imagpart are the values of (COS
 RADIANS) and (SIN RADIANS) respectively."
+  (declare (ext:check-arguments-type))
   (exp (* imag-one x)))
 
 #-ecl-min