Changeset 7962 for trunk/j/src/org/armedbear/lisp/numbers.lisp
 Timestamp:
 10/12/04 17:03:00 (17 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/j/src/org/armedbear/lisp/numbers.lisp
r7402 r7962 2 2 ;;; 3 3 ;;; Copyright (C) 20032004 Peter Graves 4 ;;; $Id: numbers.lisp,v 1.3 3 20040815 11:18:36piso Exp $4 ;;; $Id: numbers.lisp,v 1.34 20041012 17:03:00 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 160 160 (* (/ pi 2) (signum (imagpart number))) 161 161 (atan (imagpart number) (realpart number)))))) 162 163 (defun cis (radians)164 "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."165 (if (complexp radians)166 (error "argument to CIS is complex: ~S" radians)167 (complex (cos radians) (sin radians))))168 169 (evalwhen (:execute)170 (when (and (fboundp 'jvm::jvmcompile) (not (autoloadp 'jvm::jvmcompile)))171 (mapcar #'jvm::jvmcompile '(ceiling172 round173 ftruncate174 ffloor175 fceiling176 fround177 rational178 rationalize))))
Note: See TracChangeset
for help on using the changeset viewer.