Changeset 4590 for trunk/j/src/org/armedbear/lisp/numbers.lisp

Timestamp:

10/31/03 19:25:39 (19 years ago)

Author:

piso

Message:

CIS

File:

• trunk/j/src/org/armedbear/lisp/numbers.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/numbers.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: numbers.lisp,v 1.16 2003-10-27 04:44:18 dmcnaught Exp $
+;;; $Id: numbers.lisp,v 1.17 2003-10-31 19:25:17 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -239 +239 @@
                   (atan (imagpart number) (realpart number))))))
 
-(when (and (find-package "JVM")
-           (fboundp 'jvm::jvm-compile))
+(defun cis (theta)
+  "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
+  (if (complexp theta)
+      (error "argument to CIS is complex: ~S" theta)
+      (complex (cos theta) (sin theta))))
+
+(when (fboundp 'jvm::jvm-compile)
   (mapcar #'jvm::jvm-compile '(floor
                                ceiling