Commit 7a3c03e1 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Make (zerop nil) => NIL; export nf-readably

parent 1efa344d
;; Generic functions for generalized numbers
;; Liam Healy Tue Feb 9 1999 - 21:38
;; Time-stamp: <2011-03-26 17:09:50EDT generic.lisp>
;; Time-stamp: <2011-03-27 16:37:17EDT generic.lisp>
;; Copyright 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -401,7 +401,7 @@
(:method ((a number))
(cl:zerop a))
(:method ((x sequence))
(every #'zerop x))
(and x (every #'zerop x)))
(:method (a) (cl:zerop (numbcomp a))))
(defgeneric floor (number &optional divisor)
......
;; Format numerical output
;; Liam Healy Wed Dec 11 2002 - 16:37
;; Time-stamp: <2011-03-20 11:51:40EDT format-output.lisp>
;; Time-stamp: <2011-03-27 15:07:13EDT format-output.lisp>
;; Copyright 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -22,8 +22,8 @@
(in-package :antik)
(export '(nf nf-string nf-option set-nf-options with-nf-options
texstyle set-nf-defaults object-as-nf))
(export '(nf nf-string nf-option nf-readably set-nf-options
with-nf-options texstyle set-nf-defaults object-as-nf))
;;;;****************************************************************************
;;;; Parameters
......
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