Skip to content
Snippets Groups Projects
Commit 9a6a6a6c authored by rtoy's avatar rtoy
Browse files

Fix bug in imagpart/complex-single-float. The vop was totally wrong.

Bug and fix provided by Alexander Donkov.

Here is a routine that illustrate the problem:

;; (zot #c(1.0 2.0)) -> 2.0.  It should be 4.0!
(defun zot (z)
  (declare (type (complex single-float) z))
  (imagpart (+ #c(1.0 2.0) z)))
parent b5e542b5
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment