Commit 6d7d8f83 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Corrected typo in comment.

parent 717854a7
......@@ -64,7 +64,7 @@
(ldb (byte ,(1- mantissa-bits) 0) mantissa))))))
(defun ,(intern (with-standard-io-syntax (format nil "IEEE-754-TO-~A" name))
(symbol-package name)) (ieee)
"Convert the IEEE representatin (stored as an integer) into a floating point number."
"Convert the IEEE representation (stored as an integer) into a floating point number."
(if (zerop ieee)
,(coerce 0 type)
(let ((aval (scale-float
......@@ -84,4 +84,5 @@
(gen-ieee-encoding float-32 single-float 8 24)
(gen-ieee-encoding float-64 double-float 11 53)
;;;; THE END ;;;;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment