Changeset 494

Timestamp:

Feb 7, 2004, 1:59:25 PM (21 years ago)

Author:

Gary Byers

Message:

%GET-DOUBLE-FLOAT and %GET-SINGLE-FLOAT: offset defaults to 0.

File:

• trunk/ccl/lib/level-2.lisp (modified) (1 diff)

trunk/ccl/lib/level-2.lisp

@@ -402 +402 @@
   (%eval-redef %get-bit (ptr offset))
   (%eval-redef %set-bit (ptr offset val))
-  (%eval-redef %get-double-float (ptr &optional offset)
+  (%eval-redef %get-double-float (ptr &optional (offset 0))
                (%get-double-float ptr offset))
-  (%eval-redef %get-single-float (ptr &optional offset)
+  (%eval-redef %get-single-float (ptr &optional (offset 0))
                (%get-single-float ptr offset))
   (%eval-redef %set-double-float (p o &optional (new (prog1 o (setq o 0))))