Fixed klacks-error export, thanks to Andreas Fuchs.

This commit is contained in:
dlichteblau
2007-12-22 15:24:36 +00:00
parent 26bc6c356b
commit 491e293503

View File

@ -219,10 +219,10 @@
(return (values this a b c)))) (return (values this a b c))))
(klacks:consume source)))) (klacks:consume source))))
(define-condition klacks-error (xml-parse-error) ()) (define-condition klacks:klacks-error (xml-parse-error) ())
(defun klacks-error (fmt &rest args) (defun klacks-error (fmt &rest args)
(%error 'klacks-error (%error 'klacks:klacks-error
nil nil
(format nil "Klacks assertion failed: ~?" fmt args))) (format nil "Klacks assertion failed: ~?" fmt args)))