;;; -*- Mode: LISP; Syntax: Zetalisp; Package: DVI; Base: 10 -*-

(defun dfloat (x)
  (float x))