prologue.lisp 492 Bytes
Newer Older
Marco Antoniotti's avatar
Marco Antoniotti committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
;;;; -*- Mode: Lisp -*-

;;;; prologue.lisp
;;;;
;;;; See file COPYING in the main folder for licensing information.


(in-package "CL.EXT.MATH")

(define-condition unimplemented-function (undefined-function)
  ()
  (:report (lambda (uf stream)
             (format stream "Function ~A in not (yet) implemented in CL.EXT.MATH."
                     (cell-error-name uf)))))


(defmacro unimplemented (name)
  `(error 'unimplemented-function :name ',name))


;;;; end of file -- prologue.lisp