division-aux.lsp 287 Bytes
Newer Older
1 2 3 4 5
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Mon Sep  1 07:57:02 2003
;;;; Contains: Aux. functions for testing /

6

7 8 9 10 11 12

(defun divide-by-zero-test (&rest args)
  (handler-case
   (progn (apply #'/ args) (values))
   (division-by-zero () (values))
   (condition (c) c)))